Index: openacs-4/packages/assessment/lib/item-show-display-f.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-f.tcl,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/assessment/lib/item-show-display-f.tcl	7 Aug 2017 23:48:03 -0000	1.3
+++ openacs-4/packages/assessment/lib/item-show-display-f.tcl	17 Aug 2022 17:23:16 -0000	1.3.2.1
@@ -1,6 +1,11 @@
-# Display shortanswer type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display shortanswer type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    as_item_id:object_type(acs_object)
+}
+
 db_1row display_type_data {}
 
 ad_form -name item_show_display_f -mode display -action item-edit-display-f -export { assessment_id section_id as_item_id } -form {
Index: openacs-4/packages/assessment/lib/item-show-display-fu.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-fu.tcl,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/assessment/lib/item-show-display-fu.tcl	7 Aug 2017 23:48:03 -0000	1.3
+++ openacs-4/packages/assessment/lib/item-show-display-fu.tcl	17 Aug 2022 17:23:16 -0000	1.3.2.1
@@ -1,6 +1,11 @@
-# Display shortanswer type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display shortanswer type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    as_item_id:object_type(acs_object)
+}
+
 db_1row display_type_data {}
 
 ad_form -name item_show_display_sb -mode display -action item-edit-display-sb -export { assessment_id section_id as_item_id } -form {
Index: openacs-4/packages/assessment/lib/item-show-display-rb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-rb.tcl,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/assessment/lib/item-show-display-rb.tcl	7 Aug 2017 23:48:03 -0000	1.3
+++ openacs-4/packages/assessment/lib/item-show-display-rb.tcl	17 Aug 2022 17:23:16 -0000	1.3.2.1
@@ -1,6 +1,11 @@
-# Display radiobutton type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display radiobutton type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    as_item_id:object_type(acs_object)
+}
+
 db_1row display_type_data {}
 
 ad_form -name item_show_display_rb -mode display -action item-edit-display-rb -export { assessment_id section_id as_item_id } -form {
Index: openacs-4/packages/assessment/lib/item-show-display-sa.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-sa.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/assessment/lib/item-show-display-sa.tcl	7 Aug 2017 23:48:03 -0000	1.2
+++ openacs-4/packages/assessment/lib/item-show-display-sa.tcl	17 Aug 2022 17:23:16 -0000	1.2.2.1
@@ -1,6 +1,11 @@
-# Display shortanswer type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display shortanswer type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    as_item_id:object_type(acs_object)
+}
+
 db_1row display_type_data {}
 
 ad_form -name item_show_display_sb -mode display -action item-edit-display-sb -export { assessment_id section_id as_item_id } -form {
Index: openacs-4/packages/assessment/lib/item-show-display-sb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-sb.tcl,v
diff -u -N -r1.5 -r1.5.2.1
--- openacs-4/packages/assessment/lib/item-show-display-sb.tcl	7 Aug 2017 23:48:03 -0000	1.5
+++ openacs-4/packages/assessment/lib/item-show-display-sb.tcl	17 Aug 2022 17:23:16 -0000	1.5.2.1
@@ -1,6 +1,11 @@
-# Display selectbox type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display selectbox type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    as_item_id:object_type(acs_object)
+}
+
 db_1row display_type_data {}
 set boolean_options [list [list "[_ assessment.yes]" t] [list "[_ assessment.no]" f]]
 
Index: openacs-4/packages/assessment/lib/item-show-display-ta.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-ta.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/assessment/lib/item-show-display-ta.tcl	7 Aug 2017 23:48:03 -0000	1.2
+++ openacs-4/packages/assessment/lib/item-show-display-ta.tcl	17 Aug 2022 17:23:16 -0000	1.2.2.1
@@ -1,6 +1,11 @@
-# Display textarea type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display textarea type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    as_item_id:object_type(acs_object)
+}
+
 db_1row display_type_data {}
 
 ad_form -name item_show_display_ta -mode display -action item-edit-display-ta -export { assessment_id section_id as_item_id } -form {
Index: openacs-4/packages/assessment/lib/item-show-display-tb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-tb.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/assessment/lib/item-show-display-tb.tcl	7 Aug 2017 23:48:03 -0000	1.2
+++ openacs-4/packages/assessment/lib/item-show-display-tb.tcl	17 Aug 2022 17:23:16 -0000	1.2.2.1
@@ -1,6 +1,11 @@
-# Display textbox type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display textbox type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    as_item_id:object_type(acs_object)
+}
+
 db_1row display_type_data {}
 
 ad_form -name item_show_display_tb -mode display -action item-edit-display-tb -export { assessment_id section_id as_item_id } -form {
Index: openacs-4/packages/assessment/lib/item-show-fu.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-fu.tcl,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/assessment/lib/item-show-fu.tcl	7 Aug 2017 23:48:03 -0000	1.3
+++ openacs-4/packages/assessment/lib/item-show-fu.tcl	17 Aug 2022 17:23:16 -0000	1.3.2.1
@@ -1,6 +1,11 @@
-# Display short answer type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display short answer type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    as_item_id:object_type(acs_object)
+}
+
 db_1row item_type_data {}
 set boolean_options [list [list "[_ assessment.yes]" t] [list "[_ assessment.no]" f]]
 
