--- loncom/publisher/lonpublisher.pm	2006/04/06 22:15:18	1.208
+++ loncom/publisher/lonpublisher.pm	2006/05/30 12:47:41	1.209
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.208 2006/04/06 22:15:18 albertel Exp $
+# $Id: lonpublisher.pm,v 1.209 2006/05/30 12:47:41 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -129,6 +129,9 @@ use Apache::loncfile;
 use LONCAPA::lonmetadata;
 use Apache::lonmsg;
 use vars qw(%metadatafields %metadatakeys);
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
+ 
 
 my %addid;
 my %nokey;
@@ -1168,7 +1171,7 @@ sub publish {
 	'<p>'.($env{'form.makeobsolete'}?'':'<input type="submit" value="'.&mt('Finalize Publication').'" />').'</p>'.
 	&hiddenfield('phase','two').
 	&hiddenfield('filename',$env{'form.filename'}).
-	&hiddenfield('allmeta',&Apache::lonnet::escape($allmeta)).
+	&hiddenfield('allmeta',&escape($allmeta)).
 	&hiddenfield('dependencies',join(',',keys %allow));
     unless ($env{'form.makeobsolete'}) {
        $intr_scrout.=
@@ -1441,7 +1444,7 @@ sub phasetwo {
     %metadatafields=();
     %metadatakeys=();
 
-    &metaeval(&Apache::lonnet::unescape($env{'form.allmeta'}));
+    &metaeval(&unescape($env{'form.allmeta'}));
     
     $metadatafields{'title'}=$env{'form.title'};
     $metadatafields{'author'}=$env{'form.author'};
@@ -1947,7 +1950,7 @@ sub handler {
     @{$modified_urls}=();
 # -------------------------------------------------------------- Check filename
 
-    my $fn=&Apache::lonnet::unescape($env{'form.filename'});
+    my $fn=&unescape($env{'form.filename'});
 
     ($cuname,$cudom)=
 	&Apache::loncacc::constructaccess($fn,$r->dir_config('lonDefDomain'));