version 1.58, 2004/08/10 18:55:13
|
version 1.61, 2004/12/18 23:58:34
|
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 $contactblock = &contactdisplay(\%lt,$sysadm,$servadm,$version); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
</td> |
</td> |
|
|
Line 499 ENDLOGIN
|
Line 500 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 535 $domainlogo
|
Line 530 $domainlogo
|
</tr> |
</tr> |
</table> |
</table> |
|
|
<script> |
<script type="text/javascript"> |
// the if prevents the script error if the browser can't 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> |
|
|
Line 544 ENDDOCUMENT
|
Line 539 ENDDOCUMENT
|
} |
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
return OK; |
return OK; |
} |
} |
|
|
|
sub contactdisplay { |
|
my ($lt,$sysadm,$servadm,$version) = @_; |
|
my $contactblock; |
|
my $showsysadm = 1; |
|
my $showservadm = 1; |
|
my $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="/adm/helpdesk?origurl='.&Apache::lonnet::escape('/adm/login').'">'.$$lt{'helpdesk'}.'</a></b><br />'; |
|
} |
|
$contactblock .= <<"ENDBLOCK"; |
|
$version |
|
ENDBLOCK |
|
return $contactblock; |
|
} |
|
|
|
|
1; |
1; |
__END__ |
__END__ |