Index: openacs-4/packages/assessment/lib/item-show-mc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-mc.tcl,v
diff -u -N -r1.12 -r1.12.2.1
--- openacs-4/packages/assessment/lib/item-show-mc.tcl	7 Aug 2017 23:48:03 -0000	1.12
+++ openacs-4/packages/assessment/lib/item-show-mc.tcl	17 Aug 2022 17:23:16 -0000	1.12.2.1
@@ -1,6 +1,11 @@
-# Display multiple choice type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display multiple choice type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    as_item_id:object_type(acs_object)
+}
+
 db_1row item_type_data {}
 set boolean_options [list [list "[_ assessment.yes]" t] [list "[_ assessment.no]" f]]
 set actions [list [list "[_ acs-kernel.common_Edit]" edit] [list "[_ assessment.add_item_type_mc_existing]" existing]]
Index: openacs-4/packages/assessment/lib/item-show-oq.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-oq.tcl,v
diff -u -N -r1.5 -r1.5.2.1
--- openacs-4/packages/assessment/lib/item-show-oq.tcl	25 Jan 2018 12:16:34 -0000	1.5
+++ openacs-4/packages/assessment/lib/item-show-oq.tcl	17 Aug 2022 17:23:16 -0000	1.5.2.1
@@ -1,6 +1,11 @@
-# Display open question type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display open question type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    as_item_id:object_type(acs_object)
+}
+
 db_1row item_type_data {}
 set keywords [join $keywords ", "]
 
Index: openacs-4/packages/assessment/lib/item-show-sa.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-sa.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/assessment/lib/item-show-sa.tcl	7 Aug 2017 23:48:03 -0000	1.2
+++ openacs-4/packages/assessment/lib/item-show-sa.tcl	17 Aug 2022 17:23:16 -0000	1.2.2.1
@@ -1,6 +1,11 @@
-# Display short answer type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display short answer type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    as_item_id:object_type(acs_object)
+}
+
 db_1row item_type_data {}
 set boolean_options [list [list "[_ assessment.yes]" t] [list "[_ assessment.no]" f]]
 
Index: openacs-4/packages/assessment/lib/results-edit-mc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/results-edit-mc.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/assessment/lib/results-edit-mc.tcl	7 Aug 2017 23:48:03 -0000	1.2
+++ openacs-4/packages/assessment/lib/results-edit-mc.tcl	17 Aug 2022 17:28:12 -0000	1.2.2.1
@@ -1,6 +1,11 @@
-# Display multiple choice type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display multiple choice type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    item_data_id:object_type(as_item_data)
+}
+
 db_1row item_type_data {}
 
 # user answer
Index: openacs-4/packages/assessment/lib/results-edit-oq.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/results-edit-oq.tcl,v
diff -u -N -r1.4 -r1.4.2.1
--- openacs-4/packages/assessment/lib/results-edit-oq.tcl	7 Aug 2017 23:48:03 -0000	1.4
+++ openacs-4/packages/assessment/lib/results-edit-oq.tcl	17 Aug 2022 17:28:12 -0000	1.4.2.1
@@ -1,6 +1,11 @@
-# Display open question type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display open question type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    item_data_id:object_type(as_item_data)
+}
+
 db_1row item_type_data {}
 set keywords [string tolower [ns_quotehtml [join $keywords "\n"]]]
 set answer_text [ad_text_to_html -no_links -- $answer_text]
Index: openacs-4/packages/assessment/lib/results-edit-sa.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/results-edit-sa.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/assessment/lib/results-edit-sa.tcl	7 Aug 2017 23:48:03 -0000	1.2
+++ openacs-4/packages/assessment/lib/results-edit-sa.tcl	17 Aug 2022 17:28:13 -0000	1.2.2.1
@@ -1,6 +1,11 @@
-# Display short answer type data.
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display short answer type data.
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    item_data_id:object_type(as_item_data)
+}
+
 db_1row item_type_data {}
 
 # Local variables: