--- loncom/interface/coursecatalog.pm	2006/08/31 12:30:30	1.3
+++ loncom/interface/coursecatalog.pm	2006/09/13 21:35:46	1.4
@@ -123,13 +123,13 @@ function changeSort(caller) {
             my @items = ();
             my @longitems = ();
             if ($idlist{$codetitles[0]} =~ /","/) {
-                @items = split/","/,$idlist{$codetitles[0]};
+                @items = split(/","/,$idlist{$codetitles[0]});
             } else {
                 $items[0] = $idlist{$codetitles[0]};
             }
             if (defined($idlist_titles{$codetitles[0]})) {
                 if ($idlist_titles{$codetitles[0]} =~ /","/) {
-                    @longitems = split/","/,$idlist_titles{$codetitles[0]};
+                    @longitems = split(/","/,$idlist_titles{$codetitles[0]});
                 } else {
                     $longitems[0] = $idlist_titles{$codetitles[0]};
                 }
@@ -165,7 +165,7 @@ function changeSort(caller) {
         $r->print('<br /><input type="hidden" name="state" value="listing" /><input type="hidden" name="sortby" value="" /><input type="submit" name="catalogfilter" value="'.&mt('Display courses').'" /></form>');
     }
     if ($env{'form.state'} eq 'listing') {
-        $r->print('<br /><br >'.&print_course_listing($codedom));
+        $r->print('<br /><br />'.&print_course_listing($codedom));
     }
     $r->print(&Apache::loncommon::end_page());
 }
@@ -220,7 +220,7 @@ sub print_course_listing {
         $cleandesc=~s/'/\\'/g;
         my ($cdom,$cnum)=split(/\_/,$course);
        
-        my ($desc,$instcode,$owner,$ttype) = split/:/,$courses{$course};
+        my ($desc,$instcode,$owner,$ttype) = split(/:/,$courses{$course});
         $owner = &unescape($owner);
         my ($ownername,$ownerdom);
         if ($owner =~ /:/) {
@@ -290,7 +290,7 @@ sub courseinfo_row {
     my @classids;
     my @crosslistings;
     $idx{'status'} = &Apache::loncoursedata::CL_STATUS();
-    my %status_title = &Apache::lonlocal::texthash (
+    my %status_title = &Apache::lonlocal::texthash(
                            Expired => 'Previous access',
                            Active => 'Current access',
                            Future => 'Future access',
@@ -300,7 +300,7 @@ sub courseinfo_row {
                            Active => 0,
                            Future => 0,
                        );
-    while (my ($student,$data) = each %$classlist) {
+    while (my ($student,$data) = each(%$classlist)) {
         $student_count{$data->[$idx{'status'}]} ++;
     }
     my $seclist = &identify_sections($coursehash{'internal.sectionnums'});
@@ -387,7 +387,7 @@ sub identify_sections {
     my ($seclist) = @_;
     my @secnums;
     if ($seclist =~ /,/) {
-        my @sections = split/,/,$seclist;
+        my @sections = split(/,/,$seclist);
         foreach my $sec (@sections) {
             $sec =~ s/:[^:]*$//;
             push(@secnums,$sec);
@@ -395,8 +395,8 @@ sub identify_sections {
     } else {
         if ($seclist =~ m/^([^:]+):/) {
             my $sec = $1;
-            if (!grep/^$sec$/,@secnums) {
-                push (@secnums,$sec);
+            if (!grep(/^\Q$sec\E$/,@secnums)) {
+                push(@secnums,$sec);
             }
         }
     }
@@ -418,7 +418,7 @@ sub get_valid_classes {
             if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
 							 $class) eq 'ok') {
                 if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) {
-                    push (@{$validations{'sections'}},$sec);
+                    push(@{$validations{'sections'}},$sec);
                     $totalitems ++;
                 }
             }
@@ -429,7 +429,7 @@ sub get_valid_classes {
             if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
 							 $item) eq 'ok') {
                 if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) {
-                    push (@{$validations{'xlists'}},$item);
+                    push(@{$validations{'xlists'}},$item);
                     $totalitems ++;
                 }
             }