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 -N -r1.1 -r1.2
--- openacs-4/packages/beehive/www/create-edit-session7.tcl 10 May 2006 05:38:46 -0000 1.1
+++ openacs-4/packages/beehive/www/create-edit-session7.tcl 15 Jun 2006 05:51:20 -0000 1.2
@@ -67,6 +67,14 @@
helping:onelist
tracking:onelist
dynamiclink:onelist
+ smallgroupsharedtext:onelist
+ largegroupsharedtext:onelist
+ SessionInfo:onelist
+ GroupInfo:onelist
+ RoleInfo:onelist
+ noteTaking:onelist
+ Survey:onelist
+
}
@@ -75,7 +83,7 @@
# initialization of the script's variables
-for {set i 1} {$i <= 20} {incr i} {
+for {set i 1} {$i <= 25} {incr i} {
set [subst {ins$i}] " "
set [subst {tr$i}] " "
set [subst {tl$i}] " "
@@ -87,9 +95,22 @@
eval set [subst {ins$name}] $[subst {insa($name)}]
eval set [subst {tr$name}] $[subst {tra($name)}]
+
+
+
+
+
eval set [subst {tl$name}] $[subst {tla($name)}]
eval set [subst {tool$name}] $[subst {toola($name)}]
+# to fix the timelimit format remove : symbol
+eval set dates $[subst {tla($name)}]
+
+set dates [subst {[string range $dates 0 1][string range $dates 3 4][string range $dates 6 7]}]
+eval set [subst {tl$name}] $dates
+
+
+
}
@@ -141,6 +162,7 @@
set helping " "
set tracking " "
set timing " "
+set noteTaking " "
set tools [linsert $tools end "timing"]
if {$t5 == "checked" } {
set timing [linsert $timing end "teacher"]
@@ -166,6 +188,11 @@
set tracking [linsert $tracking end "teacher"]
incr toolc
}
+if {$t31 == "checked" } {
+ set tools [linsert $tools end "noteTaking"]
+ set noteTaking [linsert $noteTaking end "all"]
+ incr toolc
+ }
# start filling the tools array from the static infoboxs (title, description,etc)
@@ -177,57 +204,15 @@
incr toolc
-if {$t12 == "checked" } {
-
-
- set tools [linsert $tools end "staticinfo"]
- set staticinfo [linsert $staticinfo end "Session Info"]
- set staticinfo [linsert $staticinfo end $st]
- set staticinfo [linsert $staticinfo end "all"]
- set staticinfo [linsert $staticinfo end "4"]
- incr toolc
- }
-if {$t13 == "checked" } {
- # fill the role text array
- set roleText [split $srt "/"]
- for {set i 0} {$i < [llength $roleText]} {incr i} {
- set tools [linsert $tools end "staticinfo"]
- set staticinfo [linsert $staticinfo end "Your Role Info"]
- set staticinfo [linsert $staticinfo end [lindex $roleText $i]]
- set staticinfo [linsert $staticinfo end [lindex $rolesl $i]]
- set staticinfo [linsert $staticinfo end "3"]
- incr toolc
- }
- }
-if {$t32 == "checked" } {
- set tools [linsert $tools end "staticinfo"]
- set staticinfo [linsert $staticinfo end "External links"]
- set staticinfo [linsert $staticinfo end $el]
- set staticinfo [linsert $staticinfo end "all"]
- set staticinfo [linsert $staticinfo end "6"]
- incr toolc
- }
-if {$t14 == "checked" } {
- set tools [linsert $tools end "staticinfo"]
- set staticinfo [linsert $staticinfo end $ih]
- set staticinfo [linsert $staticinfo end $it]
- set staticinfo [linsert $staticinfo end "all"]
- set staticinfo [linsert $staticinfo end "2"]
- incr toolc
- }
-
-
-
-
# reading the script and filling (instructions/turns/timelimits/ staged toolsl)
set ins "no"
set tr "none"
@@ -309,13 +294,17 @@
set vote " "
set monitoring " "
set floorcontrol " "
-
+set smallgroupsharedtext " "
+set largegroupsharedtext " "
set dynamiclink " "
set internetsearch " "
+set SessionInfo " "
+set GroupInfo " "
+set RoleInfo " "
+set Conferencing " "
+set Survey " "
-
-
for {set i 0} {$i < [llength $toolsl]} {incr i} {
set envt [linsert $envt end "1"]
if {[lindex $toolsl $i] == "IdeasPosting" } {
@@ -427,13 +416,8 @@
set chat [linsert $chat end "no"]
}
if {[lindex $toolsl $i] == "IceBreaking" } {
- set tools [linsert $tools end "chat"]
- set chat [linsert $chat end "text-and-audio-and-video"]
- set chat [linsert $chat end "turn"]
- set chat [linsert $chat end "group"]
- set chat [linsert $chat end "Ice Breaking"]
- set chat [linsert $chat end "no"]
- set chat [linsert $chat end "no"]
+ set tools [linsert $tools end "icebreaking"]
+
}
if {[lindex $toolsl $i] == "Evaluation" } {
set tools [linsert $tools end "chat"]
@@ -446,33 +430,31 @@
}
if {[lindex $toolsl $i] == "Debriefing" } {
set tools [linsert $tools end "chat"]
- set chat [linsert $chat end "text"]
+ set chat [linsert $chat end "text-and-audio"]
set chat [linsert $chat end "turn"]
set chat [linsert $chat end "all"]
set chat [linsert $chat end "Debriefing"]
set chat [linsert $chat end "no"]
set chat [linsert $chat end "no"]
}
-
+
if {[lindex $toolsl $i] == "IdeasVoting" } {
set tools [linsert $tools end "vote"]
set vote [linsert $vote end "idea"]
set vote [linsert $vote end "idea Voting"]
- if {$controlld2 == "checked" } {
- set vote [linsert $vote end "teacher"]
- set vote [linsert $vote end $idn]
- set vote [linsert $vote end $idt]
- } else {
set vote [linsert $vote end "learners"]
set vote [linsert $vote end "none"]
set vote [linsert $vote end "none"]
- }
}
if {[lindex $toolsl $i] == "InternetSearch" } {
set tools [linsert $tools end "internetsearch"]
}
+ if {[lindex $toolsl $i] == "Conferencing" } {
+ set tools [linsert $tools end "Conferencing"]
+
+ }
if {[lindex $toolsl $i] == "OwnResolution" } {
set tools [linsert $tools end "ownresolution"]
@@ -481,23 +463,49 @@
if {[lindex $toolsl $i] == "QA" } {
set tools [linsert $tools end "qa"]
}
- if {[lindex $toolsl $i] == "SharedText" } {
- set tools [linsert $tools end "sharedtext"]
+ if {[lindex $toolsl $i] == "SmallGroupSharedText" } {
+ set tools [linsert $tools end "smallgroupsharedtext"]
+ set smallgroupsharedtext [linsert $smallgroupsharedtext end $smallsharedtext]
}
+ if {[lindex $toolsl $i] == "LargeGroupSharedText" } {
+ set tools [linsert $tools end "largegroupsharedtext"]
+ set largegroupsharedtext [linsert $largegroupsharedtext end $largesharedtext]
+ }
+ if {[lindex $toolsl $i] == "SessionInfo" } {
+ set tools [linsert $tools end "SessionInfo"]
+ set SessionInfo [linsert $SessionInfo end $sessioninfo]
+ }
+ if {[lindex $toolsl $i] == "GroupInfo" } {
+ set tools [linsert $tools end "GroupInfo"]
+ set GroupInfo [linsert $GroupInfo end $groupinfo]
+ }
+ if {[lindex $toolsl $i] == "RoleInfo" } {
+ set tools [linsert $tools end "RoleInfo"]
+ set RoleInfo [linsert $RoleInfo end $roleinfo]
+ }
+ if {[lindex $toolsl $i] == "Survey" } {
+ set tools [linsert $tools end "Survey"]
+ set Survey [linsert $Survey end $ideasnumber]
+ set Survey [linsert $Survey end $ideastext]
+ }
+
if {[lindex $toolsl $i] == "IdeasDiscussion" } {
set tools [linsert $tools end "ideasdiscussion"]
}
- if {[lindex $toolsl $i] == "DynamicLink" } {
+ if {[lindex $toolsl $i] == "DownloadFile" } {
set tools [linsert $tools end "dynamiclink"]
- set dynamiclink [linsert $dynamiclink end $ig]
+ set dynamiclink [linsert $dynamiclink end $el]
}
if {[lindex $toolsl $i] == "SilentThinking" } {
set tools [linsert $tools end "silentthinking"]
}
- if {[lindex $toolsl $i] == "Whiteboard" } {
- set tools [linsert $tools end "whiteboard"]
+ if {[lindex $toolsl $i] == "SmallGroupWhiteboard" } {
+ set tools [linsert $tools end "smallgroupwhiteboard"]
}
+ if {[lindex $toolsl $i] == "LargeGroupWhiteboard" } {
+ set tools [linsert $tools end "largegroupwhiteboard"]
+ }
if {[lindex $toolsl $i] == "Overview" } {
set tools [linsert $tools end "overview"]
}
@@ -507,7 +515,7 @@
if {[lindex $toolsl $i] == "YesNo" } {
set tools [linsert $tools end "vote"]
set vote [linsert $vote end "yesno"]
- set vote [linsert $vote end $ynt]
+ set vote [linsert $vote end "Answer the above question by clicking on the yes/no buttons below"]
set vote [linsert $vote end "none"]
set vote [linsert $vote end "none"]
set vote [linsert $vote end "none"]
@@ -608,7 +616,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" "sharedtext" "ideasdiscussion" "slides" "tracking" "whiteboard" }
+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" }
# to publish the xml schema according to this simple structure
@@ -704,27 +712,12 @@
# to add tools inside collaboration service
set kkk 0
-set k1 0
-set k2 0
-set k3 0
-set k4 0
-set k5 0
-set k6 0
-set k7 0
-set k8 0
-set k9 0
-set k10 0
-set k11 0
-set k12 0
-set k13 0
-set k14 0
-set k15 0
-set k16 0
-set k17 0
-set k18 0
-set k19 0
-set k20 0
-set k21 0
+
+for {set i 1} {$i < 31} {incr i} {
+eval set [subst {k$i}] 0
+}
+
+
# when publishing the environment section it will look at the toolsl array
# and skip the repeated tools so for the pervious example
# it pass the toolsll[0] which is the chat, toolsll[2] which is the vote and toolsll[5] which is the summary
@@ -871,8 +864,9 @@
incr k16
}
if {[lindex $alltools 15] == [lindex $tools $kkk] } {
- $node appendXML ""
-
+ $node appendXML ""
+ set node [$node lastChild]
+ $node appendXML "[lindex $smallgroupsharedtext $k17]"
incr k17
}
if {[lindex $alltools 16] == [lindex $tools $kkk] } {
@@ -892,14 +886,66 @@
if {[lindex $alltools 18] == [lindex $tools $kkk] } {
$node appendXML ""
set node [$node lastChild]
- $node appendXML "[lindex $tracking $k15]"
+ $node appendXML "[lindex $tracking $k20]"
incr k20
}
if {[lindex $alltools 19] == [lindex $tools $kkk] } {
- $node appendXML ""
+ $node appendXML ""
incr k21
}
+ if {[lindex $alltools 20] == [lindex $tools $kkk] } {
+ $node appendXML ""
+ set node [$node lastChild]
+ $node appendXML "[lindex $SessionInfo $k22]"
+ incr k22
+ }
+ if {[lindex $alltools 21] == [lindex $tools $kkk] } {
+ $node appendXML ""
+
+ incr k23
+ }
+ if {[lindex $alltools 22] == [lindex $tools $kkk] } {
+ $node appendXML ""
+ incr k24
+ }
+ if {[lindex $alltools 23] == [lindex $tools $kkk] } {
+ $node appendXML ""
+ set node [$node lastChild]
+ $node appendXML "[lindex $Survey $k25]"
+ incr k25
+ $node appendXML "[lindex $Survey $k25]"
+ incr k25
+ }
+ if {[lindex $alltools 24] == [lindex $tools $kkk] } {
+ $node appendXML ""
+ set node [$node lastChild]
+ $node appendXML "[lindex $largegroupsharedtext $k26]"
+ incr k26
+ }
+ if {[lindex $alltools 25] == [lindex $tools $kkk] } {
+ $node appendXML ""
+ incr k27
+ }
+ if {[lindex $alltools 26] == [lindex $tools $kkk] } {
+ $node appendXML ""
+ set node [$node lastChild]
+ $node appendXML "[lindex $GroupInfo $k28]"
+ incr k28
+ }
+ if {[lindex $alltools 27] == [lindex $tools $kkk] } {
+ $node appendXML ""
+ set node [$node lastChild]
+ $node appendXML "[lindex $RoleInfo $k29]"
+ incr k29
+ }
+ # check for individual writing tool
+ if {[lindex $alltools 28] == [lindex $tools $kkk] } {
+ $node appendXML ""
+ incr k30
+ }
+
+
incr kkk
set node [$node parentNode]
}
@@ -935,7 +981,7 @@
close $fileId
-# to generate the graduate attribute
+# to generate the collaboration attribute
# initialize attributes
set timemanagement "checked"
@@ -958,7 +1004,7 @@
# if IdeasPosting
set creativethinking "checked"
}
-if {$t13 == "checked" || $t12 == "checked" || $t32 == "checked" || $t33 == "checked" || $t17 == "checked" } {
+if {$t13 == "checked" || $t12 == "checked" || $t33 == "checked" || $t17 == "checked" } {
# if IdeasPosting
set analyticalskills "checked"
}