version 1.35, 2002/04/30 15:24:16
|
version 1.38, 2002/05/03 16:30:48
|
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 175 sub phase_two_header {
|
Line 175 sub phase_two_header {
|
Total number of records found in file: $distotal <hr /> |
Total number of records found in file: $distotal <hr /> |
Enter as many fields as you can. The system will inform you and bring you back |
Enter as many fields as you can. The system will inform you and bring you back |
to this page if the data selected is insufficient to run your class.<hr /> |
to this page if the data selected is insufficient to run your class.<hr /> |
<input type="submit" name="associate" value="Reverse Association" /> |
<input type="button" value="Reverse Association" onClick="javascript:this.form.associate.value='Reverse Association';submit(this.form);" /> |
|
<input type="hidden" name="associate" value="" /> |
<input type="hidden" name="phase" value="three" /> |
<input type="hidden" name="phase" value="three" /> |
<input type="hidden" name="datatoken" value="$datatoken" /> |
<input type="hidden" name="datatoken" value="$datatoken" /> |
<input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" /> |
<input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" /> |
Line 457 LON-CAPA domain: $domform <p>
|
Line 458 LON-CAPA domain: $domform <p>
|
<input type=checkbox name=forceid value=yes> |
<input type=checkbox name=forceid value=yes> |
Disable ID/Student Number Safeguard and Force Change of Conflicting IDs |
Disable ID/Student Number Safeguard and Force Change of Conflicting IDs |
(only do if you know what you are doing)<p> |
(only do if you know what you are doing)<p> |
<input type="button" onClick="verify(this.form)" value="Update Courselist"><br> |
<input type="button" onClick="javascript:verify(this.form)" value="Update Courselist" /><br /> |
Note: for large courses, this operation might be time consuming. |
Note: for large courses, this operation might be time consuming. |
ENDPICK |
ENDPICK |
} |
} |
Line 686 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 694 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>'); |
$r->print("<pre>ERROR:$error</pre>"); |
} |
} elsif (!defined(%currentlist)) { |
if (!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 955 sub drop_student_list {
|
Line 956 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. |