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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1187 and 1.1188

version 1.1187, 2012/08/23 14:17:48 version 1.1188, 2012/08/27 14:33:24
Line 117  our @EXPORT = qw(%env); Line 117  our @EXPORT = qw(%env);
 {  {
     my $logid;      my $logid;
     sub write_log {      sub write_log {
  my ($context,$hash_name,$storehash,$delflag,$udom,$uname,$cdom,$cnum)=@_;   my ($context,$hash_name,$storehash,$delflag,$uname,$udom,$cnum,$cdom)=@_;
         if ($context eq 'course') {          if ($context eq 'course') {
             if (($cnum eq '') || ($cdom eq '')) {              if (($cnum eq '') || ($cdom eq '')) {
                 $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};                  $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
Line 3555  sub courserolelog { Line 3555  sub courserolelog {
         } else {          } else {
             $storehash{'section'} = $sec;              $storehash{'section'} = $sec;
         }          }
         &write_log('course',$namespace,\%storehash,$delflag,$domain,          &write_log('course',$namespace,\%storehash,$delflag,$username,
                    $username,$cdom,$cnum);                     $domain,$cnum,$cdom);
         if (($trole ne 'st') || ($sec ne '')) {          if (($trole ne 'st') || ($sec ne '')) {
             &devalidate_cache_new('getcourseroles',$cdom.'_'.$cnum);              &devalidate_cache_new('getcourseroles',$cdom.'_'.$cnum);
         }          }
Line 3576  sub domainrolelog { Line 3576  sub domainrolelog {
                            end     => $tend,                             end     => $tend,
                            context => $context,                             context => $context,
                         );                          );
         &write_log('domain',$namespace,\%storehash,$delflag,$domain,          &write_log('domain',$namespace,\%storehash,$delflag,$username,
                    $username,$cdom,$domconfiguser);                     $domain,$domconfiguser,$cdom);
     }      }
     return;      return;
   
Line 3595  sub coauthorrolelog { Line 3595  sub coauthorrolelog {
                            end     => $tend,                             end     => $tend,
                            context => $context,                             context => $context,
                         );                          );
         &write_log('author',$namespace,\%storehash,$delflag,$domain,          &write_log('author',$namespace,\%storehash,$delflag,$username,
                    $username,$audom,$auname);                     $domain,$auname,$audom);
     }      }
     return;      return;
 }  }
Removed from v.1.1187  
changed lines
  Added in v.1.1188

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