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

[matthew]

matthew		Tue Jul 29 16:00:56 2003 EDT

  Modified files:              
    /loncom/interface	londropadd.pm 
  Log:
  Trap non-alphanumeric values in the Section instead of just whitespace and
  colons.
  
  
Index: loncom/interface/londropadd.pm
diff -u loncom/interface/londropadd.pm:1.79 loncom/interface/londropadd.pm:1.80
--- loncom/interface/londropadd.pm:1.79	Mon Jul 28 13:10:12 2003
+++ loncom/interface/londropadd.pm	Tue Jul 29 16:00:56 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.79 2003/07/28 17:10:12 matthew Exp $
+# $Id: londropadd.pm,v 1.80 2003/07/29 20:00:56 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -553,8 +553,8 @@
 # ======================================================= Enroll single student
 sub enroll_single_student {
     my $r=shift;
-    # Remove whitespace from section
-    $ENV{'form.csec'}=~s/(\s|:)//g;
+    # Remove non alphanumeric values from section
+    $ENV{'form.csec'}=~s/\W//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
@@ -1201,8 +1201,8 @@
 sub modify_single_student {
     my $r = shift;
     #
-    # Remove whitespace from the section
-    $ENV{'form.section'} =~ s/(\s|:)//g;
+    # Remove non alphanumeric values from the section
+    $ENV{'form.section'} =~ s/\W//g;
     #
     # Do the date defaults first
     my ($starttime,$endtime) = &get_dates_from_form();
@@ -1642,8 +1642,8 @@
                             $sec=$entries{$fields{'sec'}};
                         }
                     }
-                    # remove whitespace from section
-                    $sec =~ s/(\s|:)//g;
+                    # remove non alphanumeric values from section
+                    $sec =~ s/\W//g;
                     # determine student id number
                     my $id='';
                     if (defined($fields{'id'})) {