--- loncom/interface/Attic/londropadd.pm 2004/03/01 16:34:54 1.106 +++ loncom/interface/Attic/londropadd.pm 2004/05/12 20:04:57 1.109 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.106 2004/03/01 16:34:54 matthew Exp $ +# $Id: londropadd.pm,v 1.109 2004/05/12 20:04:57 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -699,7 +699,7 @@ sub enroll_single_student { $ENV{'form.csec'}=~s/\W//g; # # We do the dates first because the action of making them the defaul - # in the course is entirely seperate from the action of enrolling the + # in the course is entirely separate from the action of enrolling the # student. Also, a failure in setting the dates as default is not fatal # to the process of enrolling / modifying a student. my ($startdate,$enddate) = &get_dates_from_form(); @@ -1195,9 +1195,9 @@ sub show_class_list { } # Print out header $r->print(< - - END if ($mode eq 'view') { if ($linkto eq 'aboutme') { @@ -1212,13 +1212,12 @@ END 'sec' => "section", ); $r->print(<

-\n \n
+
Count + $lt{'usrn'} $lt{'dom'} @@ -1296,6 +1295,7 @@ END || lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third]) } (keys(%$classlist)); + my $studentcount = 0; foreach my $student (@Sorted_Students) { my $username = $classlist->{$student}->[$index{'username'}]; my $domain = $classlist->{$student}->[$index{'domain'}]; @@ -1305,7 +1305,7 @@ END my $status = $classlist->{$student}->[$index{'status'}]; next if (($statusmode ne 'Any') && ($status ne $statusmode)); if ($mode eq 'view') { - $r->print("
\n "); + $r->print("
".(++$studentcount)."\n "); if ($linkto eq 'nothing') { $r->print($username); } elsif ($linkto eq 'aboutme') {