Index: openacs-4/packages/beehive/www/duplicate2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/duplicate2.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/beehive/www/duplicate2.tcl	27 Dec 2006 05:57:26 -0000	1.4
+++ openacs-4/packages/beehive/www/duplicate2.tcl	28 Dec 2006 05:38:45 -0000	1.5
@@ -11,6 +11,11 @@
 { titlew: " " }
 { datew: " " }
 
+
+} -properties { 
+
+filess:onelist
+
 }
 
 set user_id [ad_conn user_id]
@@ -110,9 +115,12 @@
 
 # to upload staged file 
 	if {$t33 == "checked" } {
-		         
-			set filename1 [subst {$pth/packages/beehive/www/slides/[subst {sess$number}]$el}]     
-			set filename2 [subst {$pth/packages/beehive/www/slides/[subst {sess$number1}]$el}]  
+
+set filess [split $el "/"]
+		        for {set i 0} {$i < [expr [llength $filess] - 1]} {incr i} {         
+			
+			set filename1 [subst {$pth/packages/beehive/www/slides/[subst {file$number}][lindex  $filess $i]}]     
+			set filename2 [subst {$pth/packages/beehive/www/slides/[subst {file$number1}][lindex  $filess $i]}]  
 			set ifp [open $filename1 r+]
 			set ofp [open $filename2 w+]
                         fconfigure $ifp -translation binary
@@ -123,9 +131,9 @@
 
 			close $ifp
 			close $ofp
+                      }
 
 
-
 	}