--- loncom/publisher/loncleanup.pm	2006/04/06 22:15:18	1.7
+++ loncom/publisher/loncleanup.pm	2006/05/30 12:47:41	1.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to cleanup XML files
 #
-# $Id: loncleanup.pm,v 1.7 2006/04/06 22:15:18 albertel Exp $
+# $Id: loncleanup.pm,v 1.8 2006/05/30 12:47:41 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -38,6 +38,9 @@ use Apache::loncacc;
 use Apache::loncommon();
 use Apache::lonlocal;
 use Apache::lonnet;
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
+ 
 
 sub latextrans {
     my $symbolfont=shift;
@@ -294,9 +297,9 @@ sub phasetwo {
 	      $warningcount.' '.&mt('warning(s)').
               '<br /><a href="'.$newuri.'" target="prev">'.
 	      &mt('Open (and edit) cleaned up file in new window').'</a>'.
-              '<br /><a href="/adm/diff?filename='.&Apache::lonnet::escape($uri).
+              '<br /><a href="/adm/diff?filename='.&escape($uri).
 	      '&versionone=priv&filetwo='.
-	      &Apache::lonnet::escape($newuri).'" target="prev">'.
+	      &escape($newuri).'" target="prev">'.
 	      &mt('Show diffs in new window').'</a><br />'.
 	      '<input type="hidden" name="phase" value="three" />'.
 	      '<input type="submit" name="accept" value="'.&mt('Accept Result').'" />'.