loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.100 and 1.103

version 1.100, 2003/11/10 16:41:31	version 1.103, 2003/11/21 21:38:50
Line 76 sub menubuttons {	Line 76 sub menubuttons {
if ($ENV{'browser.interface'} eq 'textual') {	if ($ENV{'browser.interface'} eq 'textual') {
# Textual display only	# Textual display only
my %lt=&initlittle();	my %lt=&initlittle();
	$pgbg='#FFFFFF';
	$tabbg='#FFFFFF';
	$font='#000000';
if ($ENV{'request.course.id'}) {	if ($ENV{'request.course.id'}) {
$navmaps=(<<ENDNAV);	$navmaps=(<<ENDNAV);
<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a>	<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a>
Line 375 ENDREALRES	Line 378 ENDREALRES
# Registered, textual output	# Registered, textual output
my $utility=&utilityfunctions();	my $utility=&utilityfunctions();
my $form=&serverform();	my $form=&serverform();
my $inlinebuttons=	my $inlinebuttons='';

	if ($ENV{'browser.interface'} eq 'textual') {
	$inlinebuttons=
join('',map { (defined($_)?$_:'') } @inlineremote);	join('',map { (defined($_)?$_:'') } @inlineremote);
	} else {
	$inlinebuttons=(<<ENDINLINE);
	<tr><td>$inlineremote[21]</td><td>&nbsp</td><td>$inlineremote[23]</td></tr>
	<tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr>
	<tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr>
	<tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr>
	<tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr>
	ENDINLINE
	}
$result =(<<ENDREGTEXT);	$result =(<<ENDREGTEXT);
<script>	<script>
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
Line 654 sub switch {	Line 669 sub switch {
my $text=$top.' '.$bot;	my $text=$top.' '.$bot;
$text=~s/\s\-\s//gs;	$text=~s/\s\-\s//gs;
my $pic=	my $pic=
'<img border="0" alt="'.$text.'" src="/res/adm/pages/'.$img.'" />';	'<img border="0" alt="'.$text.'" src="/res/adm/pages/'.$img.'" align="'.
if ($nobreak==3) {	($nobreak==3?'right':'left').'" />';
$inlineremote[10*$row+$col]="\n".	if (($ENV{'browser.interface'} eq 'textual') \|\| ($ENV{'browser.interface'} eq 'faketextual')) {
'<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.	# Accessibility
'</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.	if ($nobreak==3) {
'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';	$inlineremote[10*$row+$col]="\n".
} elsif ($nobreak) {	'<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.
$inlineremote[10*$row+$col]="\n<tr>".	'</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.
'<td width="10%" align="left" bgcolor="'.$tabbg.'">'.	'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
'<a href="javascript:'.$act.';">'.$pic.	} elsif ($nobreak) {
'</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></td>';	$inlineremote[10*$row+$col]="\n<tr>".
	'<td width="10%" align="left" bgcolor="'.$tabbg.'">'.
	'<a href="javascript:'.$act.';">'.$pic.
	'</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></td>';
	} else {
	$inlineremote[10*$row+$col]="\n<tr>".
	'<td width="10%" align="left" bgcolor="'.$tabbg.'">'.
	'<a href="javascript:'.$act.';">'.$pic.
	'</a></td><td colspan="3"><font color="'.$font.'">'.$desc.
	'</font></td></tr>';
	}
} else {	} else {
$inlineremote[10*$row+$col]="\n<tr>".	# Inline Menu
'<td width="10%" align="left" bgcolor="'.$tabbg.'">'.	$inlineremote[10*$row+$col]=
'<a href="javascript:'.$act.';">'.$pic.	'<a href="javascript:'.$act.';">'.$pic.
'</a></td><td colspan="3"><font color="'.$font.'">'.$desc.	'</a><font color="'.$font.'" size="2">'.$desc.
'</font></td></tr>';	'</font>';
}	}
}	}
return '';	return '';
Line 866 function gocmd(url,cmd) {	Line 891 function gocmd(url,cmd) {
}	}

function catalog_info() {	function catalog_info() {
loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizeable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');	loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
}	}

function chat_win() {	function chat_win() {
lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizeable=yes,location=no,menubar=no,toolbar=no');	lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
}	}
ENDUTILITY	ENDUTILITY
}	}
Line 913 sub handler {	Line 938 sub handler {
$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);	$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
$font=&Apache::loncommon::designparm($function.'.font',$domain);	$font=&Apache::loncommon::designparm($function.'.font',$domain);
# ---- Print the screen, pretent to be in text mode to generate text-based menu	# ---- Print the screen, pretent to be in text mode to generate text-based menu
unless ($ENV{'brower.interface'} eq 'textual') {	unless ($ENV{'browser.interface'} eq 'textual') {
	$ENV{'browser.interface'}='faketextual';
$ENV{'environment.remote'}='off';	$ENV{'environment.remote'}='off';
}	}
my $utility=&utilityfunctions();	my $utility=&utilityfunctions();

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

Removed from v.1.100
changed lines
	Added in v.1.103