Index: openacs-4/packages/beehive/www/create-edit-session6.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/create-edit-session6.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/beehive/www/create-edit-session6.tcl	15 Jun 2006 05:51:20 -0000	1.2
+++ openacs-4/packages/beehive/www/create-edit-session6.tcl	10 Jul 2006 02:21:10 -0000	1.3
@@ -102,11 +102,18 @@
       }
       
       if {$t20 == "checked" } {
-      	set tools [linsert $tools end "SmallGroupWhiteboard"]
+      	set tools [linsert $tools end "SmallGroupImageAnnotation"]
       } 
       if {$t11 == "checked" } {
-      	set tools [linsert $tools end "LargeGroupWhiteboard"]
-      }    
+      	set tools [linsert $tools end "LargeGroupImageAnnotation"]
+      }
+      if {$t2 == "checked" } {
+      	set tools [linsert $tools end "SmallGrouptextDiscussion"]
+      } 
+      if {$t3 == "checked" } {
+      	set tools [linsert $tools end "LargeGrouptextDiscussion"]
+      }
+          
       if {$t32 == "checked" } {
       	set tools [linsert $tools end "Conferencing"]
       } 
@@ -154,6 +161,9 @@
       if {$t28 == "checked" } {
       	set tools [linsert $tools end "SilentThinking"]
       }
+      if {$t30 == "checked" } {
+      	set tools [linsert $tools end "IndividualAnnotating"]
+      } 
       if {$t6 == "checked" } {
       	set tools [linsert $tools end "InternetSearch"]
       }
@@ -165,7 +175,7 @@
 
 # to fill the roles 
 set rolesl [split $roles "/"]
-# set rolesl [linsert $rolesl end "facilitator"]
+ set rolesl [linsert $rolesl end "facilitator"]
 
 
 ad_return_template