--- loncom/interface/Attic/londropadd.pm 2003/07/15 19:23:14 1.75 +++ loncom/interface/Attic/londropadd.pm 2003/07/25 18:05:06 1.77 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.75 2003/07/15 19:23:14 matthew Exp $ +# $Id: londropadd.pm,v 1.77 2003/07/25 18:05:06 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -154,7 +154,7 @@ sub print_main_menu {

- View Classlist + View Class List

@@ -553,6 +553,8 @@ sub print_upload_manager_form { # ======================================================= Enroll single student sub enroll_single_student { my $r=shift; + # Remove whitespace from section + $ENV{'form.csec'}=~s/\s//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 @@ -923,7 +925,7 @@ sub print_html_classlist {

-Current Classlist +Current Class List       END if ($ENV{'form.action'} ne 'modifystudent') { @@ -1028,7 +1030,7 @@ END $excel_workbook->set_tempdir('/home/httpd/perl/tmp'); $excel_sheet = $excel_workbook->addworksheet('classlist'); # - my $description = 'Classlist for '. + my $description = 'Class List for '. $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; $excel_sheet->write($row++,0,$description); # @@ -1195,6 +1197,9 @@ END sub modify_single_student { my $r = shift; # + # Remove whitespace from the section + $ENV{'form.section'} =~ s/\s//g; + # # Do the date defaults first my ($starttime,$endtime) = &get_dates_from_form(); if ($ENV{'form.makedatesdefault'}) { @@ -1625,6 +1630,8 @@ sub upfile_drop_add { $sec=$entries{$fields{'sec'}}; } } + # remove whitespace from section + $sec =~ s/\s//g; # determine student id number my $id=''; if (defined($fields{'id'})) {