Index: openacs-4/packages/file-storage/www/copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/copy.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/file-storage/www/copy.tcl	13 Jan 2005 13:58:13 -0000	1.4
+++ openacs-4/packages/file-storage/www/copy.tcl	20 Mar 2005 15:44:29 -0000	1.5
@@ -51,9 +51,13 @@
     # but the existing file-copy page checks for WRITE
       
     template::multirow foreach copy_objects {
-      db_transaction {
- 	db_exec_plsql copy_item {}
-     }
+        db_transaction {
+            if {![string equal $type "folder"] } {
+                db_exec_plsql copy_item {}
+            } else {
+                db_exec_plsql copy_folder {}
+            }
+        }
     }
 
      ad_returnredirect $return_url