--- loncom/interface/lonhelpmenu.pm	2006/04/10 21:40:08	1.24
+++ loncom/interface/lonhelpmenu.pm	2006/05/30 12:46:09	1.25
@@ -32,6 +32,8 @@ use Apache::Constants qw(:common);
 use Apache::loncommon();
 use Apache::lonlocal;
 use Apache::lonnet;
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
 
 sub handler {
     my ($r) = @_;
@@ -82,7 +84,7 @@ sub display_help_banner {
     }
     my $scripttag = '';
     if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
-        my $displayurl = &Apache::lonnet::escape($origurl);
+        my $displayurl = &escape($origurl);
         $scripttag = (<<"SCRIPT_ONE");
 <script>
 function gohelpdesk() {
@@ -283,7 +285,7 @@ sub display_help_mainpage {
     if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
         $r->print("
           <ul>
-           <li><a href=\"/adm/support?origurl=".&Apache::lonnet::escape($origurl)."&function=$function\">$lt{'cont'}</a></li>
+           <li><a href=\"/adm/support?origurl=".&escape($origurl)."&function=$function\">$lt{'cont'}</a></li>
           </ul>
           <p>$lt{'suhr'}");
          unless ($env{'user.adv'}) {