--- loncom/interface/lonmodifycourse.pm	2003/12/29 14:38:44	1.4
+++ loncom/interface/lonmodifycourse.pm	2003/12/30 15:46:18	1.5
@@ -418,6 +418,7 @@ $disp_table
 <br/>
 ENDDOCUMENT
     &print_footer($r);
+    return;
 }
 
 sub modify_course {
@@ -671,32 +672,30 @@ $bodytag
  </tr>
 </table>
 ENDTHIS
+    return;
 }
 
 sub print_footer {
-  my $r = shift;
-  $r->print(<<ENDBASE);
+    my $r = shift;
+    $r->print(<<ENDBASE);
 <br/>
 </body>
 </html>
 ENDBASE
+    return;
 }
 
 sub check_course {
     my ($dom,$course) = @_;
     my %courseIDs = &Apache::lonnet::courseiddump($dom,'.',1);
-    my @courses = ();
     foreach my $key (sort keys %courseIDs) {
         if ($key =~ m/^($dom)_(\w+)$/) {
-            push @courses, $2;
+            if ($2 eq $course) {
+                return 'ok';
+            }
         }
     }
-    if (grep/^$course$/,@courses) {
-        return 'ok';
-    }
-    else {
-        return 'invalid course';
-    }
+    return 'invalid course';
 }