[LON-CAPA-cvs] cvs: loncom /imspackages imsimportdocs.pm imsprocessor.pm

[raeburn]

raeburn		Thu Oct 27 13:07:26 2005 EDT

  Modified files:              
    /loncom/imspackages	imsimportdocs.pm imsprocessor.pm 
  Log:
  Changes to argument list in lonnet::process_coursefile() - lonnet rev 1.638 - broke stuff.
  
  
Index: loncom/imspackages/imsimportdocs.pm
diff -u loncom/imspackages/imsimportdocs.pm:1.12 loncom/imspackages/imsimportdocs.pm:1.13
--- loncom/imspackages/imsimportdocs.pm:1.12	Thu Apr  7 02:56:22 2005
+++ loncom/imspackages/imsimportdocs.pm	Thu Oct 27 13:07:23 2005
@@ -620,17 +620,17 @@
 
         foreach my $item (@pages) {
             my $filename = $timenow.'/pages/'.$item;
-            my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$chome,$filename,'');
+            my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$filename,'');
         }
         foreach my $item (@sequences) {
             unless ($item eq 'Top.sequence' && $toplevel eq 'oldfolder') {
                 my $filename = $timenow.'/sequences/'.$item;
-                my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$chome,$filename,'');
+                my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$filename,'');
             }
         }
         foreach my $item (@resrcfiles) {
             my $filename = $timenow.'/resfiles/'.$item;
-            my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$chome,$filename,'');
+            my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$filename,'');
         }
 
         my @imports = ();
Index: loncom/imspackages/imsprocessor.pm
diff -u loncom/imspackages/imsprocessor.pm:1.30 loncom/imspackages/imsprocessor.pm:1.31
--- loncom/imspackages/imsprocessor.pm:1.30	Tue Oct 25 09:54:46 2005
+++ loncom/imspackages/imsprocessor.pm	Thu Oct 27 13:07:23 2005
@@ -393,7 +393,7 @@
                         $copyfile = $fpath.$copyfile;
                         my $fileresult;
                         if (-e $source) {
-                            $fileresult = &Apache::lonnet::process_coursefile('copy',$crs,$cdom,$chome,$copyfile,$source);
+                            $fileresult = &Apache::lonnet::process_coursefile('copy',$crs,$cdom,$copyfile,$source);
                         }
                     }
                 }
@@ -4010,7 +4010,7 @@
             my $source = "$docroot/$res/webimages/$filename";
             my $fileresult;
             if (-e $source) {
-                $fileresult = &Apache::lonnet::process_coursefile('copy',$cname,$cdom,$chome,$copyfile,$source);
+                $fileresult = &Apache::lonnet::process_coursefile('copy',$cname,$cdom,$copyfile,$source);
             }
             return $fileresult;
         } elsif ($context eq 'CSTR') {