version 1.96, 2003/06/13 15:43:28
|
version 1.97, 2003/06/13 21:29:30
|
Line 2395 sub csvuploadassign {
|
Line 2395 sub csvuploadassign {
|
} |
} |
$request->print('<h3>Assigning Grades</h3>'); |
$request->print('<h3>Assigning Grades</h3>'); |
my $courseid=$ENV{'request.course.id'}; |
my $courseid=$ENV{'request.course.id'}; |
my ($classlist) = &getclasslist('all','1'); |
my ($classlist) = &getclasslist('all',0); |
my @skipped; |
my @skipped; |
my $countdone=0; |
my $countdone=0; |
foreach my $grade (@gradedata) { |
foreach my $grade (@gradedata) { |
Line 2427 sub csvuploadassign {
|
Line 2427 sub csvuploadassign {
|
$request->print('<br /><font size="+1"><b>Skipped Students</b></font><br />'); |
$request->print('<br /><font size="+1"><b>Skipped Students</b></font><br />'); |
foreach my $student (@skipped) { $request->print("<br />$student"); } |
foreach my $student (@skipped) { $request->print("<br />$student"); } |
} |
} |
$request->print(&view_edit_entire_class_form($symb,$url)); |
|
$request->print(&show_grading_menu_form($symb,$url)); |
$request->print(&show_grading_menu_form($symb,$url)); |
return ''; |
return ''; |
} |
} |