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

Diff for /loncom/interface/lonparmset.pm between versions 1.284 and 1.285

version 1.284, 2006/04/13 20:54:35 version 1.285, 2006/04/13 21:32:23
Line 396  sub storeparm_by_symb { Line 396  sub storeparm_by_symb {
   
 {  {
     my $logid;      my $logid;
     sub logparmset {      sub log_parmset {
  my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;   my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
  $logid++;   $logid++;
  my $id=time.'00000'.$$.'00000'.$logid;   my $id=time().'00000'.$$.'00000'.$logid;
  &Apache::lonnet::put('parameterlog',{   &Apache::lonnet::put('parameterlog',
      $id.'_exe_uname' => $env{'user.name'},       {
      $id.'_exe_udom' => $env{'user.domain'},   $id.'_exe_uname' => $env{'user.name'},
      $id.'_exe_time' => time,   $id.'_exe_udom'  => $env{'user.domain'},
      $id.'_exe_ip' => $ENV{'REMOTE_ADDR'},   $id.'_exe_time'  => time(),
      $id.'_symb' => $symb,   $id.'_exe_ip'    => $ENV{'REMOTE_ADDR'},
                              $id.'_spnam' => $spnam,   $id.'_symb'      => $symb,
                              $id.'_snum' => $snum,   $id.'_spnam'     => $spnam,
      $id.'_nval' => $nval,   $id.'_snum'      => $snum,
      $id.'_ntype' => $ntype,   $id.'_nval'      => $nval,
                              $id.'_uname' => $uname,   $id.'_ntype'     => $ntype,
      $id.'_udom' => $udom,   $id.'_uname'     => $uname,
      $id.'_csec' => $csec,   $id.'_udom'      => $udom,
      $id.'_cgroup' => $cgroup},   $id.'_csec'      => $csec,
    $id.'_cgroup'    => $cgroup
        },
      $env{'course.'.$env{'request.course.id'}.'.domain'},       $env{'course.'.$env{'request.course.id'}.'.domain'},
      $env{'course.'.$env{'request.course.id'}.'.num'}       $env{'course.'.$env{'request.course.id'}.'.num'}
      );       );
Line 423  sub storeparm_by_symb { Line 425  sub storeparm_by_symb {
 sub storeparm_by_symb_inner {  sub storeparm_by_symb_inner {
 # ---------------------------------------------------------- Get symb, map, etc  # ---------------------------------------------------------- Get symb, map, etc
     my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;      my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
     &logparmset(@_);      &log_parmset(@_);
 # ---------------------------------------------------------- Construct prefixes  # ---------------------------------------------------------- Construct prefixes
     $spnam=~s/\_([^\_]+)$/\.$1/;      $spnam=~s/\_([^\_]+)$/\.$1/;
     my $map=(&Apache::lonnet::decode_symb($symb))[0];          my $map=(&Apache::lonnet::decode_symb($symb))[0];    
Line 3314  ENDYESNO Line 3316  ENDYESNO
     return;      return;
 }  }
   
 sub parmchangelog {  sub parm_change_log {
     my ($r)=@_;      my ($r)=@_;
     &startpage($r);      &startpage($r);
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
Line 3415  sub handler { Line 3417  sub handler {
         } 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 and Course Blog Posting"});
     &parmchangelog($r);      &parm_change_log($r);
  }          }       
     } else {      } else {
 # ----------------------------- Not in a course, or not allowed to modify parms  # ----------------------------- Not in a course, or not allowed to modify parms
Removed from v.1.284  
changed lines
  Added in v.1.285

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