loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.186, 2005/06/10 16:56:08	version 1.187, 2005/06/10 17:51:29
Line 1076 sub editor {	Line 1076 sub editor {
my ($cmd,$idx)=split(/\_/,$env{'form.cmd'});	my ($cmd,$idx)=split(/\_/,$env{'form.cmd'});
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/\|) &&
unless ($url=~/\.(page\|sequence\|problem\|exam\|quiz\|assess\|survey\|form\|library)$/) {	($url!~/\.(page\|sequence\|problem\|exam\|quiz\|assess\|survey\|form\|library)$/)) {
&Apache::lonnet::removeuploadedurl($url);	&Apache::lonnet::removeuploadedurl($url);
}	} else {
	&Apache::lonratedt::makezombie($Apache::lonratedt::order[$idx]);
}	}
&Apache::lonratedt::makezombie($Apache::lonratedt::order[$idx]);
for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) {	for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) {
$Apache::lonratedt::order[$i]=	$Apache::lonratedt::order[$i]=
$Apache::lonratedt::order[$i+1];	$Apache::lonratedt::order[$i+1];