--- loncom/interface/Attic/londropadd.pm	2002/10/16 13:00:57	1.57
+++ loncom/interface/Attic/londropadd.pm	2002/10/16 15:02:28	1.58
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.57 2002/10/16 13:00:57 matthew Exp $
+# $Id: londropadd.pm,v 1.58 2002/10/16 15:02:28 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -762,7 +762,7 @@ sub print_html_classlist {
     my $status_select = &Apache::lonhtmlcommon::StatusOptions
         ($ENV{'form.Status'},'studentform');
     $r->print(<<END);
-<input type="hidden" name="action" value="classlist" />
+<input type="hidden" name="action" value="$ENV{'form.action'}" />
 <input type="hidden" name="state"  value="" />
 <p>
 <font size="+1">Current Classlist</font>
@@ -838,8 +838,16 @@ sub show_class_list {
 </tr>
 END
     } elsif ($mode eq 'csv') {
-        $r->print('"'.join('","',("username","domain","ID","student name",
-                                  "section")).'"'."\n");
+        if($statusmode eq 'Expired') {
+            $r->print('"Students with expired roles"');
+        }
+        if ($statusmode eq 'Any') {
+            $r->print('"'.join('","',("username","domain","ID","student name",
+                                      "section","status")).'"'."\n");
+        } else {
+            $r->print('"'.join('","',("username","domain","ID","student name",
+                                      "section")).'"'."\n");
+        }
     }
     #
     # Sort the students
@@ -894,6 +902,9 @@ END
             foreach ($username,$domain,$id,$name,$section) {
                 push @line,&Apache::loncommon::csv_translate($_);
             }
+            if ($statusmode eq 'Any') {
+                push @line,&Apache::loncommon::csv_translate($status);
+            }
             my $tmp = $";
             $" = '","';
             $r->print("\"@line\"\n");