|
version 1.60, 2003/04/17 13:21:36
|
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'})) { |
if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) { |
| my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'}); |
my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'}); |
| $newmail=&Apache::lonnet::gettitle($mapurl).': '. |
$newmail=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
| &Apache::lonnet::gettitle($resurl).' '; |
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? |
|
Line 794 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" /> |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface