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

Diff for /loncom/interface/lonuserutils.pm between versions 1.11 and 1.12

version 1.11, 2007/12/05 21:23:14 version 1.12, 2007/12/06 04:03:36
Line 136  sub modifyuserrole { Line 136  sub modifyuserrole {
   
 sub propagate_id_change {  sub propagate_id_change {
     my ($uname,$udom,$user) = @_;      my ($uname,$udom,$user) = @_;
     my (@types,@roles,@cdoms);      my (@types,@roles);
     @types = ('active','future');      @types = ('active','future');
     @roles = ('st');      @roles = ('st');
     my $idresult;      my $idresult;
     my %roleshash = &Apache::lonnet::get_my_roles($uname,      my %roleshash = &Apache::lonnet::get_my_roles($uname,
                         $udom,'userroles',\@types,\@roles,\@cdoms);                          $udom,'userroles',\@types,\@roles);
       my %args = (
                   one_time => 1,
                  );
     foreach my $item (keys(%roleshash)) {      foreach my $item (keys(%roleshash)) {
         my ($cnum,$cdom,$role) = split(/:/,$item);          my ($cnum,$cdom,$role) = split(/:/,$item);
         my ($start,$end) = split(/:/,$roleshash{$item});          my ($start,$end) = split(/:/,$roleshash{$item});
         if (&Apache::lonnet::is_course($cdom,$cnum)) {          if (&Apache::lonnet::is_course($cdom,$cnum)) {
             my %userupdate;              my $result = &update_classlist($cdom,$cnum,$udom,$uname,$user);
             my $result = &update_classlist($cdom,$cnum,$udom,$uname,\%userupdate);              my %coursehash = 
                   &Apache::lonnet::coursedescription($cdom.'_'.$cnum,\%args);
               my $cdesc = $coursehash{'description'};
               if ($cdesc eq '') { 
                   $cdesc = $cdom.'_'.$cnum;
               }
             if ($result eq 'ok') {              if ($result eq 'ok') {
                 $idresult .= "Classlist change: $uname:$udom - class -> $cnum:$cdom\n";                  $idresult .= &mt('Classlist update for "[_1]" in "[_2]".',$uname.':'.$udom,$cdesc).'<br />'."\n";
             } else {              } else {
                 $idresult .= "Error - $result -during classlist update for $uname:$udom in $cnum:$cdom\n";                  $idresult .= &mt('Error: "[_1]" during classlist update for "[_2]" in "[_3]".',$result,$uname.':'.$udom,$cdesc).'<br />'."\n";
             }              }
         }          }
     }      }
Removed from v.1.11  
changed lines
  Added in v.1.12

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