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"; |
} |
} |
} |
} |
} |
} |