--- loncom/imspackages/imsimport.pm	2005/04/07 06:56:22	1.11
+++ loncom/imspackages/imsimport.pm	2005/10/27 18:19:36	1.12
@@ -606,14 +606,12 @@ sub display_three {
     my ($r,$uname,$udom,$areas,$areaname,$cmsmap,$destdir,$newdir) = @_;
     my $crs = '';
     my $cdom = '';
-    my $chome = '';
     my $db_handling = '';
     my $timenow = time; 
     my $announce_handling = 'ok';
     my $cms = $env{'form.source'};
     if ( defined($env{'form.bb_crs'}) ) {
         ($cdom,$crs) = split/\//,$env{'form.bb_crs'};
-        $chome = &Apache::lonnet::homeserver($crs,$cdom);
     } 
     my $user_crs = '';
     my $user_cdom = '';
@@ -699,7 +697,7 @@ sub display_three {
 
         &Apache::imsprocessor::process_resinfo($cms,'CSTR',$tempdir,$destdir,\%items,\%resources,\@targets,\@boards,\@announcements,\@quizzes,\@surveys,\@pools,\@groups,\%messages,\@timestamp,\%boardnum,\%resinfo,$udom,$uname,$cdom,$crs,$db_handling,$user_handling,\%total,$seqstem,$seqstem,\@resrcfiles,\@packages,\%hrefs,\@pages,\@sequences,\%randompicks);
 
-        my $copy_result = &Apache::imsprocessor::copy_resources('CSTR',$cms,\%hrefs,$tempdir,\@targets,\%urls,$crs,$cdom,$chome,$destdir,$timenow,\%importareas);
+        my $copy_result = &Apache::imsprocessor::copy_resources('CSTR',$cms,\%hrefs,$tempdir,\@targets,\%urls,$crs,$cdom,$destdir,$timenow,\%importareas);
    
         &Apache::imsprocessor::build_structure($cms,'CSTR',$destdir,\%items,\%resinfo,\%resources,\@targets,\%hrefs,$udom,$uname,$newdir,$timenow,$cdom,$crs,\@timestamp,\%total,\@boards,\@announcements,\@quizzes,\@surveys,\@pools,\%boardnum,\@pages,\@sequences,\@topurls,\@topnames,\@packages,\%includeditems,\%randompicks);