--- 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 .= ' '.$$lt{'helpdesk'}.'
';
- my $thisurl = &Apache::lonnet::escape('/adm/login');
+ my $thisurl = &escape('/adm/login');
$$helpdeskscript = <<"ENDSCRIPT";