Index: openacs-4/packages/beehive/www/create-edit-session7.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/create-edit-session7.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/beehive/www/create-edit-session7.tcl	27 Dec 2006 05:57:26 -0000	1.6
+++ openacs-4/packages/beehive/www/create-edit-session7.tcl	28 Dec 2006 05:38:45 -0000	1.7
@@ -41,6 +41,7 @@
     tr:onelist
     tl:onelist
     rolesl:onelist
+    filess:onelist
     participants:onelist  
     collaborationActivity:onelist 
     collToolServiceId:onelist 
@@ -156,6 +157,11 @@
 set participants $rolesl
 
 
+set filess [split $el "/"]
+
+
+
+
 # start filling the tools array from  only the supporting tools
 # reseting tools arrays
 set toolc 0
@@ -505,7 +511,14 @@
 	}
 	if {[lindex  $toolsl $i] == "DownloadFile-EntireSession" } {
       		set tools [linsert $tools end "dynamiclink"]
-      		set dynamiclink  [linsert $dynamiclink end $el]    
+      		
+			for {set i 0} {$i < [llength $filess]} {incr i} {         
+				set fname [lindex  $filess $i]
+                                set dynamiclink  [linsert $dynamiclink end $fname]   
+				
+			}
+
+		  
 	}
  	
         
@@ -879,9 +892,14 @@
     		}
 		if {[lindex  $alltools 14] == [lindex  $tools $kkk] } {
       			$node appendXML "<imsld:dynamiclink />"
-      			set node [$node lastChild]
-      			$node appendXML "<imsld:text>[lindex  $dynamiclink $k16]</imsld:text>"
+      			
+			
+                        set node [$node lastChild]  
+			for {set i 0} {$i < [expr [llength $filess] - 1]} {incr i} {         
+			$node appendXML "<imsld:text>[lindex  $dynamiclink $k16]</imsld:text>"
       			incr k16
+			}
+               
     		}
 		if {[lindex  $alltools 15] == [lindex  $tools $kkk] } {
       			$node appendXML "<imsld:smallgroupsharedtext />"