|
version 1.199, 2006/07/19 10:52:27
|
version 1.200, 2006/07/31 21:53:45
|
|
Line 461 sub innerregister {
|
Line 461 sub innerregister {
|
| $is_const_dir = 1; |
$is_const_dir = 1; |
| } else { |
} else { |
| $currdir =~ s#[^/]+$##; |
$currdir =~ s#[^/]+$##; |
| |
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/$thisdisfn')&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/$thisdisfn')&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/$thisdisfn')&Delete this resource |
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource |
| s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$thisdisfn')&Prepare a printable document |
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document |
| ENDMENUITEMS |
ENDMENUITEMS |
| } |
} |
| } elsif (defined($env{'request.course.id'}) && |
} elsif (defined($env{'request.course.id'}) && |
![[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