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.5 -r1.6
--- openacs-4/packages/beehive/www/create-edit-session7.tcl	13 Nov 2006 03:19:21 -0000	1.5
+++ openacs-4/packages/beehive/www/create-edit-session7.tcl	27 Dec 2006 05:57:26 -0000	1.6
@@ -525,7 +525,7 @@
                 set largegrouptext  [linsert $largegrouptext end $largeannotatedtext]    
 	}
         if {[lindex  $toolsl $i] == "IndividualImageDrawing-None" } {
-      		set tools [linsert $tools end "individualtext"]    
+      		set tools [linsert $tools end "individualwhiteboard"]    
 	}
 	if {[lindex  $toolsl $i] == "audioOverview-EntireSession" } {
       		set tools [linsert $tools end "overview"]
@@ -911,6 +911,8 @@
 		}
                 if {[lindex  $alltools 19] == [lindex  $tools $kkk] } {
       			$node appendXML "<imsld:smallgroupwhiteboard />"
+                        set node [$node lastChild]
+			$node appendXML "<imsld:slidesnumber>[lindex  $slnw $k21]</imsld:slidesnumber>"
       			incr k21
     		}
 
@@ -945,7 +947,9 @@
     		}
                 if {[lindex  $alltools 25] == [lindex  $tools $kkk] } {
       			$node appendXML "<imsld:largegroupwhiteboard />"
-      			incr k27
+      			set node [$node lastChild]
+			$node appendXML "<imsld:slidesnumber>[lindex  $slnw $k27]</imsld:slidesnumber>"
+			incr k27
     		}
                 if {[lindex  $alltools 26] == [lindex  $tools $kkk] } {
       			$node appendXML "<imsld:groupinfo />"
@@ -966,7 +970,9 @@
     		}
                 if {[lindex  $alltools 29] == [lindex  $tools $kkk] } {
       			$node appendXML "<imsld:individualwhiteboard />"
-      			incr k31
+      			set node [$node lastChild]
+			$node appendXML "<imsld:slidesnumber>[lindex  $slnw $k31]</imsld:slidesnumber>"
+			incr k31
     		}
                 if {[lindex  $alltools 30] == [lindex  $tools $kkk] } {
       			$node appendXML "<imsld:smallgrouptext />"