[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

[www]

www		Thu Jun  9 14:01:31 2005 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  Toward bug #3738: don't delete sequences and pages, since we would loose
  all ability to get the data back.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.182 loncom/interface/londocs.pm:1.183
--- loncom/interface/londocs.pm:1.182	Wed Jun  8 17:38:44 2005
+++ loncom/interface/londocs.pm	Thu Jun  9 14:01:29 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.182 2005/06/08 21:38:44 albertel Exp $
+# $Id: londocs.pm,v 1.183 2005/06/09 18:01:29 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1077,7 +1077,9 @@
                 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);
+			unless ($url=~/\.(page|sequence)$/) {
+			    &Apache::lonnet::removeuploadedurl($url);
+			}
 		    }
 		    &Apache::lonratedt::makezombie($Apache::lonratedt::order[$idx]);
 		    for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) {