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.1 -r1.2
--- openacs-4/packages/beehive/www/create-edit-session6.tcl	10 May 2006 05:38:46 -0000	1.1
+++ openacs-4/packages/beehive/www/create-edit-session6.tcl	15 Jun 2006 05:51:20 -0000	1.2
@@ -15,9 +15,7 @@
 { technique_num: 11 }
 { technique_name: " " }
 { roles: " " }
-{ ig: " " }
 { el: " " }
-{ igg: " " }
 { ell: " " }
 
 { sln: 0 }
@@ -37,7 +35,7 @@
 db_multirow sessions get_session_info {}
 	
 template::multirow foreach sessions {
-						}
+					}
 set technique_version $name
 
 if {$edit_flage == 0  } {
@@ -82,67 +80,92 @@
      if {$t24 == "checked" } {
       	set tools [linsert $tools end "RolesDisscussion"]
       }
-      if {$t6 == "checked" } {
-      	set tools [linsert $tools end "InternetSearch"]
-      }
       
+      
       if {$t26 == "checked" } {
       	set tools [linsert $tools end "IdeasPosting"]
       } 
+	if {$t38 == "checked" } {
+      	set tools [linsert $tools end "IdeasDiscussion"]
+      }
+      if {$t35 == "checked" } {
+      	set tools [linsert $tools end "IdeasVoting"]
+      }
       if {$t27 == "checked" } {
       	set tools [linsert $tools end "IceBreaking"]
       } 
+      if {$t37 == "checked" } {
+      	set tools [linsert $tools end "SmallGroupSharedText"]
+      }
+      if {$t10 == "checked" } {
+      	set tools [linsert $tools end "LargeGroupSharedText"]
+      }
+      
+      if {$t20 == "checked" } {
+      	set tools [linsert $tools end "SmallGroupWhiteboard"]
+      } 
+      if {$t11 == "checked" } {
+      	set tools [linsert $tools end "LargeGroupWhiteboard"]
+      }    
+      if {$t32 == "checked" } {
+      	set tools [linsert $tools end "Conferencing"]
+      } 
+
       if {$t34 == "checked" } {
       	set tools [linsert $tools end "Debriefing"]
       }     
-      if {$t28 == "checked" } {
-      	set tools [linsert $tools end "IndividualWriting"]
-      }
+      
       if {$t19 == "checked" } {
       	set tools [linsert $tools end "Evaluation"]
       } 
      if {$t30 == "checked" } {
       	set tools [linsert $tools end "Summarizing"]
       }
-      if {$t35 == "checked" } {
-      	set tools [linsert $tools end "IdeasVoting"]
-      }
+      
       if {$t36 == "checked" } {
       	set tools [linsert $tools end "YesNo"]
       }  
-      if {$t29 == "checked" } {
-      	set tools [linsert $tools end "OwnResolution"]
-      }  
+        
       if {$t17 == "checked" } {
       	set tools [linsert $tools end "QA"]
       }  
-      if {$t31 == "checked" } {
-      	set tools [linsert $tools end "SilentThinking"]
-      }  
+	if {$t14 == "checked" } {
+      	set tools [linsert $tools end "Survey"]
+      } 
+      if {$t12 == "checked" } {
+      	set tools [linsert $tools end "SessionInfo"]
+      } 
+      if {$t4 == "checked" } {
+      	set tools [linsert $tools end "GroupInfo"]
+      }
+      if {$t13 == "checked" } {
+      	set tools [linsert $tools end "RoleInfo"]
+      } 
       if {$t15 == "checked" } {
       	set tools [linsert $tools end "Overview"]
       }  
       if {$t33 == "checked" } {
-      	set tools [linsert $tools end "DynamicLink"]
+      	set tools [linsert $tools end "DownloadFile"]
       }  
-      if {$t37 == "checked" } {
-      	set tools [linsert $tools end "SharedText"]
+       
+      if {$t29 == "checked" } {
+      	set tools [linsert $tools end "OwnResolution"]
+      } 
+      if {$t28 == "checked" } {
+      	set tools [linsert $tools end "SilentThinking"]
       }
-      if {$t38 == "checked" } {
-      	set tools [linsert $tools end "IdeasDiscussion"]
+      if {$t6 == "checked" } {
+      	set tools [linsert $tools end "InternetSearch"]
       }
-      if {$t20 == "checked" } {
-      	set tools [linsert $tools end "Whiteboard"]
-      }    
-         
+      
 
 }
 
 
 
 # to fill the roles 
 set rolesl [split $roles "/"]
-set rolesl [linsert $rolesl end "teacher"]
+# set rolesl [linsert $rolesl end "facilitator"]
 
 
 ad_return_template