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

[raeburn]

raeburn		Mon Dec 11 12:21:04 2006 EDT

  Modified files:              
    /loncom/interface	coursecatalog.pm 
  Log:
  Split list of sections and crosslistings on /, / instead of just /,/ 
  
  
Index: loncom/interface/coursecatalog.pm
diff -u loncom/interface/coursecatalog.pm:1.12 loncom/interface/coursecatalog.pm:1.13
--- loncom/interface/coursecatalog.pm:1.12	Mon Dec 11 10:13:26 2006
+++ loncom/interface/coursecatalog.pm	Mon Dec 11 12:21:04 2006
@@ -631,7 +631,7 @@
     @{$validations{'xlists'}} = ();
     my $totalitems = 0;
     if ($seclist) {
-        foreach my $sec (split(',',$seclist)) {
+        foreach my $sec (split(/, /,$seclist)) {
             my $class = $crscode.$sec;
             if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
 							 $class) eq 'ok') {
@@ -643,7 +643,7 @@
         }
     }
     if ($xlist_items) {
-        foreach my $item (split(',',$xlist_items)) {
+        foreach my $item (split(/, /,$xlist_items)) {
             if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
 							 $item) eq 'ok') {
                 if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) {