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.101 and 1.104

version 1.101, 2003/11/10 16:51:12	version 1.104, 2003/12/08 15:02:34
Line 43 use Apache::lonnet;	Line 43 use Apache::lonnet;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::loncommon;	use Apache::loncommon;
use Apache::File;
use Apache::lonlocal;	use Apache::lonlocal;

use vars qw(@desklines $readdesk);	use vars qw(@desklines $readdesk);
Line 378 ENDREALRES	Line 377 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 657 sub switch {	Line 668 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 869 function gocmd(url,cmd) {	Line 890 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 916 sub handler {	Line 937 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();
Line 939 ENDHEADER	Line 961 ENDHEADER
BEGIN {	BEGIN {
if (! defined($readdesk)) {	if (! defined($readdesk)) {
{	{
my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.	my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';
'/mydesk.tab');	if ( CORE::open( my $config,"<$tabfile") ) {
while (my $configline=<$config>) {	while (my $configline=<$config>) {
$configline=(split(/\#/,$configline))[0];	$configline=(split(/\#/,$configline))[0];
$configline=~s/^\s+//;	$configline=~s/^\s+//;
chomp($configline);	chomp($configline);
if ($configline) {	if ($configline) {
$desklines[$#desklines+1]=$configline;	$desklines[$#desklines+1]=$configline;
}	}
	}
	CORE::close($config);
}	}
}	}
$readdesk='done';	$readdesk='done';

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

Removed from v.1.101
changed lines
	Added in v.1.104