loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.225, 2007/08/30 22:35:41	version 1.227, 2007/09/11 23:37:58
Line 573 ENDLINE	Line 573 ENDLINE
$timesync	$timesync
$tablestart	$tablestart
$inlinebuttons	$inlinebuttons
$newmail
$tableend	$tableend
	$newmail
<script type="text/javascript">	<script type="text/javascript">
// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>
Line 887 sub switch {	Line 887 sub switch {
my $text=$top.' '.$bot;	my $text=$top.' '.$bot;
$text=~s/\s\-\s//gs;	$text=~s/\s\-\s//gs;

my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
my $pic=	my $pic=
'<img alt="'.$text.'" src="'.	'<img alt="'.$text.'" src="'.
&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).	&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).