| @assessment_name@ | ||
|---|---|---|
| @assessment_instruction@ | ||
| @assessment_data.title@ | ||
| @assessment_data.instructions@ | ||
| #assessment.section#: @items.section_title@ |
| @items.section_description@ |
| #assessment.section#: @section.title@ |
| @section.description@ |
| @section.instructions@ |
- #assessment.Items#
-
| #assessment.Question# @items.rownum@: | |||
- -- - |
- |||
+ + | |||
+ ![[i]](/shared/images/info.gif "Help text")
+ @items.subtext@
+
+
+ + + +
- + Index: openacs-4/packages/assessment/www/assessment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/assessment.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/assessment/www/assessment.tcl 20 Dec 2004 13:55:50 -0000 1.13 +++ openacs-4/packages/assessment/www/assessment.tcl 22 Dec 2004 20:52:17 -0000 1.14 @@ -5,43 +5,108 @@ @author Eduardo P�rez Ureta (eperez@it.uc3m.es) @creation-date 2004-09-13 } -query { - assessment_id:notnull + assessment_id:integer,notnull + {session_id:integer,optional ""} + {section_order:integer,optional ""} + {item_order:integer,optional ""} } -properties { - as_session_id + session_id context:onevalue } +set user_id [ad_conn user_id] set context [list "[_ assessment.Show_Items]"] -set as_session_id [as::session::new -assessment_id $assessment_id -subject_id [ad_conn user_id]] +# Get the assessment data +as::assessment::data -assessment_id $assessment_id -set assessment_name [db_string assessment_name { - SELECT title - FROM as_assessmentsx - WHERE assessment_id = :assessment_id -}] +if {![info exists assessment_data(assessment_id)]} { + ad_return_complaint 1 "[_ assessment.Requested_assess_does]" + ad_script_abort +} -set assessment_instruction [db_string assessment_instruction { - SELECT instructions - FROM as_assessmentsx - WHERE assessment_id = :assessment_id -}] +set assessment_rev_id $assessment_data(assessment_rev_id) -# update the creation_datetime col of as_sessions table to set the time when the subject initiated the Assessment -db_dml session_start {} +db_transaction { + if {[empty_string_p $session_id]} { + # todo: check if there's an old session that could be continued + set session_id [as::session::new -assessment_id $assessment_rev_id -subject_id $user_id] -# form for display an assessment with sections and items -ad_form -name show_item_form -action process-response -html {enctype multipart/form-data} -form { - { as_session_id:text {value $as_session_id} } -} + # update the creation_datetime col of as_sessions table to set the time when the subject initiated the Assessment + db_dml session_start {} + } -# get all items from an assessment -db_multirow -extend {presentation_type html} items query_all_items {} { - set presentation_type [as::item_form::add_item_to_form show_item_form $as_item_id] - # Fill in the blank item. Replace all
Index: openacs-4/packages/assessment/www/process-response.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/process-response.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/assessment/www/process-response.tcl 22 Dec 2004 11:01:33 -0000 1.13 +++ openacs-4/packages/assessment/www/process-response.tcl 22 Dec 2004 20:52:17 -0000 1.14 @@ -7,69 +7,40 @@ @author eperez@it.uc3m.es @date 2004-09-12 } { - as_session_id:integer,notnull + session_id:integer,notnull response_to_item:array,optional,multiple,html + assessment_id:integer,notnull + section_id:integer,notnull + section_order + item_order } set context_bar [list] +set user_id [ad_conn user_id] # FIXME Check staff_id or subject_id against user_id -# update the last_mod_datetime col of as_sessions table to set the time when the most recent submission of assessment was done -db_dml session_finished {} +db_transaction { + db_dml session_updated {} -foreach response_to_item_name [array names response_to_item] { - #reset variables - set rb__display_id {} - unset rb__display_id - set tb__display_id {} - unset tb__display_id - set ta__display_id {} - unset ta__display_id - #get the choice identifier from response_to_item array - regsub -all -line -nocase -- {.*_} $response_to_item_name {} response_to_item_choice_id - #get the item identifier from response_to_item array - regsub -all -line -nocase -- {_.*} $response_to_item_name {} response_to_item_id - set item_display_id [as::item_rels::get_target -item_rev_id $response_to_item_id -type as_item_display_rel] - db_0or1row as_item_display_rbx "SELECT as_item_display_id AS rb__display_id FROM as_item_display_rb WHERE as_item_display_id=:item_display_id" - db_0or1row as_item_display_tbx "SELECT as_item_display_id AS tb__display_id FROM as_item_display_tb WHERE as_item_display_id=:item_display_id" - db_0or1row as_item_display_tax "SELECT as_item_display_id AS ta__display_id FROM as_item_display_ta WHERE as_item_display_id=:item_display_id" - set presentation_type "checkbox" ;# DEFAULT - #set the presentation type - if {[info exists rb__display_id]} {set presentation_type "radio"} - if {[info exists tb__display_id]} {set presentation_type "fitb"} - if {[info exists ta__display_id]} {set presentation_type "textarea"} + foreach response_to_item_name [array names response_to_item] { + #get the choice identifier from response_to_item array + regsub -all -line -nocase -- {.*_} $response_to_item_name {} response_to_item_choice_id + #get the item identifier from response_to_item array + regsub -all -line -nocase -- {_.*} $response_to_item_name {} response_to_item_id - # the presentation type is textbox (fill in the blank item) - if {[info exists tb__display_id]} { - db_foreach session_responses_to_item {SELECT as_item_datax.item_id FROM as_item_datax WHERE as_item_datax.as_item_id=:response_to_item_id AND as_item_datax.choice_answer=:response_to_item_choice_id AND as_item_datax.session_id=:as_session_id} { - content::item::delete -item_id $item_id - } - #insert the answered responses by user in the CR (and as_item_data table) - foreach response $response_to_item($response_to_item_name) { - as::item_data::new -session_id $as_session_id -as_item_id $response_to_item_id -choice_answer $response_to_item_choice_id -text_answer $response - } - } else { - #the presentation type is textarea (short answer item) - if {[info exists ta__display_id]} { - db_foreach session_responses_to_item {SELECT as_item_datax.item_id FROM as_item_datax WHERE as_item_datax.as_item_id=:response_to_item_id AND as_item_datax.session_id=:as_session_id} { - content::item::delete -item_id $item_id - } - #insert the response in the CR (and as_item_data table) - foreach response $response_to_item($response_to_item_name) { - as::item_data::new -session_id $as_session_id -as_item_id $response_to_item_id -text_answer $response - } - #other types of items (presentation type is checkbox or radio) - } else { - db_foreach session_responses_to_item {SELECT as_item_datax.item_id FROM as_item_datax WHERE as_item_datax.as_item_id=:response_to_item_id AND as_item_datax.session_id=:as_session_id} { - content::item::delete -item_id $item_id - } - #insert the answered responses by user in the CR (and as_item_data table) - foreach response $response_to_item($response_to_item_name) { - as::item_data::new -session_id $as_session_id -as_item_id $response_to_item_id -choice_answer $response - } - } + db_1row item_type {} + set item_type [string range $item_type end-1 end] + + as::item_type_$item_type\::process -type_id $item_type_id -session_id $session_id -as_item_id $response_to_item_id -subject_id $user_id -response $response_to_item($response_to_item_name) -max_points $points } } +if {![empty_string_p $section_order]} { + ad_returnredirect [export_vars -base assessment {assessment_id session_id section_order item_order}] + ad_script_abort +} + +db_dml session_finished {} + ad_return_template Index: openacs-4/packages/assessment/www/process-response.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/process-response.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/process-response.xql 22 Dec 2004 20:52:17 -0000 1.1 @@ -0,0 +1,19 @@ + +#assessment.Response_Submitted#
- +
| #assessment.Review_Asessment# @assessment_name@ | #assessment.Review_Asessment# @assessment_data.title@ | |
|---|---|---|
| #assessment.User_ID#: @session_user_name@ | #assessment.Attempt#: @session_attempt@ / Unlimited | |