loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.205, 2005/09/01 23:20:05	version 1.206, 2005/09/20 07:52:03
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]);