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.5.2.2 -r1.5.2.3
--- openacs-4/packages/file-storage/www/copy.tcl	6 Apr 2006 01:21:58 -0000	1.5.2.2
+++ openacs-4/packages/file-storage/www/copy.tcl	13 Apr 2006 00:55:12 -0000	1.5.2.3
@@ -15,6 +15,7 @@
     {show_items:boolean 0}
 } -errors {object_id:,notnull,integer,multiple {Please select at least one item to copy.}
 }
+ns_log Notice "Huh? right script..."
 
 set objects_to_copy $object_id
 set object_id_list [join $object_id ","]
@@ -57,7 +58,7 @@
         db_transaction {
             if {![string equal $type "folder"] } {
                 set file_rev_id [db_exec_plsql copy_item {}]
-		callback fs::file_revision_new -package_id $package_id -file_id $file_id -parent_id $folder_id
+		callback fs::file_revision_new -package_id $package_id -file_id $object_id -parent_id $folder_id
             } else {
                 db_exec_plsql copy_folder {}
             }