version 1.36, 2002/05/01 20:15:41
|
version 1.39, 2002/05/03 17:45:07
|
Line 106 sub modifystudent {
|
Line 106 sub modifystudent {
|
} |
} |
if ($result eq '') { |
if ($result eq '') { |
$result eq 'Unable to find section for this student'; |
$result eq 'Unable to find section for this student'; |
} elsif ($result =~ /^(ok:)+$/) { |
} else { |
$result eq 'ok'; |
$result =~ s/(ok:)+/ok/g; |
} |
} |
return $result; |
return $result; |
} |
} |
Line 687 sub get_current_classlist {
|
Line 687 sub get_current_classlist {
|
} |
} |
return (undef,%currentlist); |
return (undef,%currentlist); |
} else { |
} else { |
|
$tmp =~ s/^error://; |
return ($tmp,undef); |
return ($tmp,undef); |
} |
} |
} |
} |
Line 695 sub get_current_classlist {
|
Line 696 sub get_current_classlist {
|
sub menu_phase_two_drop { |
sub menu_phase_two_drop { |
my $r=shift; |
my $r=shift; |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
my ($error,%currentlist)=&get_current_classlist($ENV{'course.'.$cid.'.domain'}, |
my ($error,%currentlist)=&get_current_classlist |
$ENV{'course.'.$cid.'.num'}); |
($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'}); |
if (defined($error)) { |
if (defined($error)) { |
$r->print('<pre>ERROR:$error</pre>'); |
if ($error =~ /^No such file or directory/) { |
} |
$r->print("There are no students currently enrolled.\n"); |
if (!defined(%currentlist)) { |
} else { |
|
$r->print("<pre>ERROR:$error</pre>"); |
|
} |
|
} elsif (!defined(%currentlist)) { |
$r->print("There are no students currently enrolled.\n"); |
$r->print("There are no students currently enrolled.\n"); |
} else { |
} else { |
# Print out the available choices |
# Print out the available choices |
Line 956 sub drop_student_list {
|
Line 960 sub drop_student_list {
|
foreach (@droplist) { |
foreach (@droplist) { |
my ($uname,$udom)=split(/\:/,$_); |
my ($uname,$udom)=split(/\:/,$_); |
my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'}); |
my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'}); |
if ($result eq 'ok') { |
if ($result eq 'ok' || $result eq 'ok:') { |
$r->print('Dropped '.$uname.' at '.$udom.'<br>'); |
$r->print('Dropped '.$uname.' at '.$udom.'<br>'); |
} else { |
} else { |
$r->print('Error dropping '.$uname.' at '.$udom.': '.$result. |
$r->print('Error dropping '.$uname.' at '.$udom.': '.$result. |