--- loncom/interface/Attic/londropadd.pm	2004/03/08 17:31:37	1.107
+++ 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.107 2004/03/08 17:31:37 www Exp $
+# $Id: londropadd.pm,v 1.109 2004/05/12 20:04:57 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1195,9 +1195,9 @@ sub show_class_list {
     }
     # Print out header 
     $r->print(<<END);
+
+<input type="hidden" name="state" value="$ENV{'form.state'}" />
 <input type="hidden" name="sortby" value="$sortby" />
-<input type="hidden" name="sname"  value="" />
-<input type="hidden" name="sdom"   value="" />
 END
     if ($mode eq 'view') {
         if ($linkto eq 'aboutme') {
@@ -1212,13 +1212,12 @@ END
                        'sec'    => "section",
 					   );
         $r->print(<<END);
-
-<input type="hidden" name="sortby" value="$sortby" />
 <input type="hidden" name="sname"  value="" />
 <input type="hidden" name="sdom"   value="" />
 <p>
 <table border=2>
-<tr><th>
+<tr><th>Count
+    </th><th>
        <a href="javascript:document.studentform.sortby.value='username';document.studentform.submit();">$lt{'usrn'}</a>
     </th><th>
        <a href="javascript:document.studentform.sortby.value='domain';document.studentform.submit();">$lt{'dom'}</a>
@@ -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("<tr>\n    <td>\n        ");
+            $r->print("<tr>\n    <td>".(++$studentcount)."</td><td>\n    ");
             if ($linkto eq 'nothing') {
                 $r->print($username);
             } elsif ($linkto eq 'aboutme') {