loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonlogin.pm between versions 1.59 and 1.60

version 1.59, 2004/11/02 23:20:17	version 1.60, 2004/11/11 22:18:23
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 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">'.$$lt{'helpdesk'}.'</a></b><br />';
	}
	$contactblock .= <<"ENDBLOCK";
	$version
	ENDBLOCK
	return $contactblock;
	}


1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.59
changed lines
	Added in v.1.60