--- loncom/imspackages/imsprocessor.pm	2005/10/27 17:07:23	1.31
+++ 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}) {
@@ -4005,7 +4005,6 @@ 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;