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

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

version 1.292, 2006/04/18 02:13:49 version 1.293, 2006/04/18 18:10:55
Line 394  sub storeparm_by_symb { Line 394  sub storeparm_by_symb {
     return '';      return '';
 }  }
   
 {  sub log_parmset {
     my $logid;      return &Apache::lonnet::instructor_log('parameterlog',@_);
     sub log_parmset {  
  my ($storehash,$delflag,$uname,$udom)=@_;  
         my $logentry=join(',',map {  
     &Apache::lonnet::escape($_).'=>'.&Apache::lonnet::escape($$storehash{$_});  
  } keys %$storehash);  
  $logid++;  
  my $id=time().'00000'.$$.'00000'.$logid;  
  &Apache::lonnet::put('nohist_parameterlog',  
      {  
  $id.'_exe_uname' => $env{'user.name'},  
  $id.'_exe_udom'  => $env{'user.domain'},  
  $id.'_exe_time'  => time(),  
  $id.'_exe_ip'    => $ENV{'REMOTE_ADDR'},  
  $id.'_delflag'   => $delflag,  
                                  $id.'_logentry'  => $logentry,  
  $id.'_uname'     => $uname,  
  $id.'_udom'      => $udom,  
      },  
      $env{'course.'.$env{'request.course.id'}.'.domain'},  
      $env{'course.'.$env{'request.course.id'}.'.num'}  
      );  
     }  
 }  }
   
 sub storeparm_by_symb_inner {  sub storeparm_by_symb_inner {
Line 2614  sub listdata { Line 2592  sub listdata {
 #  #
 # Ready to print  # Ready to print
 #  #
     $r->print(&tablestart().'<tr><td><b>'.$name.      $r->print(&tablestart().'<tr><td><b>'.&standard_parameter_names($name).
       ':</b></td><td><input type="checkbox" name="del_'.        '</b></td><td><input type="checkbox" name="del_'.
       $thiskey.'" /></td><td>');        $thiskey.'" /></td><td>');
     $foundkeys++;      $foundkeys++;
     if (&isdateparm($thistype)) {      if (&isdateparm($thistype)) {
Line 3355  sub components { Line 3333  sub components {
     return ($realm,$section,$name,$part,$typeflag,      return ($realm,$section,$name,$part,$typeflag,
     $what,$middle,$uname,$udom,$issection);      $what,$middle,$uname,$udom,$issection);
 }  }
   
 sub standard_parameter_names {  sub standard_parameter_names {
     my ($name)=@_;      my ($name)=@_;
     my %standard_parms=&Apache::lonlocal::texthash('duedate' => 'Due Date',      my %standard_parms=&Apache::lonlocal::texthash('duedate' => 'Due Date',
Line 3363  sub standard_parameter_names { Line 3342  sub standard_parameter_names {
    'maxtries' => 'Max. Number of Tries',     'maxtries' => 'Max. Number of Tries',
    'weight' => 'Weight',     'weight' => 'Weight',
    'date_start' => 'Starting Date',     'date_start' => 'Starting Date',
    'date_end' => 'Ending Date');     'date_end' => 'Ending Date',
      'int_pos' => 'Positive Integer',
      'int_zero_pos' => 'Positive Integer or Zero',
      'hinttries' => 'Number of Tries till Hints appear');
     if ($standard_parms{$name}) {      if ($standard_parms{$name}) {
  return $standard_parms{$name};    return $standard_parms{$name}; 
     } else {       } else { 
Line 3386  sub parm_change_log { Line 3368  sub parm_change_log {
     my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},      my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},
      $env{'course.'.$env{'request.course.id'}.'.domain'});       $env{'course.'.$env{'request.course.id'}.'.domain'});
     $r->print('<table border="2">');      $r->print('<table border="2">');
       my $bgcolor='#EEEEEE';
     foreach my $id (sort { $exetime{$b}<=>$exetime{$a} } (keys(%exetime))) {      foreach my $id (sort { $exetime{$b}<=>$exetime{$a} } (keys(%exetime))) {
         my @changes=split(/\,/,$parmlog{$id.'_logentry'});   if ($bgcolor eq '#EEEEEE') { $bgcolor='#FFFFCC'; } else { $bgcolor='#EEEEEE'; }
           my @changes=keys(%{$parmlog{$id.'_logentry'}});
  my $count=$#changes+1;   my $count=$#changes+1;
  my $time =   my $time =
     &Apache::lonlocal::locallocaltime($parmlog{$id.'_exe_time'});      &Apache::lonlocal::locallocaltime($parmlog{$id.'_exe_time'});
Line 3398  sub parm_change_log { Line 3382  sub parm_change_log {
     &Apache::loncommon::aboutmewrapper($plainname,      &Apache::loncommon::aboutmewrapper($plainname,
        $parmlog{$id.'_exe_uname'},         $parmlog{$id.'_exe_uname'},
        $parmlog{$id.'_exe_udom'});         $parmlog{$id.'_exe_udom'});
    my $send_msg_link='';
  my $send_msg_link;  
  if ((($parmlog{$id.'_exe_uname'} ne $env{'user.name'})    if ((($parmlog{$id.'_exe_uname'} ne $env{'user.name'}) 
      || ($parmlog{$id.'_exe_udom'} ne $env{'user.domain'}))) {       || ($parmlog{$id.'_exe_udom'} ne $env{'user.domain'}))) {
     my $send_msg_link ='<br />'.      $send_msg_link ='<br />'.
  &Apache::loncommon::messagewrapper(&mt('Send message'),   &Apache::loncommon::messagewrapper(&mt('Send message'),
    $parmlog{$id.'_exe_uname'},     $parmlog{$id.'_exe_uname'},
    $parmlog{$id.'_exe_udom'});     $parmlog{$id.'_exe_udom'});
  }   }
  $r->print('<tr><td rowspan="'.$count.'">'.$time.'</td>   $r->print('<tr bgcolor="'.$bgcolor.'"><td rowspan="'.$count.'">'.$time.'</td>
                        <td rowspan="'.$count.'">'.$about_me_link.                         <td rowspan="'.$count.'">'.$about_me_link.
   '<br /><tt>'.$parmlog{$id.'_exe_uname'}.    '<br /><tt>'.$parmlog{$id.'_exe_uname'}.
           ':'.$parmlog{$id.'_exe_udom'}.'</tt>'.            ':'.$parmlog{$id.'_exe_udom'}.'</tt>'.
   $send_msg_link.'</td>');    $send_msg_link.'</td>');
  my $makenewrow=0;   my $makenewrow=0;
  my %istype=();   my %istype=();
  foreach my $changed (sort @changes) {   foreach my $changed (reverse(sort(@changes))) {
             my ($key,$value)=split(/\=\>/,&Apache::lonnet::unescape($changed));              my $value=$parmlog{$id.'_logentry'}->{$changed};
             my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection)=              my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection)=
  &components($key,$parmlog{$id.'_uname'},$parmlog{$id.'_udom'});   &components($changed,$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 bgcolor="'.$bgcolor.'">'); } else { $makenewrow=1; }
     $r->print('<td>'.$realm.'</td><td>'.$section.'</td><td>'.      $r->print('<td>'.$realm.'</td><td>'.$section.'</td><td>'.
       &standard_parameter_names($parmname).'</td><td>'.        &standard_parameter_names($parmname).'</td><td>'.
       ($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>');        ($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>');
Removed from v.1.292  
changed lines
  Added in v.1.293

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