version 1.59, 2004/11/02 23:20:17
|
version 1.62, 2004/12/30 16:04:37
|
Line 263 my %lt=&Apache::lonlocal::texthash(
|
Line 263 my %lt=&Apache::lonlocal::texthash(
|
'help' => 'Help', |
'help' => 'Help', |
'serv' => 'Server', |
'serv' => 'Server', |
'servadm' => 'Server Administration', |
'servadm' => 'Server Administration', |
'sysadm' => 'System Administration'); |
'sysadm' => 'System Administration', |
|
'helpdesk' => 'Contact Helpdesk'); |
|
|
# ---------------------------------------------------------- Serve rest of page |
# ---------------------------------------------------------- Serve rest of page |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
Line 447 ENDNOOPT
|
Line 447 ENDNOOPT
|
</form> |
</form> |
ENDLOGIN |
ENDLOGIN |
if ($fullgraph) { |
if ($fullgraph) { |
|
my $helpdeskscript; |
|
my $contactblock = &contactdisplay(\%lt,$sysadm,$servadm,$version,$authdomain,\$helpdeskscript); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
</td> |
</td> |
|
|
Line 499 ENDLOGIN
|
Line 501 ENDLOGIN
|
</tr> |
</tr> |
</table> |
</table> |
<br /> |
<br /> |
<small> |
$contactblock |
<b> $lt{'sysadm'}:</b><br /> |
|
<tt> $sysadm</tt><br /> |
|
<b> $lt{'servadm'}:</b><br /> |
|
<tt> $servadm</tt><br /> <br /> |
|
$version |
|
</small> |
|
</td> |
</td> |
|
|
<!-- Row 5 Column 2 --> |
<!-- Row 5 Column 2 --> |
Line 539 $domainlogo
|
Line 535 $domainlogo
|
// the if prevents the script error if the browser can not handle this |
// the if prevents the script error if the browser can not handle this |
if ( document.client.uname ) { document.client.uname.focus(); } |
if ( document.client.uname ) { document.client.uname.focus(); } |
</script> |
</script> |
|
$helpdeskscript |
|
|
ENDDOCUMENT |
ENDDOCUMENT |
} |
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
return OK; |
return OK; |
} |
} |
|
|
|
sub contactdisplay { |
|
my ($lt,$sysadm,$servadm,$version,$authdomain,$helpdeskscript) = @_; |
|
my $contactblock; |
|
my $showsysadm = 1; |
|
my $showservadm = 1; |
|
my $showhelpdesk = 0; |
|
my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
|
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { |
|
$showhelpdesk = 1; |
|
} |
|
if ($showsysadm) { |
|
$contactblock .= '<b> '.$$lt{'sysadm'}.':</b><br />'. |
|
'<tt> '.$sysadm.'</tt><br />'; |
|
} |
|
if ($showservadm) { |
|
$contactblock .= '<b> '.$$lt{'servadm'}.':</b><br />'. |
|
'<tt> '.$servadm.'</tt><br /> <br />'; |
|
} |
|
if ($showhelpdesk) { |
|
$contactblock .= '<b> <a href="javascript:helpdesk()">'.$$lt{'helpdesk'}.'</a></b><br />'; |
|
my $thisurl = &Apache::lonnet::escape('/adm/login'); |
|
$$helpdeskscript = <<"ENDSCRIPT"; |
|
<script type="text/javascript"> |
|
function helpdesk() { |
|
var codedom = document.client.udom.value; |
|
if (codedom == '') { |
|
codedom = "$authdomain"; |
|
} |
|
var querystr = "origurl=$thisurl&codedom="+codedom; |
|
document.location.href = "/adm/helpdesk?"+querystr; |
|
return; |
|
} |
|
</script> |
|
ENDSCRIPT |
|
} |
|
$contactblock .= <<"ENDBLOCK"; |
|
$version |
|
ENDBLOCK |
|
return $contactblock; |
|
} |
|
|
|
|
1; |
1; |
__END__ |
__END__ |