loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.59, 2003/04/12 15:57:30	version 1.62, 2003/04/18 00:02:34
Line 203 sub innerregister {	Line 203 sub innerregister {
my $reopen=&Apache::lonmenu::reopenmenu();	my $reopen=&Apache::lonmenu::reopenmenu();

my $newmail='';	my $newmail='';
	if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {
	my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'});
	$newmail=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
	my $maptitle=&Apache::lonnet::gettitle($mapurl);
	my $restitle=&Apache::lonnet::gettitle($resurl);
	if ($maptitle) {
	$newmail.=', '.$maptitle;
	}
	if ($restitle) {
	$newmail.=': '.$restitle;
	}
	$newmail.='   ';
	}
if (&Apache::lonmsg::newmail()) {	if (&Apache::lonmsg::newmail()) {
$newmail=($textual?	$newmail=($textual?
'<b><a href="/adm/communicate">You have new messages</a></b><br />':	'<b><a href="/adm/communicate">You have new messages</a></b><br />':
Line 789 ENDUTILITY	Line 802 ENDUTILITY
sub serverform {	sub serverform {
return(<<ENDSERVERFORM);	return(<<ENDSERVERFORM);

<form name="server" action="/adm/logout" method="post">	<form name="server" action="/adm/logout" method="post" target="_top">
<input type="hidden" name="postdata" value="none" />	<input type="hidden" name="postdata" value="none" />
<input type="hidden" name="command" value="none" />	<input type="hidden" name="command" value="none" />
<input type="hidden" name="url" value="none" />	<input type="hidden" name="url" value="none" />