--- loncom/auth/lonlogin.pm	2006/04/05 22:39:55	1.74
+++ loncom/auth/lonlogin.pm	2006/05/30 12:45:24	1.75
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.74 2006/04/05 22:39:55 albertel Exp $
+# $Id: lonlogin.pm,v 1.75 2006/05/30 12:45:24 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -37,6 +37,9 @@ use Apache::loncommon();
 use Apache::lonauth();
 use Apache::lonlocal;
 use Apache::migrateuser();
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
+ 
 
 sub handler {
     my $r = shift;
@@ -608,7 +611,7 @@ sub contactdisplay {
     }
     if ($showhelpdesk) {
         $contactblock .= '<b>&nbsp;&nbsp;&nbsp;<a href="javascript:helpdesk()">'.$$lt{'helpdesk'}.'</a></b><br />';
-        my $thisurl = &Apache::lonnet::escape('/adm/login');
+        my $thisurl = &escape('/adm/login');
         $$helpdeskscript = <<"ENDSCRIPT";
 <script type="text/javascript">
 function helpdesk() {