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

[raeburn]

raeburn		Wed Apr 27 15:09:30 2005 EDT

  Modified files:              
    /loncom/interface	lonmodifycourse.pm 
  Log:
  Add extra argument to pass to courseiddump for LON-CAPA courseID (as required by /lonnet/perl/lonnet.pm rev. 1.622).
  
  
Index: loncom/interface/lonmodifycourse.pm
diff -u loncom/interface/lonmodifycourse.pm:1.17 loncom/interface/lonmodifycourse.pm:1.18
--- loncom/interface/lonmodifycourse.pm:1.17	Mon Apr 11 20:20:00 2005
+++ loncom/interface/lonmodifycourse.pm	Wed Apr 27 15:09:30 2005
@@ -701,7 +701,7 @@
 
 sub check_course {
     my ($dom,$course) = @_;
-    my %courseIDs = &Apache::lonnet::courseiddump($dom,'.',1,'.','.');
+    my %courseIDs = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.');
     foreach my $key (sort keys %courseIDs) {
         if ($key =~ m/^($dom)_(\w+)$/) {
             if ($2 eq $course) {