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

Diff for /loncom/auth/lonroles.pm between versions 1.269.2.6 and 1.269.2.7

version 1.269.2.6, 2013/01/01 03:45:50 version 1.269.2.7, 2013/01/04 04:08:34
Line 617  ENDENTERKEY Line 617  ENDENTERKEY
                                             }                                              }
                                             if (($checkenc) && ($destsymb ne '')) {                                              if (($checkenc) && ($destsymb ne '')) {
                                                 my ($encstate,$unencsymb,$res);                                                  my ($encstate,$unencsymb,$res);
                                                 my $unencsymb = &Apache::lonnet::symbclean($destsymb);                                                  $unencsymb = &Apache::lonnet::symbclean($destsymb);
                                                 (undef,undef,$res) = &Apache::lonnet::decode_symb($unencsymb);                                                  (undef,undef,$res) = &Apache::lonnet::decode_symb($unencsymb);
                                                 &Apache::lonnet::symbverify($unencsymb,$res,\$encstate);                                                  &Apache::lonnet::symbverify($unencsymb,$res,\$encstate);
                                                 if ($encstate) {                                                  if ($encstate) {
Line 2158  sub update_session_roles { Line 2158  sub update_session_roles {
                     my $status_in_db =                      my $status_in_db =
                         &curr_role_status($tstart,$tend,$refresh,$now);                          &curr_role_status($tstart,$tend,$refresh,$now);
                     my ($rdummy,$rest) = split(/\//,$role,2);                      my ($rdummy,$rest) = split(/\//,$role,2);
                     my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);  
                     my %currpriv;                      my %currpriv;
                     unless (exists($crprivs{$rest})) {                      unless (exists($crprivs{$rest})) {
                         my ($rdomain,$rauthor,$rrole)=split(/\//,$rest);                          my ($rdomain,$rauthor,$rrole)=split(/\//,$rest);
Line 2412  sub update_session_roles { Line 2411  sub update_session_roles {
                             }                              }
                             $groupmsg .= '<li><b>'.                              $groupmsg .= '<li><b>'.
                                          $env{'course.'.$cdom.'_'.$cnum.'.description'}.'</b><ul>';                                           $env{'course.'.$cdom.'_'.$cnum.'.description'}.'</b><ul>';
                               $currcrs = $cdom.'_'.$cnum;
                         }                          }
                         my ($cdom,$cnum) = split(/\//,$1);  
                         my $group = $2;  
                         my $groupdesc;                          my $groupdesc;
                         unless (ref($curr_groups{$cdom.'_'.$cnum}) eq 'HASH') {                          unless (ref($curr_groups{$cdom.'_'.$cnum}) eq 'HASH') {
                             %{$curr_groups{$cdom.'_'.$cnum}} =                              %{$curr_groups{$cdom.'_'.$cnum}} =
Removed from v.1.269.2.6  
changed lines
  Added in v.1.269.2.7

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