Index: openacs-4/packages/assessment/tcl/as-item-display-rb-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-rb-procs.tcl,v diff -u -r1.18 -r1.19 --- openacs-4/packages/assessment/tcl/as-item-display-rb-procs.tcl 10 Jul 2018 14:13:10 -0000 1.18 +++ openacs-4/packages/assessment/tcl/as-item-display-rb-procs.tcl 3 Sep 2024 15:37:35 -0000 1.19 @@ -13,11 +13,11 @@ {-sort_order_type ""} {-item_answer_alignment ""} } { + New Item Display RadioButton Type to the database. + @author Eduardo Perez (eperez@it.uc3m.es) @author Natalia Perez (nperper@it.uc3m.es) @creation-date 2004-07-26 - - New Item Display RadioButton Type to the database. } { set package_id [ad_conn package_id] set folder_id [as::assessment::folder_id -package_id $package_id] @@ -32,7 +32,7 @@ [list choice_orientation $choice_orientation] \ [list choice_label_orientation $choice_label_orientation] \ [list sort_order_type $sort_order_type] \ - [list item_answer_alignment $item_answer_alignment] ] ] + [list item_answer_alignment $item_answer_alignment] ] ] } return $as_item_display_rb_id @@ -46,10 +46,10 @@ {-sort_order_type ""} {-item_answer_alignment ""} } { + Edit Item Display RadioButton Type to the database. + @author Timo Hentschel (timo@timohentschel.de) @creation-date 2004-12-07 - - Edit Item Display RadioButton Type to the database. } { # Update as_item_display_rb in the CR (and as_item_display_rb table) getting the revision_id (as_item_display_id) db_transaction { @@ -61,7 +61,7 @@ [list choice_orientation $choice_orientation] \ [list choice_label_orientation $choice_label_orientation] \ [list sort_order_type $sort_order_type] \ - [list item_answer_alignment $item_answer_alignment] ] ] + [list item_answer_alignment $item_answer_alignment] ] ] } return $new_item_display_id @@ -70,10 +70,10 @@ ad_proc -public as::item_display_rb::copy { -type_id:required } { + Copy an Item Display RadioButton Type. + @author Timo Hentschel (timo@timohentschel.de) @creation-date 2004-12-07 - - Copy an Item Display RadioButton Type. } { set package_id [ad_conn package_id] set folder_id [as::assessment::folder_id -package_id $package_id] @@ -105,10 +105,10 @@ {-data ""} -item:required } { + Render an Item Display RadioButton Type. + @author Timo Hentschel (timo@timohentschel.de) @creation-date 2004-12-10 - - Render an Item Display RadioButton Type. } { if {$required_p eq ""} { set required_p f @@ -144,7 +144,7 @@ set widget radio set datatype text } - + set param_list [list [list label \$title] [list help_text \$subtext] [list value \$default_value] [list options \$data] [list html \$type(html_display_options)]] set element_params [concat [list "$element\:${datatype}($widget)$optional"] $param_list] ad_form -extend -name $form -form [list $element_params] @@ -155,21 +155,21 @@ ad_proc -public as::item_display_rb::data { -type_id:required } { + Get the cached Display Data of RadioButton Type. + @author Timo Hentschel (timo@timohentschel.de) @creation-date 2005-04-08 - - Get the cached Display Data of RadioButton Type. } { return [util_memoize [list as::item_display_rb::data_not_cached -type_id $type_id]] } ad_proc -private as::item_display_rb::data_not_cached { -type_id:required } { + Get the Display Data of RadioButton Type. + @author Timo Hentschel (timo@timohentschel.de) @creation-date 2005-04-08 - - Get the Display Data of RadioButton Type. } { db_1row display_item_data {} -column_array type return [array get type] @@ -187,6 +187,7 @@ {-order_type "order_of_entry"} {-answer_alignment "beside_right"} } { + Set item display type } { db_transaction { @@ -203,7 +204,7 @@ -choice_label_orientation $label_orientation \ -sort_order_type $order_type \ -item_answer_alignment $answer_alignment] - + if {![info exists object_type]} { # first item display mapped as::item_rels::new -item_rev_id $as_item_id -target_rev_id $as_item_display_id -type as_item_display_rel