--- loncom/interface/Attic/londropadd.pm 2002/05/03 20:38:13 1.40
+++ loncom/interface/Attic/londropadd.pm 2002/05/06 17:48:57 1.41
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.40 2002/05/03 20:38:13 matthew Exp $
+# $Id: londropadd.pm,v 1.41 2002/05/06 17:48:57 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -156,7 +156,8 @@ $upfile_select
Classlist
-
+
+
Drop students
@@ -735,20 +736,45 @@ sub menu_phase_two_view {
$r->print("There are no students currently enrolled.\n");
} else {
# Print out the available choices
- &show_class_list($r,%currentlist);
+ &show_class_list($r,'view',%currentlist);
+ }
+}
+
+# ============================================== view classlist
+sub menu_phase_two_viewcsv {
+ my $r=shift;
+ my $cid=$ENV{'request.course.id'};
+ my ($error,%currentlist)=&get_current_classlist
+ ($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'});
+ if (defined($error)) {
+ if ($error =~ /^No such file or directory/) {
+ $r->print("There are no students currently enrolled.\n");
+ } else {
+ $r->print("
ERROR:$error
");
+ }
+ } elsif (!defined(%currentlist)) {
+ $r->print("There are no students currently enrolled.\n");
+ } else {
+ &show_class_list($r,'csv',%currentlist);
}
}
# =================================================== Show student list to drop
sub show_class_list {
- my ($r,%currentlist)=@_;
+ my ($r,$mode,%currentlist)=@_;
my $cid=$ENV{'request.course.id'};
- $r->print(<print(<
username
domain
ID
student name
generation
section
END
+ } elsif ($mode eq 'csv') {
+ $r->print(<print('
'.
- 'Internal error: unable to get environment '.
- 'for '.$sname.' in domain '.$sdom.'
');
+ $r->print( ($mode eq 'view' ?
+ '
' :'').
+ 'Internal error: unable to get environment '.
+ 'for '.$sname.' in domain '.$sdom.
+ ( $mode eq 'view' ?'