--- loncom/imspackages/imsprocessor.pm	2005/10/25 13:54:46	1.30
+++ loncom/imspackages/imsprocessor.pm	2005/10/27 18:19:36	1.32
@@ -365,7 +365,7 @@ sub target_resources {
 }
 
 sub copy_resources {
-    my ($context,$cms,$hrefs,$tempdir,$targets,$url,$crs,$cdom,$chome,$destdir,$timenow) = @_;
+    my ($context,$cms,$hrefs,$tempdir,$targets,$url,$crs,$cdom,$destdir,$timenow) = @_;
     if ($context eq 'DOCS') {
         foreach my $key (sort keys %{$hrefs}) {
             if (grep/^$key$/,@{$targets}) {
@@ -393,7 +393,7 @@ sub copy_resources {
                         $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);
                         }
                     }
                 }
@@ -4005,12 +4005,11 @@ sub retrieve_image {
         print $fh $contents;
         close($fh);
         if ($context eq 'DOCS') {
-            my $chome = &Apache::lonnet::homeserver($cname,$cdom);
             my $copyfile = $dirname.'/'.$filename;
             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') {