--- loncom/imspackages/imsimportdocs.pm	2006/03/24 17:36:27	1.17
+++ loncom/imspackages/imsimportdocs.pm	2006/05/30 12:45:50	1.18
@@ -1,3 +1,7 @@
+# The LearningOnline Network with CAPA
+#
+# $Id: imsimportdocs.pm,v 1.18 2006/05/30 12:45:50 www Exp $
+#
 # Copyright Michigan State University Board of Trustees
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -30,6 +34,9 @@ use Apache::loncommon;
 use Apache::lonlocal;
 use Apache::imsprocessor;
 use LONCAPA::Configuration;
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
+ 
 use strict;
 
 sub jscript_one {
@@ -150,7 +157,7 @@ sub handler {
  
     my $uname=$env{'user.name'};
     my $udom=$env{'user.domain'};
-    my $plainname=&Apache::lonnet::escape(
+    my $plainname=&escape(
                      &Apache::loncommon::plainname($uname,$udom));
 
 # does this user have privileges to post, etc?
@@ -631,13 +638,13 @@ sub display_three {
         my @imports = ();
         if ($toplevel eq 'oldfolder') {
             for (my $i=0; $i<@topurls; $i++) {
-                my $url = &Apache::lonnet::unescape($topurls[$i]);
-                my $name = &Apache::lonnet::unescape($topnames[$i]);
+                my $url = &unescape($topurls[$i]);
+                my $name = &unescape($topnames[$i]);
                 push @imports, $name, $url;
             }
         } elsif ($toplevel eq 'newfolder') {
-            my $url = &Apache::lonnet::unescape("/uploaded/$cdom/$crs/$timenow/sequences/Top.sequence");
-            my $name = &Apache::lonnet::unescape("$env{'form.foldername'}");
+            my $url = &unescape("/uploaded/$cdom/$crs/$timenow/sequences/Top.sequence");
+            my $name = &unescape("$env{'form.foldername'}");
             push @imports, $name, $url;
         }
         my $errtext='';