version 1.9, 2003/12/15 05:39:40
|
version 1.10, 2004/01/14 21:03:31
|
Line 185 sub update_LC {
|
Line 185 sub update_LC {
|
# Check for section changes |
# Check for section changes |
unless ($$currlist{$uname}[$sec] eq $stuinfo[ $place{groupID} ]) { |
unless ($$currlist{$uname}[$sec] eq $stuinfo[ $place{groupID} ]) { |
if ( ($$currlist{$uname}[$type] eq "auto") && ($adds == 1) ) { |
if ( ($$currlist{$uname}[$type] eq "auto") && ($adds == 1) ) { |
my $modify_section_result = &Apache::lonnet::modify_student_enrollment($dom,$uname,undef,undef,undef,undef,undef,$stuinfo[ $place{groupID} ],$$currlist{$uname}[$cend],$$currlist{$uname}[$cstart],'auto',$cid); |
# Delete from roles.db for current section |
if ($modify_section_result =~ /^ok/) { |
my $expiretime = time; |
$$logmsg .= "Section for $uname switched from old section: ".$$currlist{$uname}[$sec] ." to new section: ".$stuinfo[ $place{groupID} ].".".$linefeed; |
my $uurl='/'.$cid; |
|
$uurl=~s/\_/\//g; |
|
if ($$currlist{$uname}[$sec]) { |
|
$uurl.='/'.$$currlist{$uname}[$sec]; |
|
} |
|
my $expire_role_result = &Apache::lonnet::assignrole($dom,$uname,$uurl,'st',$expiretime); |
|
if ($expire_role_result eq 'ok') { |
|
my $modify_section_result = &Apache::lonnet::modify_student_enrollment($dom,$uname,undef,undef,undef,undef,undef,$stuinfo[ $place{groupID} ],$$currlist{$uname}[$cend],$$currlist{$uname}[$cstart],'auto',$cid); |
|
if ($modify_section_result =~ /^ok/) { |
|
$$logmsg .= "Section for $uname switched from old section: ".$$currlist{$uname}[$sec] ." to new section: ".$stuinfo[ $place{groupID} ].".".$linefeed; |
|
} else { |
|
$$logmsg .= "Error when attempting section change for $uname from old section ".$$currlist{$uname}[$sec]." to new section: ".$stuinfo[ $place{groupID} ]." -error: $modify_section_result".$linefeed; |
|
} |
} else { |
} else { |
$$logmsg .= "Error when attempting section change for $uname from old section ".$$currlist{$uname}[$sec]." to new section: ".$stuinfo[ $place{groupID} ]." -error: $modify_section_result".$linefeed; |
$$logmsg .= "Error when attempting to expire role for $uname in old section" .$$currlist{$uname}[$sec]." -error: $expire_role_result".$linefeed; |
} |
} |
} |
} |
} |
} |