Index: openacs-4/packages/assessment/www/admin/item-add-mc-choices.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-mc-choices.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-mc-choices.adp 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,7 @@ + +@page_title;noquote@ +@context_bar;noquote@ + +
+ +
Index: openacs-4/packages/assessment/www/admin/item-add-mc-choices.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-mc-choices.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-mc-choices.tcl 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,81 @@ +ad_page_contract { + Form to add the choice data of a multiple choice item. + + @author Timo Hentschel (timo@timohentschel.de) + @cvs-id $Id: +} { + assessment_id:integer + section_id:integer + as_item_id:integer + after:integer + mc_id:integer + display_type + feedback:array,optional + percent:array,optional + selected:array,optional +} -properties { + context_bar:onevalue + page_title:onevalue +} + +ad_require_permission $assessment_id admin + +# Get the assessment data +as::assessment::data -assessment_id $assessment_id + +if {![info exists assessment_data(assessment_id)]} { + ad_return_complaint 1 "[_ assessment.Requested_assess_does]" + ad_script_abort +} + +set page_title [_ assessment.add_new_question] +set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title] + +set selected_options [list [list "[_ assessment.yes]" t]] + +ad_form -name item_add_mc_choices -action item-add-mc-choices -export { assessment_id section_id after mc_id display_type } -form { + {as_item_id:key} +} + +# add form entries for each choice +set ad_form_code "-form \{\n" +set count_correct 0 +db_foreach get_choices {} { + if {$correct_answer_p == "t"} { + append ad_form_code "\{infotxt.$choice_id:text(inform) \{label \"[_ assessment.Choice]\"\} \{value \"$title \"\}\}\n" + } else { + append ad_form_code "\{infotxt.$choice_id:text(inform) \{label \"[_ assessment.Choice]\"\} \{value \"$title \"\}\}\n" + } + append ad_form_code "\{selected.$choice_id:text(checkbox),optional \{label \"[_ assessment.Default_Selected]\"\} \{options \$selected_options\} \{help_text \"[_ assessment.Default_Selected_help]\"\}\}\n" + append ad_form_code "\{feedback.$choice_id:text(textarea),optional \{label \"[_ assessment.Feedback]\"\} \{html \{rows 8 cols 80\}\} \{help_text \"[_ assessment.choice_Feedback_help]\"\}\}\n" + if {$correct_answer_p == "t"} { + set default_percent "\$percentage" + incr count_correct + } else { + set default_percent 0 + } + append ad_form_code "\{percent.$choice_id:text \{label \"[_ assessment.Percent_Score]\"\} \{value \"$default_percent\"\} \{html \{size 5 maxlength 5\}\} \{help_text \"[_ assessment.Percent_Score_help]\"\}\}\n" +} +append ad_form_code "\}" +set percentage [expr 100 / $count_correct] +eval ad_form -extend -name item_add_mc_choices $ad_form_code + + +ad_form -extend -name item_add_mc_choices -edit_request { +} -edit_data { + db_transaction { + set count 0 + foreach choice_id [array names feedback] { + set feedback_text $feedback($choice_id) + set selected_p [ad_decode [info exists selected($choice_id)] 0 f t] + set percent_score $percent($choice_id) + db_dml update_choice_data {} + } + } +} -after_submit { + # now go to display-type specific form (i.e. textbox) + ad_returnredirect [export_vars -base "item-add-display-$display_type" {assessment_id section_id as_item_id after}] + ad_script_abort +} + +ad_return_template Index: openacs-4/packages/assessment/www/admin/item-add-mc-choices.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-mc-choices.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-mc-choices.xql 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,28 @@ + + + + + + + select c.choice_id, r.title, c.correct_answer_p + from as_item_choices c, cr_revisions r + where r.revision_id = c.choice_id + and c.mc_id = :mc_id + order by c.sort_order + + + + + + + + update as_item_choices + set feedback_text = :feedback_text, + selected_p = :selected_p, + percent_score = :percent_score + where choice_id = :choice_id + + + + + Index: openacs-4/packages/assessment/www/admin/item-add-mc.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-mc.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-mc.adp 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,7 @@ + +@page_title;noquote@ +@context_bar;noquote@ + +
+ +
Index: openacs-4/packages/assessment/www/admin/item-add-mc.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-mc.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-mc.tcl 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,117 @@ +ad_page_contract { + Form to add a multiple choice item. + + @author Timo Hentschel (timo@timohentschel.de) + @cvs-id $Id: +} { + assessment_id:integer + section_id:integer + as_item_id:integer + after:integer + choice:optional,array + correct:optional,array + {num_choices:integer,optional 10} +} -properties { + context_bar:onevalue + page_title:onevalue +} + +ad_require_permission $assessment_id admin + +# Get the assessment data +as::assessment::data -assessment_id $assessment_id + +if {![info exists assessment_data(assessment_id)]} { + ad_return_complaint 1 "[_ assessment.Requested_assess_does]" + ad_script_abort +} + +set page_title [_ assessment.add_new_question] +set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title] + +set boolean_options [list [list "[_ assessment.yes]" t] [list "[_ assessment.no]" f]] +set correct_options [list [list "[_ assessment.yes]" t]] + +set display_types [list] +foreach display_type [db_list display_types {}] { + lappend display_types [list "[_ assessment.item_display_$display_type]" $display_type] +} + + +ad_form -name item_add_mc -action item-add-mc -export { assessment_id section_id after num_choices } -form { + {as_item_id:key} + {title:text {label "[_ assessment.Title]"} {html {size 80 maxlength 1000}} {help_text "[_ assessment.mc_Title_help]"}} + {increasing_p:text(select) {label "[_ assessment.Increasing]"} {options $boolean_options} {help_text "[_ assessment.Increasing_help]"}} + {negative_p:text(select) {label "[_ assessment.Allow_Negative]"} {options $boolean_options} {help_text "[_ assessment.Allow_Negative_help]"}} + {num_correct_answers:text {label "[_ assessment.num_Correct_Answer]"} {html {size 5 maxlength 5}} {help_text "[_ assessment.num_Correct_help]"}} + {num_answers:text,optional {label "[_ assessment.num_Answers]"} {html {size 5 maxlength 5}} {help_text "[_ assessment.num_Answers_help]"}} + {display_type:text(select) {label "[_ assessment.Display_Type]"} {options $display_types} {help_text "[_ assessment.Display_Type_help]"}} +} + +# add form entries for each choice +set ad_form_code "-form \{\n" +for {set i 1} {$i <= $num_choices} {incr i} { + if {[info exists choice($i)]} { + append ad_form_code "\{choice.$i:text,optional \{label \"[_ assessment.Choice] $i\"\} \{html \{size 80 maxlength 1000\}\} \{value \"\$choice($i)\"\} \{help_text \"[_ assessment.Choice_help]\"\}\}\n" + } else { + append ad_form_code "\{choice.$i:text,optional \{label \"[_ assessment.Choice] $i\"\} \{html \{size 80 maxlength 1000\}\} \{help_text \"[_ assessment.Choice_help]\"\}\}\n" + } + if {[info exists correct($i)]} { + append ad_form_code "\{correct.$i:text(checkbox),optional \{label \"[_ assessment.Correct_Answer_Choice] $i\"\} \{options \$correct_options\} \{values t\} \{help_text \"[_ assessment.Correct_Answer_help]\"\}\}\n" + } else { + append ad_form_code "\{correct.$i:text(checkbox),optional \{label \"[_ assessment.Correct_Answer_Choice] $i\"\} \{options \$correct_options\} \{help_text \"[_ assessment.Correct_Answer_help]\"\}\}\n" + } +} +append ad_form_code "\}" +eval ad_form -extend -name item_add_mc $ad_form_code + + +ad_form -extend -name item_add_mc -edit_request { + set title "" + set increasing_p f + set negative_p f + set num_correct_answers "1" + set num_answers "" + set display_type "sa" +} -on_submit { + if {[template::form get_action item_add_mc] == "more"} { + # add 5 more choice entries and redirect to this form + incr num_choices 5 + ad_returnredirect [export_vars -base "item-add-mc" {assessment_id section_id as_item_id after as_item_type_id title increasing_p negative_p num_correct_answers num_answers display_type num_choices choice:array correct:array}] + ad_script_abort + } +} -edit_data { + db_transaction { + set mc_id [as::item_type_mc::new \ + -title $title \ + -increasing_p $increasing_p \ + -allow_negative_p $negative_p \ + -num_correct_answers $num_correct_answers \ + -num_answers $num_answers] + + content::item::relate -item_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:as_item_id"] -object_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:mc_id"] -relation_tag {as_item_type_rel} -relation_type {cr_item_rel} + + set count 0 + foreach i [array names choice] { + if {![empty_string_p $choice($i)]} { + incr count + set choice_id [as::item_choice::new -mc_id $mc_id \ + -title "$choice($i)" \ + -numeric_value "" \ + -text_value "" \ + -content_value "" \ + -feedback_text "" \ + -selected_p "" \ + -correct_answer_p "[ad_decode [info exists correct($i)] 0 f t]" \ + -sort_order "$count" \ + -percent_score ""] + } + } + } +} -after_submit { + # now go to form to enter choice-specific data + ad_returnredirect [export_vars -base "item-add-mc-choices" {assessment_id section_id as_item_id after mc_id display_type choice:array correct:array}] + ad_script_abort +} + +ad_return_template Index: openacs-4/packages/assessment/www/admin/item-add-mc.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-mc.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-mc.xql 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,14 @@ + + + + + + + select display_type + from as_item_types_map + where item_type = 'mc' + + + + + Index: openacs-4/packages/assessment/www/admin/item-add-oq.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-oq.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-oq.adp 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,7 @@ + +@page_title;noquote@ +@context_bar;noquote@ + +
+ +
Index: openacs-4/packages/assessment/www/admin/item-add-oq.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-oq.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-oq.tcl 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,61 @@ +ad_page_contract { + Form to add an open question item. + + @author Timo Hentschel (timo@timohentschel.de) + @cvs-id $Id: +} { + assessment_id:integer + section_id:integer + as_item_id:integer + after:integer +} -properties { + context_bar:onevalue + page_title:onevalue +} + +ad_require_permission $assessment_id admin + +# Get the assessment data +as::assessment::data -assessment_id $assessment_id + +if {![info exists assessment_data(assessment_id)]} { + ad_return_complaint 1 "[_ assessment.Requested_assess_does]" + ad_script_abort +} + +set page_title [_ assessment.add_new_question] +set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title] + +set display_types [list] +foreach display_type [db_list display_types {}] { + lappend display_types [list "[_ assessment.item_display_$display_type]" $display_type] +} + + +ad_form -name item_add_oq -action item-add-oq -export { assessment_id section_id after } -form { + {as_item_id:key} + {title:text {label "[_ assessment.Title]"} {html {size 80 maxlength 1000}} {help_text "[_ assessment.oq_Title_help]"}} + {default_value:text(textarea),optional {label "[_ assessment.Default_Value]"} {html {rows 5 cols 80}} {help_text "[_ assessment.Deafult_Value_help]"}} + {feedback:text(textarea),optional {label "[_ assessment.Feedback]"} {html {rows 5 cols 80}} {help_text "[_ assessment.Feedback_help]"}} + {display_type:text(select) {label "[_ assessment.Display_Type]"} {options $display_types} {help_text "[_ assessment.Display_Type_help]"}} +} -edit_request { + set title "" + set default_value "" + set feedback "" + set display_type "tb" +} -edit_data { + db_transaction { + set as_item_type_id [as::item_type_oq::new \ + -title $title \ + -default_value $default_value \ + -feedback_text $feedback] + + content::item::relate -item_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:as_item_id"] -object_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:as_item_type_id"] -relation_tag {as_item_type_rel} -relation_type {cr_item_rel} + } +} -after_submit { + # now go to display-type specific form (i.e. textbox) + ad_returnredirect [export_vars -base "item-add-display-$display_type" {assessment_id section_id as_item_id after}] + ad_script_abort +} + +ad_return_template Index: openacs-4/packages/assessment/www/admin/item-add-oq.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-oq.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-oq.xql 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,14 @@ + + + + + + + select display_type + from as_item_types_map + where item_type = 'oq' + + + + + Index: openacs-4/packages/assessment/www/admin/item-add-sa.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-sa.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-sa.adp 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,7 @@ + +@page_title;noquote@ +@context_bar;noquote@ + +
+ +
Index: openacs-4/packages/assessment/www/admin/item-add-sa.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-sa.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-sa.tcl 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,63 @@ +ad_page_contract { + Form to add a short answer item. + + @author Timo Hentschel (timo@timohentschel.de) + @cvs-id $Id: +} { + assessment_id:integer + section_id:integer + as_item_id:integer + after:integer +} -properties { + context_bar:onevalue + page_title:onevalue +} + +ad_require_permission $assessment_id admin + +# Get the assessment data +as::assessment::data -assessment_id $assessment_id + +if {![info exists assessment_data(assessment_id)]} { + ad_return_complaint 1 "[_ assessment.Requested_assess_does]" + ad_script_abort +} + +set page_title [_ assessment.add_new_question] +set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title] + +set boolean_options [list [list "[_ assessment.yes]" t] [list "[_ assessment.no]" f]] + +set display_types [list] +foreach display_type [db_list display_types {}] { + lappend display_types [list "[_ assessment.item_display_$display_type]" $display_type] +} + + +ad_form -name item_add_sa -action item-add-sa -export { assessment_id section_id after } -form { + {as_item_id:key} + {title:text {label "[_ assessment.Title]"} {html {size 80 maxlength 1000}} {help_text "[_ assessment.sa_Title_help]"}} + {increasing_p:text(select) {label "[_ assessment.Increasing]"} {options $boolean_options} {help_text "[_ assessment.Increasing_help]"}} + {negative_p:text(select) {label "[_ assessment.Allow_Negative]"} {options $boolean_options} {help_text "[_ assessment.Allow_Negative_help]"}} + {display_type:text(select) {label "[_ assessment.Display_Type]"} {options $display_types} {help_text "[_ assessment.Display_Type_help]"}} +} -edit_request { + set title "" + set increasing_p f + set negative_p f + set display_type "tb" +} -edit_data { + db_transaction { + set as_item_type_id [as::item_type_sa::new \ + -title $title \ + -increasing_p $increasing_p \ + -allow_negative_p $negative_p] + + content::item::relate -item_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:as_item_id"] -object_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:as_item_type_id"] -relation_tag {as_item_type_rel} -relation_type {cr_item_rel} + } +} -after_submit { + # now go to display-type specific form (i.e. textbox) + ad_returnredirect [export_vars -base "item-add-display-$display_type" {assessment_id section_id as_item_id after}] + ad_script_abort +} + +ad_return_template Index: openacs-4/packages/assessment/www/admin/item-add-sa.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-sa.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add-sa.xql 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,14 @@ + + + + + + + select display_type + from as_item_types_map + where item_type = 'sa' + + + + + Index: openacs-4/packages/assessment/www/admin/item-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add.adp 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,7 @@ + +@page_title;noquote@ +@context_bar;noquote@ + +
+ +
Index: openacs-4/packages/assessment/www/admin/item-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add.tcl 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,99 @@ +ad_page_contract { + Form to add an item. + + @author Timo Hentschel (timo@timohentschel.de) + @cvs-id $Id: +} { + assessment_id:integer + section_id:integer + after:integer +} -properties { + context_bar:onevalue + page_title:onevalue +} + +ad_require_permission $assessment_id admin + +# Get the assessment data +as::assessment::data -assessment_id $assessment_id + +if {![info exists assessment_data(assessment_id)]} { + ad_return_complaint 1 "[_ assessment.Requested_assess_does]" + ad_script_abort +} + +set page_title [_ assessment.add_new_question] +set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title] +set package_id [ad_conn package_id] + +set boolean_options [list [list "[_ assessment.yes]" t] [list "[_ assessment.no]" f]] + +set data_types [list] +foreach data_type [list varchar text integer numeric exponential date timestamp boolean content_type] { + lappend data_types [list "[_ assessment.data_type_$data_type]" $data_type] +} + +set item_types [list] +foreach item_type [db_list item_types {}] { + lappend item_types [list "[_ assessment.item_type_$item_type]" $item_type] +} + + +ad_form -name item_add -action item-add -export { assessment_id section_id after } -form { + {as_item_id:key} + {title:text {label "[_ assessment.Title]"} {html {size 80 maxlength 1000}} {help_text "[_ assessment.item_Title_help]"}} + {description:text(textarea) {label "[_ assessment.Description]"} {html {rows 5 cols 80}} {help_text "[_ assessment.item_Description_help]"}} +} + +if {![empty_string_p [category_tree::get_mapped_trees $package_id]]} { + category::ad_form::add_widgets -container_object_id $package_id -categorized_object_id 0 -form_name item_add +} + +ad_form -extend -name item_add -form { + {subtext:text,optional {label "[_ assessment.Subtext]"} {html {size 80 maxlength 500}} {help_text "[_ assessment.item_Subtext_help]"}} + {field_code:text,optional {label "[_ assessment.Field_Code]"} {html {size 80 maxlength 500}} {help_text "[_ assessment.Field_Code_help]"}} + {definition:text(textarea),optional {label "[_ assessment.Definition]"} {html {rows 5 cols 80}} {help_text "[_ assessment.item_Definition_help]"}} + {required_p:text(select) {label "[_ assessment.Required]"} {options $boolean_options} {help_text "[_ assessment.item_Required_help]"}} + {feedback_right:text(textarea),optional {label "[_ assessment.Feedback_right]"} {html {rows 5 cols 80}} {help_text "[_ assessment.Feedback_right_help]"}} + {feedback_wrong:text(textarea),optional {label "[_ assessment.Feedback_wrong]"} {html {rows 5 cols 80}} {help_text "[_ assessment.Feedback_wrong_help]"}} + {max_time_to_complete:integer,optional {label "[_ assessment.time_for_completion]"} {html {size 10 maxlength 10}} {help_text "[_ assessment.item_time_help]"}} + {data_type:text(select) {label "[_ assessment.Data_Type]"} {options $data_types} {help_text "[_ assessment.Data_Type_help]"}} + {item_type:text(select) {label "[_ assessment.Item_Type]"} {options $item_types} {help_text "[_ assessment.Item_Type_help]"}} +} -new_request { + set title "" + set description "" + set subtext "" + set field_code "" + set definition "" + set required_p t + set feedback_right "" + set feedback_wrong "" + set max_time_to_complete "" + set data_type "varchar" + set item_type "sa" +} -on_submit { + set category_ids [category::ad_form::get_categories -container_object_id $package_id] +} -new_data { + db_transaction { + set as_item_id [as::item::new \ + -title $title \ + -subtext $subtext \ + -field_code $field_code \ + -definition $definition \ + -required_p $required_p \ + -data_type $data_type \ + -feedback_right $feedback_right \ + -feedback_wrong $feedback_wrong \ + -max_time_to_complete $max_time_to_complete] + + if {[exists_and_not_null category_ids]} { + category::map_object -object_id $as_item_id $category_ids + } + } +} -after_submit { + # now go to item-type specific form (i.e. multiple choice) + ad_returnredirect [export_vars -base "item-add-$item_type" {assessment_id section_id as_item_id after}] + ad_script_abort +} + +ad_return_template Index: openacs-4/packages/assessment/www/admin/item-add.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/www/admin/item-add.xql 5 Dec 2004 17:11:59 -0000 1.1 @@ -0,0 +1,13 @@ + + + + + + + select distinct item_type + from as_item_types_map + + + + +