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

Diff for /loncom/auth/lonroles.pm between versions 1.281 and 1.283

version 1.281, 2013/01/04 04:03:03 version 1.283, 2013/05/06 16:16:03
Line 139  use Apache::lonpageflip(); Line 139  use Apache::lonpageflip();
 use Apache::lonnavdisplay();  use Apache::lonnavdisplay();
 use Apache::loncoursequeueadmin;  use Apache::loncoursequeueadmin;
 use Apache::longroup;  use Apache::longroup;
   use Apache::lonrss;
 use GDBM_File;  use GDBM_File;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
 use HTML::Entities;  use HTML::Entities;
Line 523  ENDENTERKEY Line 524  ENDENTERKEY
                             &Apache::lonnet::put('nohist_crslastlogin',                              &Apache::lonnet::put('nohist_crslastlogin',
                                 {$env{'user.name'}.':'.$env{'user.domain'}.                                  {$env{'user.name'}.':'.$env{'user.domain'}.
                                 ':'.$csec.':'.$role => $now},$cdom,$cnum);                                  ':'.$csec.':'.$role => $now},$cdom,$cnum);
                               my $feeds;
                               &Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);
                               &Apache::lonnet::appenv(
                                                      {'course.'.$cdom.'_'.$cnum.'.feeds' => $feeds}
                                                       );
                         }                          }
  if (($env{'form.orgurl'}) &&    if (($env{'form.orgurl'}) && 
     ($env{'form.orgurl'}!~/^\/adm\/flip/)) {      ($env{'form.orgurl'}!~/^\/adm\/flip/)) {
Line 2545  sub role_desc { Line 2551  sub role_desc {
     my ($item,$update,$refresh,$now) = @_;      my ($item,$update,$refresh,$now) = @_;
     my ($where,$trolecode,$role,$tstatus,$tend,$tstart,$twhere,      my ($where,$trolecode,$role,$tstatus,$tend,$tstart,$twhere,
         $trole,$tremark);          $trole,$tremark);
     &Apache::lonnet::role_status('user.role.'.$item,$update,$refresh,                                      $now,\$role,\$where, \$trolecode,      &Apache::lonnet::role_status('user.role.'.$item,$update,$refresh,
                                    $now,\$role,\$where,\$trolecode,
                                  \$tstatus,\$tstart,\$tend);                                   \$tstatus,\$tstart,\$tend);
     if ($role =~ /^cr\//) {      if ($role =~ /^cr\//) {
         my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);          my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);
Removed from v.1.281  
changed lines
  Added in v.1.283

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