Index: openacs-4/packages/beehive/sql/postgresql/beehive-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/sql/postgresql/beehive-create.sql,v diff -u -r1.4 -r1.5 --- openacs-4/packages/beehive/sql/postgresql/beehive-create.sql 27 Dec 2006 05:57:26 -0000 1.4 +++ openacs-4/packages/beehive/sql/postgresql/beehive-create.sql 28 Dec 2006 05:38:44 -0000 1.5 @@ -10,7 +10,7 @@ create table beehive_pattern ( num serial, techniqe varchar(50), name varchar(200), roles varchar(300), mx varchar(10), mn varchar(10), df varchar(10), t2 varchar(10), t3 varchar(10), t4 varchar(10), t5 varchar(10), t6 varchar(10), t7 varchar(10), t8 varchar(10), t9 varchar(10), t10 varchar(10), t11 varchar(10), t12 varchar(10), t13 varchar(10), t14 varchar(10), t15 varchar(10), t17 varchar(10), t18 varchar(10), t19 varchar(10), t20 varchar(10), t22 varchar(10), t23 varchar(10), t24 varchar(10), t26 varchar(10), t27 varchar(10), t28 varchar(10), t29 varchar(10), t30 varchar(10), t31 varchar(10), t32 varchar(10), t33 varchar(10), t34 varchar(10), t35 varchar(10), t36 varchar(10), t37 varchar(10), t38 varchar(10), adda1 varchar(10), addv1 varchar(10), adda2 varchar(10), addv2 varchar(10), adda3 varchar(10), addv3 varchar(10), ctype1 varchar(10), ctype2 varchar(10), ctype3 varchar(10), controlld1 varchar(10), controlld2 varchar(10), btype1 varchar(10), btype2 varchar(10), dtype1 varchar(10), anon1 varchar(10), anon2 varchar(10), anon3 varchar(10), anon4 varchar(10), problem varchar(200), example varchar(200), context varchar(200), gstructure varchar(200), solution varchar(3000), uses varchar(200), criticalthinking varchar(10), creativethinking varchar(10), analyticalskills varchar(10), decisionmaking varchar(10), leadership varchar(10), timemanagement varchar(10), oralcommunication varchar(10), writtencommunicatoin varchar(10), reflecting varchar(10), searchingskills varchar(10), knowledgesharing varchar(10)); -create table beehive_ses ( number varchar(30), tutor varchar(60), classname varchar(60), stype varchar(30), name varchar(200), roles varchar(300), mx varchar(10), mn varchar(10), df varchar(10), timew varchar(10), datew varchar(30), titlew varchar(200), t2 varchar(10), t3 varchar(10), t4 varchar(10), t5 varchar(10), t6 varchar(10), t7 varchar(10), t8 varchar(10), t9 varchar(10), t10 varchar(10), t11 varchar(10), t12 varchar(10), t13 varchar(10), t14 varchar(10), t15 varchar(10), t17 varchar(10), t18 varchar(10), t19 varchar(10), t20 varchar(10), t22 varchar(10), t23 varchar(10), t24 varchar(10), t26 varchar(10), t27 varchar(10), t28 varchar(10), t29 varchar(10), t30 varchar(10), t31 varchar(10), t32 varchar(10), t33 varchar(10), t34 varchar(10), t35 varchar(10), t36 varchar(10), t37 varchar(10), t38 varchar(10), adda1 varchar(10), addv1 varchar(10), adda2 varchar(10), addv2 varchar(10), adda3 varchar(10), addv3 varchar(10), ctype1 varchar(10), ctype2 varchar(10), ctype3 varchar(10), controlld1 varchar(10), controlld2 varchar(10), sessioninfo varchar(10000), roleinfo varchar(5000), ih varchar(70), groupinfo varchar(10000), el varchar(300), ideasnumber varchar(10), ideastext varchar(10000), largesharedtext varchar(5000), smallsharedtext varchar(5000), individualtext varchar(5000),smallannotatedtext varchar(5000),largeannotatedtext varchar(5000),sln varchar(10), slnw varchar(10), btype1 varchar(10), btype2 varchar(10), dtype1 varchar(10), anon1 varchar(10), anon2 varchar(10), anon3 varchar(10), anon4 varchar(10), criticalthinking varchar(10), creativethinking varchar(10), analyticalskills varchar(10),decisionmaking varchar(10), leadership varchar(10), timemanagement varchar(10), oralcommunication varchar(10), writtencommunicatoin varchar(10),reflecting varchar(10), searchingskills varchar(10), knowledgesharing varchar(10),solution varchar(3000) ); +create table beehive_ses ( number varchar(30), tutor varchar(60), classname varchar(60), stype varchar(30), name varchar(200), roles varchar(300), mx varchar(10), mn varchar(10), df varchar(10), timew varchar(10), datew varchar(30), titlew varchar(200), t2 varchar(10), t3 varchar(10), t4 varchar(10), t5 varchar(10), t6 varchar(10), t7 varchar(10), t8 varchar(10), t9 varchar(10), t10 varchar(10), t11 varchar(10), t12 varchar(10), t13 varchar(10), t14 varchar(10), t15 varchar(10), t17 varchar(10), t18 varchar(10), t19 varchar(10), t20 varchar(10), t22 varchar(10), t23 varchar(10), t24 varchar(10), t26 varchar(10), t27 varchar(10), t28 varchar(10), t29 varchar(10), t30 varchar(10), t31 varchar(10), t32 varchar(10), t33 varchar(10), t34 varchar(10), t35 varchar(10), t36 varchar(10), t37 varchar(10), t38 varchar(10), adda1 varchar(10), addv1 varchar(10), adda2 varchar(10), addv2 varchar(10), adda3 varchar(10), addv3 varchar(10), ctype1 varchar(10), ctype2 varchar(10), ctype3 varchar(10), controlld1 varchar(10), controlld2 varchar(10), sessioninfo varchar(10000), roleinfo varchar(5000), ih varchar(70), groupinfo varchar(10000), el varchar(300), ideasnumber varchar(10), ideastext varchar(10000), largesharedtext varchar(5000), smallsharedtext varchar(5000), individualtext varchar(5000),smallannotatedtext varchar(5000),largeannotatedtext varchar(5000),sln varchar(10),fln varchar(10), slnw varchar(10), btype1 varchar(10), btype2 varchar(10), dtype1 varchar(10), anon1 varchar(10), anon2 varchar(10), anon3 varchar(10), anon4 varchar(10), criticalthinking varchar(10), creativethinking varchar(10), analyticalskills varchar(10),decisionmaking varchar(10), leadership varchar(10), timemanagement varchar(10), oralcommunication varchar(10), writtencommunicatoin varchar(10),reflecting varchar(10), searchingskills varchar(10), knowledgesharing varchar(10),solution varchar(3000) ); create table beehive_patscript ( tname varchar(100), techniqe varchar(50), n1 integer, ins1 varchar(500), tr1 varchar(100), tl1 varchar(20), tool1 varchar(50), n2 integer, ins2 varchar(500), tr2 varchar(100), tl2 varchar(20), tool2 varchar(50), n3 integer, ins3 varchar(500), tr3 varchar(100), tl3 varchar(20), tool3 varchar(50), n4 integer, ins4 varchar(500), tr4 varchar(100), tl4 varchar(20), tool4 varchar(50), n5 integer, ins5 varchar(500), tr5 varchar(100), tl5 varchar(20), tool5 varchar(50), n6 integer, ins6 varchar(500), tr6 varchar(100), tl6 varchar(20), tool6 varchar(50), n7 integer, ins7 varchar(500), tr7 varchar(100), tl7 varchar(20), tool7 varchar(50), n8 integer, ins8 varchar(500), tr8 varchar(100), tl8 varchar(20), tool8 varchar(50), n9 integer, ins9 varchar(500), tr9 varchar(100), tl9 varchar(20), tool9 varchar(50), n10 integer, ins10 varchar(500), tr10 varchar(100), tl10 varchar(20), tool10 varchar(50), n11 integer, ins11 varchar(500), tr11 varchar(100), tl11 varchar(20), tool11 varchar(50), n12 integer, ins12 varchar(500), tr12 varchar(100), tl12 varchar(20), tool12 varchar(50), n13 integer, ins13 varchar(500), tr13 varchar(100), tl13 varchar(20), tool13 varchar(50), n14 integer, ins14 varchar(500), tr14 varchar(100), tl14 varchar(20), tool14 varchar(50), n15 integer, ins15 varchar(500), tr15 varchar(100), tl15 varchar(20), tool15 varchar(50), n16 integer, ins16 varchar(500), tr16 varchar(100), tl16 varchar(20), tool16 varchar(50), n17 integer, ins17 varchar(500), tr17 varchar(100), tl17 varchar(100), tool17 varchar(50), n18 integer, ins18 varchar(500), tr18 varchar(100), tl18 varchar(20), tool18 varchar(50), n19 integer, ins19 varchar(500), tr19 varchar(20), tl19 varchar(20), tool19 varchar(50), n20 integer, ins20 varchar(500), tr20 varchar(100), tl20 varchar(20), tool20 varchar(50), n21 integer, ins21 varchar(500), tr21 varchar(100), tl21 varchar(20), tool21 varchar(50), n22 integer, ins22 varchar(500), tr22 varchar(100), tl22 varchar(20), tool22 varchar(50), n23 integer, ins23 varchar(500), tr23 varchar(100), tl23 varchar(20), tool23 varchar(50), n24 integer, ins24 varchar(500), tr24 varchar(100), tl24 varchar(20), tool24 varchar(50), n25 integer, ins25 varchar(500), tr25 varchar(100), tl25 varchar(20), tool25 varchar(50)); Index: openacs-4/packages/beehive/www/create-edit-session2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/create-edit-session2.adp,v diff -u -r1.7 -r1.8 --- openacs-4/packages/beehive/www/create-edit-session2.adp 27 Dec 2006 05:57:26 -0000 1.7 +++ openacs-4/packages/beehive/www/create-edit-session2.adp 28 Dec 2006 05:38:45 -0000 1.8 @@ -157,9 +157,12 @@ - #beehive.Providing_staged_resource# | #beehive.Tasks_more# + #beehive.Providing_staged_resource# #beehive.Files_number# | #beehive.Tasks_more# + + +
#beehive.Feedback_Tasks# Index: openacs-4/packages/beehive/www/create-edit-session2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/create-edit-session2.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/beehive/www/create-edit-session2.tcl 27 Dec 2006 05:57:26 -0000 1.4 +++ openacs-4/packages/beehive/www/create-edit-session2.tcl 28 Dec 2006 05:38:45 -0000 1.5 @@ -57,6 +57,7 @@ } set sln 1 + set fln 1 set slnw 1 # Customize the page title to reflect the fact that this form is used to # create a new session. Index: openacs-4/packages/beehive/www/create-edit-session3-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/create-edit-session3-postgresql.xql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/beehive/www/create-edit-session3-postgresql.xql 27 Dec 2006 05:57:26 -0000 1.3 +++ openacs-4/packages/beehive/www/create-edit-session3-postgresql.xql 28 Dec 2006 05:38:45 -0000 1.4 @@ -26,7 +26,7 @@ - UPDATE beehive_ses SET t2= :t2,t3= :t3,t4= :t4,t5= :t5,t6= :t6,t7= :t7,t8= :t8,t9= :t9,t10= :t10,t11= :t11,t12= :t12,t13= :t13,t14= :t14,t15= :t15,t17= :t17,t18 =:t18,t19 =:t19,t20 =:t20,t22 =:t22,t23 =:t23,t24 =:t24,t26 =:t26,t27 =:t27,t28 =:t28,t29 =:t29,t30 =:t30,t31 =:t31,t32 =:t32,t33 =:t33,t34 =:t34,t35 =:t35,t36 =:t36 ,t37 =:t37,t38 =:t38,ctype1 =:ctype1,ctype2 =:ctype2,ctype3 =:ctype3,controlld1 =:controlld1,controlld2 =:controlld2,adda1 =:adda1,addv1 =:addv1,adda2 =:adda2,addv2 =:addv2,adda3 =:adda3,addv3 =:addv3,anon1 =:anon1,anon2 =:anon2,anon3 =:anon3,anon4 =:anon4,btype1 =:btype1,btype2 =:btype2, dtype1 =:dtype1,sln =:sln, slnw =:slnw WHERE number =:session_id + UPDATE beehive_ses SET t2= :t2,t3= :t3,t4= :t4,t5= :t5,t6= :t6,t7= :t7,t8= :t8,t9= :t9,t10= :t10,t11= :t11,t12= :t12,t13= :t13,t14= :t14,t15= :t15,t17= :t17,t18 =:t18,t19 =:t19,t20 =:t20,t22 =:t22,t23 =:t23,t24 =:t24,t26 =:t26,t27 =:t27,t28 =:t28,t29 =:t29,t30 =:t30,t31 =:t31,t32 =:t32,t33 =:t33,t34 =:t34,t35 =:t35,t36 =:t36 ,t37 =:t37,t38 =:t38,ctype1 =:ctype1,ctype2 =:ctype2,ctype3 =:ctype3,controlld1 =:controlld1,controlld2 =:controlld2,adda1 =:adda1,addv1 =:addv1,adda2 =:adda2,addv2 =:addv2,adda3 =:adda3,addv3 =:addv3,anon1 =:anon1,anon2 =:anon2,anon3 =:anon3,anon4 =:anon4,btype1 =:btype1,btype2 =:btype2, dtype1 =:dtype1,sln =:sln,fln =:fln, slnw =:slnw WHERE number =:session_id Index: openacs-4/packages/beehive/www/create-edit-session3.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/create-edit-session3.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/beehive/www/create-edit-session3.adp 27 Dec 2006 05:57:26 -0000 1.4 +++ openacs-4/packages/beehive/www/create-edit-session3.adp 28 Dec 2006 05:38:45 -0000 1.5 @@ -92,9 +92,16 @@ #beehive.Staged_file_changed#

