[BACK]Return to lonparmset.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.290 and 1.292

version 1.290, 2006/04/15 21:12:56 version 1.292, 2006/04/18 02:13:49
Line 3053  ENDMAINFORMHEAD Line 3053  ENDMAINFORMHEAD
             action => 'setdefaults',              action => 'setdefaults',
             permission => $parm_permission,              permission => $parm_permission,
             },                        },          
   { text => 'Parameter Change Log and Course Blog Posting',    { text => 'Parameter Change Log and Course Blog Posting/User Notification',
             action => 'parameterchangelog',              action => 'parameterchangelog',
             permission => $parm_permission,              permission => $parm_permission,
             },              },
Line 3324  ENDYESNO Line 3324  ENDYESNO
 }  }
   
 sub components {  sub components {
     my ($key,$uname,$udom)=@_;      my ($key,$uname,$udom,$exeuser,$exedomain)=@_;
     my $typeflag=0;      my $typeflag=0;
     if ($key=~/\.type$/) {      if ($key=~/\.type$/) {
  $key=~s/\.type$//;   $key=~s/\.type$//;
         $typeflag=1;          $typeflag=1;
     }      }
       my $issection;
     my ($middle,$part,$name)=($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);      my ($middle,$part,$name)=($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
     my $section=&mt('All Students');      my $section=&mt('All Students');
     if ($middle=~/^\[(.*)\]/) {      if ($middle=~/^\[(.*)\]/) {
  my $issection=$1;   $issection=$1;
  if ($uname) {   $section=&mt('Group/Section').': '.$issection;
     $section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);  
  } else {  
     $section=&mt('Group/Section').': '.$issection;  
  }  
  $middle=~s/^\[(.*)\]//;   $middle=~s/^\[(.*)\]//;
     }      }
     $middle=~s/\.+$//;      $middle=~s/\.+$//;
     $middle=~s/^\.+//;      $middle=~s/^\.+//;
       if ($uname) {
    $section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);
    $issection='';
       }
     my $realm='<font color="red">'.&mt('All Resources').'</font>';      my $realm='<font color="red">'.&mt('All Resources').'</font>';
     if ($middle=~/^(.+)\_\_\_\(all\)$/) {      if ($middle=~/^(.+)\_\_\_\(all\)$/) {
  $realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';   $realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';
Line 3350  sub components { Line 3351  sub components {
  my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);   my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
  $realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';   $realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
     }      }
     return ($realm,$section,$name,$part,$typeflag);      my $what=$part.'.'.$name;
       return ($realm,$section,$name,$part,$typeflag,
       $what,$middle,$uname,$udom,$issection);
   }
   sub standard_parameter_names {
       my ($name)=@_;
       my %standard_parms=&Apache::lonlocal::texthash('duedate' => 'Due Date',
      'answerdate' => 'Answer Date',
      'opendate' => 'Open Date',
      'maxtries' => 'Max. Number of Tries',
      'weight' => 'Weight',
      'date_start' => 'Starting Date',
      'date_end' => 'Ending Date');
       if ($standard_parms{$name}) {
    return $standard_parms{$name}; 
       } else { 
    return $name; 
       }
 }  }
   
 sub parm_change_log {  sub parm_change_log {
Line 3364  sub parm_change_log { Line 3382  sub parm_change_log {
  if ($key=~/^(.+)\_exe\_time$/) {   if ($key=~/^(.+)\_exe\_time$/) {
     $exetime{$1}=$parmlog{$key};      $exetime{$1}=$parmlog{$key};
  }   }
     }      }    
       my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},
        $env{'course.'.$env{'request.course.id'}.'.domain'});
     $r->print('<table border="2">');      $r->print('<table border="2">');
     foreach my $id (sort { $exetime{$a}<=>$exetime{$b} } (keys(%exetime))) {      foreach my $id (sort { $exetime{$b}<=>$exetime{$a} } (keys(%exetime))) {
         my @changes=split(/\,/,$parmlog{$id.'_logentry'});          my @changes=split(/\,/,$parmlog{$id.'_logentry'});
  my $count=$#changes+1;   my $count=$#changes+1;
  my $time =   my $time =
Line 3396  sub parm_change_log { Line 3416  sub parm_change_log {
  my %istype=();   my %istype=();
  foreach my $changed (sort @changes) {   foreach my $changed (sort @changes) {
             my ($key,$value)=split(/\=\>/,&Apache::lonnet::unescape($changed));              my ($key,$value)=split(/\=\>/,&Apache::lonnet::unescape($changed));
             my ($realm,$section,$parmname,$part,$typeflag)=              my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection)=
  &components($key,$parmlog{$id.'_uname'},$parmlog{$id.'_udom'});   &components($key,$parmlog{$id.'_uname'},$parmlog{$id.'_udom'});
     if ($typeflag) { $istype{$parmname}=$value; }      if ($typeflag) { $istype{$parmname}=$value; }
     if ($makenewrow) { $r->print('<tr>'); } else { $makenewrow=1; }      if ($makenewrow) { $r->print('<tr>'); } else { $makenewrow=1; }
     $r->print('<td>'.$realm.'</td><td>'.$section.'</td><td>'.      $r->print('<td>'.$realm.'</td><td>'.$section.'</td><td>'.
       &mt('Part: [_1]',$part).'</td><td>');        &standard_parameter_names($parmname).'</td><td>'.
         ($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>');
       my $stillactive=0;
     if ($parmlog{$id.'_deleteflag'}) {      if ($parmlog{$id.'_deleteflag'}) {
  $r->print(&mt('Deleted'));   $r->print(&mt('Deleted'));
     } else {      } else {
  if ($typeflag) {   if ($typeflag) {
     $r->print(&mt('Type: [_1]',$value));      $r->print(&mt('Type: [_1]',&standard_parameter_names($value)));
  } elsif (&isdateparm($istype{$parmname})) {   } else {
     $r->print(&Apache::lonlocal::locallocaltime($value));      my ($level,@all)=&parmval_by_symb($what,$middle,&Apache::lonnet::metadata($middle,$what),
         $uname,$udom,$issection,$issection,$courseopt);
       if (&isdateparm($istype{$parmname})) {
    $r->print(&Apache::lonlocal::locallocaltime($value));
       } else {
    $r->print($value);
       }
       if ($value ne $all[$level]) {
    $r->print('<br /><font color="red">'.&mt('Not active anymore').'</font>');
       } else {
    $stillactive=1;
       }
    }
       }
       $r->print('</td>');
       if ($stillactive) {
    if (($uname) && ($udom)) {
       $r->print('<td>Notify Link</td>');
  } else {   } else {
     $r->print($value);      $r->print('<td>Blog Link</td>');
  }   }
       } else {
    $r->print('<td>&nbsp;</td>');
     }      }
     $r->print('</td></tr>');      $r->print('</tr>');
  }   }
     }      }
     $r->print('</table>');      $r->print('</table>');
Line 3514  sub handler { Line 3555  sub handler {
     &assessparms($r);      &assessparms($r);
         } elsif ($env{'form.action'} eq 'parameterchangelog' && $parm_permission) {          } elsif ($env{'form.action'} eq 'parameterchangelog' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
     text=>"Parameter Change Log and Course Blog Posting"});      text=>"Parameter Change Log"});
     &parm_change_log($r);      &parm_change_log($r);
  }          }       
     } else {      } else {
Removed from v.1.290  
changed lines
  Added in v.1.292

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>