|
version 1.74, 2006/04/05 22:39:55
|
version 1.75, 2006/05/30 12:45:24
|
|
Line 37 use Apache::loncommon();
|
Line 37 use Apache::loncommon();
|
| use Apache::lonauth(); |
use Apache::lonauth(); |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| use Apache::migrateuser(); |
use Apache::migrateuser(); |
| |
use lib '/home/httpd/lib/perl/'; |
| |
use LONCAPA; |
| |
|
| |
|
| sub handler { |
sub handler { |
| my $r = shift; |
my $r = shift; |
|
Line 608 sub contactdisplay {
|
Line 611 sub contactdisplay {
|
| } |
} |
| if ($showhelpdesk) { |
if ($showhelpdesk) { |
| $contactblock .= '<b> <a href="javascript:helpdesk()">'.$$lt{'helpdesk'}.'</a></b><br />'; |
$contactblock .= '<b> <a href="javascript:helpdesk()">'.$$lt{'helpdesk'}.'</a></b><br />'; |
| my $thisurl = &Apache::lonnet::escape('/adm/login'); |
my $thisurl = &escape('/adm/login'); |
| $$helpdeskscript = <<"ENDSCRIPT"; |
$$helpdeskscript = <<"ENDSCRIPT"; |
| <script type="text/javascript"> |
<script type="text/javascript"> |
| function helpdesk() { |
function helpdesk() { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogin.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth