[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.1186 and 1.1187

version 1.1186, 2012/08/21 04:04:58 version 1.1187, 2012/08/23 14:17:48
Line 113  our @ISA = qw (Exporter); Line 113  our @ISA = qw (Exporter);
 our @EXPORT = qw(%env);  our @EXPORT = qw(%env);
   
   
 # ---------------------------------------------------------------- Role Logging  # ------------------------------------ Logging (parameters, docs, slots, roles)
 {  {
     my $logid;      my $logid;
     sub write_rolelog {      sub write_log {
  my ($context,$hash_name,$storehash,$delflag,$udom,$uname,$cdom,$cnum)=@_;   my ($context,$hash_name,$storehash,$delflag,$udom,$uname,$cdom,$cnum)=@_;
         if ($context eq 'course') {          if ($context eq 'course') {
             if (($cnum eq '') || ($cdom eq '')) {              if (($cnum eq '') || ($cdom eq '')) {
Line 3555  sub courserolelog { Line 3555  sub courserolelog {
         } else {          } else {
             $storehash{'section'} = $sec;              $storehash{'section'} = $sec;
         }          }
         &write_rolelog('course',$namespace,\%storehash,$delflag,$domain,          &write_log('course',$namespace,\%storehash,$delflag,$domain,
                        $username,$cdom,$cnum);                     $username,$cdom,$cnum);
         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_rolelog('domain',$namespace,\%storehash,$delflag,$domain,          &write_log('domain',$namespace,\%storehash,$delflag,$domain,
                        $username,$cdom,$domconfiguser);                     $username,$cdom,$domconfiguser);
     }      }
     return;      return;
   
Line 3595  sub coauthorrolelog { Line 3595  sub coauthorrolelog {
                            end     => $tend,                             end     => $tend,
                            context => $context,                             context => $context,
                         );                          );
         &write_rolelog('author',$namespace,\%storehash,$delflag,$domain,          &write_log('author',$namespace,\%storehash,$delflag,$domain,
                        $username,$audom,$auname);                     $username,$audom,$auname);
     }      }
     return;      return;
 }  }
Removed from v.1.1186  
changed lines
  Added in v.1.1187

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