--- loncom/interface/Attic/londropadd.pm 2002/10/15 14:41:31 1.56
+++ loncom/interface/Attic/londropadd.pm 2002/10/16 13:00:57 1.57
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.56 2002/10/15 14:41:31 matthew Exp $
+# $Id: londropadd.pm,v 1.57 2002/10/16 13:00:57 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -752,10 +752,26 @@ sub print_drop_menu {
# ============================================== view classlist
sub print_html_classlist {
my $r=shift;
+ if (! exists($ENV{'form.sortby'})) {
+ $ENV{'form.sortby'} = 'username';
+ }
+ if (! exists($ENV{'form.Status'}) ||
+ $ENV{'form.Status'} !~ /^(Any|Expired|Active)$/) {
+ $ENV{'form.Status'} = 'Active';
+ }
+ my $status_select = &Apache::lonhtmlcommon::StatusOptions
+ ($ENV{'form.Status'},'studentform');
$r->print(<
-Current Classlist -CSV format +Current Classlist + + +CSV format + + +$status_select
END my $cid=$ENV{'request.course.id'}; @@ -766,10 +782,10 @@ END # Print out the available choices if ($ENV{'form.action'} eq 'modifystudent') { &show_class_list($r,'view','modify','modifystudent', - 'Active',$classlist,$keylist); + $ENV{'form.Status'},$classlist,$keylist); } else { &show_class_list($r,'view','aboutme','classlist', - 'Active',$classlist,$keylist); + $ENV{'form.Status'},$classlist,$keylist); } } } @@ -783,7 +799,7 @@ sub print_csv_classlist { $r->print("There are no students currently enrolled.\n"); } else { &show_class_list($r,'csv','nolink','csv', - 'Active',$classlist,$keylist); + $ENV{'form.Status'},$classlist,$keylist); } } @@ -791,8 +807,8 @@ sub print_csv_classlist { sub show_class_list { my ($r,$mode,$linkto,$action,$statusmode,$classlist,$keylist)=@_; my $cid=$ENV{'request.course.id'}; - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, - ['sortby']); +# &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, +# ['sortby']); my $sortby = $ENV{'form.sortby'}; if ($sortby !~ /^(username|domain|section|fullname|id)$/) { $sortby = 'username'; @@ -809,15 +825,15 @@ sub show_class_list {
- username + username | - domain + domain | - ID + ID | - student name + student name | - section + section |
---|---|---|---|---|
\n "); if ($linkto eq 'nothing') { |