--- loncom/interface/londocs.pm 2004/05/11 06:37:39 1.127
+++ loncom/interface/londocs.pm 2004/06/10 22:23:35 1.129
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.127 2004/05/11 06:37:39 albertel Exp $
+# $Id: londocs.pm,v 1.129 2004/06/10 22:23:35 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -399,6 +399,10 @@ sub editor {
if ($ENV{'form.cmd'}) {
my ($cmd,$idx)=split(/\_/,$ENV{'form.cmd'});
if ($cmd eq 'del') {
+ my (undef,$url)=split(':',$Apache::lonratedt::resources[$Apache::lonratedt::order[$idx]]);
+ if ($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) {
+ &Apache::lonnet::removeuploadedurl($url);
+ }
for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) {
$Apache::lonratedt::order[$i]=
$Apache::lonratedt::order[$i+1];
@@ -1321,8 +1325,8 @@ $lt{'title'}:
-
+
$help{'Uploading_From_Harddrive'}