[LON-CAPA-cvs] cvs: loncom /interface londropadd.pm

matthew lon-capa-cvs@mail.lon-capa.org
Fri, 25 Jul 2003 18:05:06 -0000


matthew		Fri Jul 25 14:05:06 2003 EDT

  Modified files:              
    /loncom/interface	londropadd.pm 
  Log:
  For inclusion in 1.0.  Section names with spaces in them cause problems,
  so trap and silently remove them.
  
  
Index: loncom/interface/londropadd.pm
diff -u loncom/interface/londropadd.pm:1.76 loncom/interface/londropadd.pm:1.77
--- loncom/interface/londropadd.pm:1.76	Mon Jul 21 13:54:43 2003
+++ loncom/interface/londropadd.pm	Fri Jul 25 14:05:06 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.76 2003/07/21 17:54:43 albertel Exp $
+# $Id: londropadd.pm,v 1.77 2003/07/25 18:05:06 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -553,6 +553,8 @@
 # ======================================================= 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
@@ -1195,6 +1197,9 @@
 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 @@
                             $sec=$entries{$fields{'sec'}};
                         }
                     }
+                    # remove whitespace from section
+                    $sec =~ s/\s//g;
                     # determine student id number
                     my $id='';
                     if (defined($fields{'id'})) {