|
version 1.206, 2006/12/05 02:55:53
|
version 1.208, 2007/03/09 01:29:54
|
|
Line 44 use Apache::lonhtmlcommon();
|
Line 44 use Apache::lonhtmlcommon();
|
| use Apache::loncommon(); |
use Apache::loncommon(); |
| use Apache::lonenc(); |
use Apache::lonenc(); |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| use LONCAPA qw{:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
| |
|
| use vars qw(@desklines $readdesk); |
use vars qw(@desklines $readdesk); |
| |
|
|
Line 464 sub innerregister {
|
Line 464 sub innerregister {
|
| } else { |
} else { |
| $currdir =~ s#[^/]+$##; |
$currdir =~ s#[^/]+$##; |
| my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn); |
my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn); |
| |
my $esc_currdir = &Apache::loncommon::escape_single($currdir); |
| $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('$esc_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 |
| s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource |
s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource |
| s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource |
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource |
![[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