loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.200, 2006/07/31 21:53:45	version 1.202, 2006/08/04 18:56:19
Line 62 sub initlittle {	Line 62 sub initlittle {
'Roles':'Courses'),	'Roles':'Courses'),
'docs' => 'Course Documents',	'docs' => 'Course Documents',
'exit' => 'Exit',	'exit' => 'Exit',
	'login' => 'Log In',
'launch' => 'Launch Remote Control',	'launch' => 'Launch Remote Control',
'groups' => 'Groups',	'groups' => 'Groups',
'gdoc' => 'Group Documents',	'gdoc' => 'Group Documents',
Line 176 ENDMAINMENU	Line 177 ENDMAINMENU
<tr>	<tr>
$logo	$logo
<td></td>	<td></td>
<td class="LC_top_nav_exit">	<td class="LC_top_nav_login">
<a href="/adm/logout" target="_top">$lt{'exit'}</a>	<a href="/adm/roles" target="_top">$lt{'login'}</a>
</td>	</td>
</tr>	</tr>
</table>	</table>
Line 462 sub innerregister {	Line 463 sub innerregister {
} else {	} else {
$currdir =~ s#[^/]+$##;	$currdir =~ s#[^/]+$##;
my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);	my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
&Apache::lonnet::logthis("thisdisfn = $thisdisfn cleaned: $cleandisfn");
$menuitems=(<<ENDMENUITEMS);	$menuitems=(<<ENDMENUITEMS);
s&6&1&list.gif&list[_1]&dir[_1]&golist('$currdir')&List current directory	s&6&1&list.gif&list[_1]&dir[_1]&golist('$currdir')&List current directory
s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version	s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version