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

[raeburn]

raeburn		Sun Sep  1 03:01:13 2013 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  - For removal of archive file after extraction of contents, as per user 
    request -- $env{'form.cmd'} needs to be "remove_idx" not "del_idx" where
    idx is id of .zip or .tar file in current map.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.562 loncom/interface/londocs.pm:1.563
--- loncom/interface/londocs.pm:1.562	Wed Aug 21 15:42:23 2013
+++ loncom/interface/londocs.pm	Sun Sep  1 03:01:13 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.562 2013/08/21 15:42:23 bisitz Exp $
+# $Id: londocs.pm,v 1.563 2013/09/01 03:01:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5150,8 +5150,8 @@
     } else {
         my $currcmd = $env{'form.cmd'};
         my $position = $env{'form.position'};
-        if ($position > 0) { 
-            $env{'form.cmd'} = 'del_'.$position;
+        if ($position > 0) {
+            $env{'form.cmd'} = 'remove_'.$position;
             my ($title,$url, at rrest) = 
                 split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$position]]);
             if (&handle_edit_cmd($docuname,$docudom)) {