|
version 1.205, 2005/09/01 23:20:05
|
version 1.207, 2005/10/31 18:52:22
|
|
Line 1114 sub editor {
|
Line 1114 sub editor {
|
| if ($cmd eq 'del') { |
if ($cmd eq 'del') { |
| my (undef,$url)=split(':',$Apache::lonratedt::resources[$Apache::lonratedt::order[$idx]]); |
my (undef,$url)=split(':',$Apache::lonratedt::resources[$Apache::lonratedt::order[$idx]]); |
| if (($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) && |
if (($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) && |
| ($url!~/\.(page|sequence|problem|exam|quiz|assess|survey|form|library)$/)) { |
($url!~/\.(page|sequence|problem|exam|quiz|assess|survey|form|library|task)$/)) { |
| &Apache::lonnet::removeuploadedurl($url); |
&Apache::lonnet::removeuploadedurl($url); |
| } else { |
} else { |
| &Apache::lonratedt::makezombie($Apache::lonratedt::order[$idx]); |
&Apache::lonratedt::makezombie($Apache::lonratedt::order[$idx]); |
|
Line 1215 sub editor {
|
Line 1215 sub editor {
|
| $r->print('<table>'); |
$r->print('<table>'); |
| foreach (@Apache::lonratedt::order) { |
foreach (@Apache::lonratedt::order) { |
| my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]); |
my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]); |
| |
$name=&Apache::lonratsrv::qtescape($name); |
| |
$url=&Apache::lonratsrv::qtescape($url); |
| unless ($name) { $name=(split(/\//,$url))[-1]; } |
unless ($name) { $name=(split(/\//,$url))[-1]; } |
| unless ($name) { $idx++; next; } |
unless ($name) { $idx++; next; } |
| $r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum)); |
$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum)); |
![[BACK]](/icons/back.gif){kind=icon}
Return to londocs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface