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.4 -r1.5
--- openacs-4/packages/beehive/www/create-edit-session7.tcl	26 Sep 2006 00:57:14 -0000	1.4
+++ openacs-4/packages/beehive/www/create-edit-session7.tcl	13 Nov 2006 03:19:21 -0000	1.5
@@ -303,6 +303,7 @@
 set largegrouptext " "
 set dynamiclink " "
 set internetsearch " "
+set outsidetask " "
 set SessionInfo " "
 set SilentThinking " "
 set GroupInfo " "
@@ -457,6 +458,10 @@
       		set tools [linsert $tools end "internetsearch"]
      
 	}
+        if {[lindex  $toolsl $i] == "OutsideTask-None" } {
+      		set tools [linsert $tools end "outsidetask"]
+     
+	}
         if {[lindex  $toolsl $i] == "Conferencing-EntireSession" } {
       		set tools [linsert $tools end "Conferencing"]
      
@@ -628,7 +633,7 @@
 }
 
 # to define all tools that can be used in this system
-set alltools { "staticinfo"  "timing" "chat"  "vote" "individualwriting" "floorcontrol" "guiding" "monitoring" "internetsearch" "ownresolution" "qa"  "silentthinking" "overview" "helping" "dynamiclink" "smallgroupsharedtext" "ideasdiscussion" "slides" "tracking" "smallgroupwhiteboard" "SessionInfo" "noteTaking" "Conferencing" "Survey" "largegroupsharedtext" "largegroupwhiteboard" "GroupInfo" "RoleInfo" "icebreaking" "individualwhiteboard" "smallgrouptext" "largegrouptext" }
+set alltools { "staticinfo"  "timing" "chat"  "vote" "individualwriting" "floorcontrol" "guiding" "monitoring" "internetsearch" "ownresolution" "qa"  "silentthinking" "overview" "helping" "dynamiclink" "smallgroupsharedtext" "ideasdiscussion" "slides" "tracking" "smallgroupwhiteboard" "SessionInfo" "noteTaking" "Conferencing" "Survey" "largegroupsharedtext" "largegroupwhiteboard" "GroupInfo" "RoleInfo" "icebreaking" "individualwhiteboard" "smallgrouptext" "largegrouptext" "outsidetask"}
 
 
 # to publish the xml schema according to this simple structure
@@ -725,7 +730,7 @@
 # to add tools inside collaboration service 
 set kkk  0
 
-for {set i 1} {$i < 34} {incr i} {         
+for {set i 1} {$i < 35} {incr i} {         
 eval set [subst {k$i}] 0	
 }
 
@@ -975,6 +980,10 @@
       			$node appendXML "<imsld:text>[lindex  $largegrouptext $k33]</imsld:text>"
       			incr k33
     		}
+                if {[lindex  $alltools 32] == [lindex  $tools $kkk] } {
+      			$node appendXML "<imsld:outsidetask />"
+      			incr k34
+    		}
 
 
     		incr kkk