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 -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/file-storage/www/copy.tcl	30 Jul 2004 11:22:15 -0000	1.1.2.3
+++ openacs-4/packages/file-storage/www/copy.tcl	24 Aug 2004 23:53:31 -0000	1.1.2.4
@@ -15,6 +15,8 @@
 }
 
 set objects_to_copy $object_id
+set object_id_list [join $object_id ","]
+
 set user_id [ad_conn user_id]
 set peer_addr [ad_conn peeraddr]
 set allowed_count 0
@@ -51,13 +53,8 @@
     template::multirow foreach copy_objects {
       db_transaction {
  	db_exec_plsql copy_item {}
-      } on_error {
-         set folder_name "[_ file-storage.folder]"
-         set folder_link "<a href=\"index?folder_id=$folder_id\">$folder_name</a>"
-         ad_return_complaint 1 "[_ file-storage.lt_The_folder_link_you_s]"
-         ad_script_abort
-         }
      }
+    }
 
      ad_returnredirect $return_url
      ad_script_abort
@@ -83,7 +80,7 @@
                 label "\#file-storage.Choose_Destination_Folder\#"
                 link_url_col copy_url
 		link_html {title "\#file-storage.Copy_to_folder_title\#"}
-		display_template {<div style="text-indent: @folder_tree.level@em;">@folder_tree.label@</div>} 
+		display_template {<div style="text-indent: @folder_tree.level_num@em;">@folder_tree.label@</div>} 
             }
         }
     set root_folder_id [fs::get_root_folder]