+ <% + for {set i 1} {$i <= $fln} {incr i} { + set fl [subst {flide$i}] + %> + #beehive.File#@i@
+ <% + } + %> + - #beehive.File#
-

Index: openacs-4/packages/beehive/www/create-edit-session3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/create-edit-session3.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/beehive/www/create-edit-session3.tcl 27 Dec 2006 05:57:26 -0000 1.4 +++ openacs-4/packages/beehive/www/create-edit-session3.tcl 28 Dec 2006 05:38:45 -0000 1.5 @@ -33,6 +33,7 @@ { anon3: " " } { anon4: " " } { sln: 0 } +{ fln: 0 } { slnw: 1 } { roles: " " } { newtechnique_flage: 55 } Index: openacs-4/packages/beehive/www/create-edit-session4.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/create-edit-session4.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/beehive/www/create-edit-session4.tcl 27 Dec 2006 05:57:26 -0000 1.4 +++ openacs-4/packages/beehive/www/create-edit-session4.tcl 28 Dec 2006 05:38:45 -0000 1.5 @@ -22,6 +22,7 @@ { ell: " " } { sln: 0 } +{ fln: 0 } { slnw: 0 } { newtechnique_flage: 55 } @@ -36,8 +37,6 @@ -# to update/save uploaded files names -db_dml edit_values {} # get the session's tasks @@ -101,16 +100,17 @@ } # to upload staged file if {$t33 == "checked" } { - - set localfiledf [ns_queryget el] - + + for {set i 1} {$i <= $fln} {incr i} { + set localfiledf [ns_queryget [subst {flide$i}]] + if {$localfiledf != "" } { - set ifpdf [open [ns_queryget [subst {el}].tmpfile] r] + set ifpdf [open [ns_queryget [subst {flide$i}].tmpfile] r] # open the filename for writing set pthdf [acs_root_dir] - set filenamedf [subst {$pthdf/packages/beehive/www/slides/[subst {sess$session_id}]$el}] + set filenamedf [subst {$pthdf/packages/beehive/www/slides/[subst {file$session_id}]$localfiledf}] set ofpdf [open $filenamedf w+] @@ -121,14 +121,21 @@ close $ifpdf close $ofpdf + set el $localfiledf/$el + + # to update/save uploaded files names + db_dml edit_values {} + } else { # to update staged file name db_dml edit_value2 {} } + + } } -set url_import_var [export_vars {edit_flage technique_name technique_num session_id roles sln slnw newtechnique_flage}] +set url_import_var [export_vars {edit_flage technique_name technique_num session_id roles sln slnw newtechnique_flage fll}] ad_returnredirect "create-edit-session5?$url_import_var" Index: openacs-4/packages/beehive/www/create-edit-session5.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/create-edit-session5.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/beehive/www/create-edit-session5.tcl 27 Dec 2006 05:57:26 -0000 1.5 +++ openacs-4/packages/beehive/www/create-edit-session5.tcl 28 Dec 2006 05:38:45 -0000 1.6 @@ -23,6 +23,7 @@ { roles: " " } + } -properties { session:multirow 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.6 -r1.7 --- openacs-4/packages/beehive/www/create-edit-session7.tcl 27 Dec 2006 05:57:26 -0000 1.6 +++ openacs-4/packages/beehive/www/create-edit-session7.tcl 28 Dec 2006 05:38:45 -0000 1.7 @@ -41,6 +41,7 @@ tr:onelist tl:onelist rolesl:onelist + filess:onelist participants:onelist collaborationActivity:onelist collToolServiceId:onelist @@ -156,6 +157,11 @@ set participants $rolesl +set filess [split $el "/"] + + + + # start filling the tools array from only the supporting tools # reseting tools arrays set toolc 0 @@ -505,7 +511,14 @@ } if {[lindex $toolsl $i] == "DownloadFile-EntireSession" } { set tools [linsert $tools end "dynamiclink"] - set dynamiclink [linsert $dynamiclink end $el] + + for {set i 0} {$i < [llength $filess]} {incr i} { + set fname [lindex $filess $i] + set dynamiclink [linsert $dynamiclink end $fname] + + } + + } @@ -879,9 +892,14 @@ } if {[lindex $alltools 14] == [lindex $tools $kkk] } { $node appendXML "" - set node [$node lastChild] - $node appendXML "[lindex $dynamiclink $k16]" + + + set node [$node lastChild] + for {set i 0} {$i < [expr [llength $filess] - 1]} {incr i} { + $node appendXML "[lindex $dynamiclink $k16]" incr k16 + } + } if {[lindex $alltools 15] == [lindex $tools $kkk] } { $node appendXML "" Index: openacs-4/packages/beehive/www/duplicate2-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/duplicate2-postgresql.xql,v diff -u -r1.4 -r1.5 --- openacs-4/packages/beehive/www/duplicate2-postgresql.xql 27 Dec 2006 05:57:26 -0000 1.4 +++ openacs-4/packages/beehive/www/duplicate2-postgresql.xql 28 Dec 2006 05:38:45 -0000 1.5 @@ -12,7 +12,7 @@ - insert into beehive_ses (number,tutor,roles,mx,mn,df,datew,titlew,classname,stype,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t17,t18,t19,t20,t22,t23,t24,t26,t27,t28,t29,t30,t31,t32,t33,t34,t35,t36,t37,t38,ctype1,ctype2,ctype3,controlld1,controlld2,adda1,addv1,adda2,addv2,adda3,addv3,anon1,anon2,anon3,anon4,btype1,btype2,dtype1,sln,slnw,sessioninfo, roleinfo,groupinfo,ideasnumber,ideastext,el,ih, largesharedtext,smallsharedtext,individualtext,smallannotatedtext , largeannotatedtext,timemanagement, writtencommunicatoin , criticalthinking, creativethinking , analyticalskills , decisionmaking , leadership , oralcommunication , searchingskills , knowledgesharing , reflecting,solution ) values (acs_object_id_seq.nextval,:tutor,:roles,:mx,:mn,:df,:dated,:titlew,:classname,:stype,:t2, :t3,:t4,:t5,:t6,:t7,:t8,:t9,:t10,:t11,:t12,:t13,:t14,:t15,:t17,:t18,:t19,:t20,:t22,:t23,:t24,:t26,:t27,:t28,:t29,:t30,:t31,:t32,:t33,:t34,:t35,:t36,:t37,:t38,:ctype1,:ctype2,:ctype3,:controlld1,:controlld2,:adda1,:addv1,:adda2,:addv2,:adda3,:addv3,:anon1,:anon2,:anon3,:anon4,:btype1,:btype2,:dtype1,:sln,:slnw,:sessioninfo,:roleinfo,:groupinfo ,:ideasnumber ,:ideastext,:el, :ih ,:largesharedtext, :smallsharedtext, :individualtext, :smallannotatedtext , :largeannotatedtext,:timemanagement, :writtencommunicatoin , :criticalthinking, :creativethinking , :analyticalskills , :decisionmaking , :leadership , :oralcommunication , :searchingskills , :knowledgesharing , :reflecting, :solution ) + insert into beehive_ses (number,tutor,roles,mx,mn,df,datew,titlew,classname,stype,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t17,t18,t19,t20,t22,t23,t24,t26,t27,t28,t29,t30,t31,t32,t33,t34,t35,t36,t37,t38,ctype1,ctype2,ctype3,controlld1,controlld2,adda1,addv1,adda2,addv2,adda3,addv3,anon1,anon2,anon3,anon4,btype1,btype2,dtype1,sln,fln,slnw,sessioninfo, roleinfo,groupinfo,ideasnumber,ideastext,el,ih, largesharedtext,smallsharedtext,individualtext,smallannotatedtext , largeannotatedtext,timemanagement, writtencommunicatoin , criticalthinking, creativethinking , analyticalskills , decisionmaking , leadership , oralcommunication , searchingskills , knowledgesharing , reflecting,solution ) values (acs_object_id_seq.nextval,:tutor,:roles,:mx,:mn,:df,:dated,:titlew,:classname,:stype,:t2, :t3,:t4,:t5,:t6,:t7,:t8,:t9,:t10,:t11,:t12,:t13,:t14,:t15,:t17,:t18,:t19,:t20,:t22,:t23,:t24,:t26,:t27,:t28,:t29,:t30,:t31,:t32,:t33,:t34,:t35,:t36,:t37,:t38,:ctype1,:ctype2,:ctype3,:controlld1,:controlld2,:adda1,:addv1,:adda2,:addv2,:adda3,:addv3,:anon1,:anon2,:anon3,:anon4,:btype1,:btype2,:dtype1,:sln,:fln,:slnw,:sessioninfo,:roleinfo,:groupinfo ,:ideasnumber ,:ideastext,:el, :ih ,:largesharedtext, :smallsharedtext, :individualtext, :smallannotatedtext , :largeannotatedtext,:timemanagement, :writtencommunicatoin , :criticalthinking, :creativethinking , :analyticalskills , :decisionmaking , :leadership , :oralcommunication , :searchingskills , :knowledgesharing , :reflecting, :solution ) Index: openacs-4/packages/beehive/www/duplicate2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/duplicate2.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/beehive/www/duplicate2.tcl 27 Dec 2006 05:57:26 -0000 1.4 +++ openacs-4/packages/beehive/www/duplicate2.tcl 28 Dec 2006 05:38:45 -0000 1.5 @@ -11,6 +11,11 @@ { titlew: " " } { datew: " " } + +} -properties { + +filess:onelist + } set user_id [ad_conn user_id] @@ -110,9 +115,12 @@ # to upload staged file if {$t33 == "checked" } { - - set filename1 [subst {$pth/packages/beehive/www/slides/[subst {sess$number}]$el}] - set filename2 [subst {$pth/packages/beehive/www/slides/[subst {sess$number1}]$el}] + +set filess [split $el "/"] + for {set i 0} {$i < [expr [llength $filess] - 1]} {incr i} { + + set filename1 [subst {$pth/packages/beehive/www/slides/[subst {file$number}][lindex $filess $i]}] + set filename2 [subst {$pth/packages/beehive/www/slides/[subst {file$number1}][lindex $filess $i]}] set ifp [open $filename1 r+] set ofp [open $filename2 w+] fconfigure $ifp -translation binary @@ -123,9 +131,9 @@ close $ifp close $ofp + } - } Index: openacs-4/packages/beehive/www/flash/collaboration.fla =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/flash/collaboration.fla,v diff -u -r1.8 -r1.9 Binary files differ Index: openacs-4/packages/beehive/www/flash/collaboration.swf =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/beehive/www/flash/collaboration.swf,v diff -u -r1.8 -r1.9 Binary files differ