Index: openacs-4/packages/assessment/lib/results-messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/results-messages.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/assessment/lib/results-messages.tcl	22 Sep 2017 13:23:06 -0000	1.5
+++ openacs-4/packages/assessment/lib/results-messages.tcl	18 Aug 2022 15:48:59 -0000	1.5.2.1
@@ -1,6 +1,12 @@
-# Display all change messages for result points
-# author Timo Hentschel (timo@timohentschel.de)
+ad_include_contract {
+    Display all change messages for result points
 
+    @author Timo Hentschel (timo@timohentschel.de)
+} {
+    section_id:object_type(as_sections)
+    as_item_id:object_type(as_items)
+}
+
 set format "[lc_get d_fmt], [lc_get t_fmt]"
 
 db_multirow -unclobber -extend {session_url user_url} results result_changes {} {
Index: openacs-4/packages/assessment/lib/section-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/section-items.tcl,v
diff -u -r1.19 -r1.19.2.1
--- openacs-4/packages/assessment/lib/section-items.tcl	7 Aug 2017 23:48:03 -0000	1.19
+++ openacs-4/packages/assessment/lib/section-items.tcl	18 Aug 2022 15:48:59 -0000	1.19.2.1
@@ -1,3 +1,10 @@
+ad_include_contract {
+    Section Items
+} {
+    assessment_id:object_type(as_assessments)
+    section_id:object_type(as_sections)
+}
+
 set package_url [ad_conn package_url]
 as::assessment::data -assessment_id $assessment_id
 
Index: openacs-4/packages/assessment/lib/section-links.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/section-links.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/assessment/lib/section-links.tcl	7 Aug 2017 23:48:03 -0000	1.3
+++ openacs-4/packages/assessment/lib/section-links.tcl	18 Aug 2022 15:48:59 -0000	1.3.2.1
@@ -1,9 +1,17 @@
-# shows links relating to 1 assessment
-# example:
-# Assessment Admin | Results | Section 1 | Section 2 
-# Params: assessment_id (required)
-#         tab (required) specifies which tab we're currently on. options are "front", "results" or a section_id
+ad_include_contract {
+    Shows links relating to 1 assessment
 
+    example:
+    Assessment Admin | Results | Section 1 | Section 2
+
+    @param tab specifies which tab we're currently on. options are
+               "front", "results" or a section_id
+
+} {
+    assessment_id:object_type(as_assessments)
+    tab
+}
+
 as::assessment::data -assessment_id $assessment_id
 set assessment_rev_id $assessment_data(assessment_rev_id)
 
Index: openacs-4/packages/assessment/lib/section-show.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/section-show.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/assessment/lib/section-show.tcl	7 Aug 2017 23:48:03 -0000	1.6
+++ openacs-4/packages/assessment/lib/section-show.tcl	18 Aug 2022 15:48:59 -0000	1.6.2.1
@@ -1,3 +1,9 @@
+ad_include_contract {
+    Section Show
+} {
+    section_id:object_type(as_sections)
+}
+
 ad_form -name show_section -form {
     {section_id:text(hidden) {value $section_id}}
 }
Index: openacs-4/packages/assessment/lib/session-show.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session-show.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/assessment/lib/session-show.tcl	7 Aug 2017 23:48:03 -0000	1.4
+++ openacs-4/packages/assessment/lib/session-show.tcl	18 Aug 2022 15:48:59 -0000	1.4.2.1
@@ -1,3 +1,9 @@
+ad_include_contract {
+    Session Show
+} {
+    session_id:object_type(as_sessions)
+}
+
 db_multirow -extend { value } items session_items {
 
     select i.as_item_id, i.subtext, cr.title, cr.description, ci.name,
Fisheye: Tag 1.54.2.1 refers to a dead (removed) revision in file `openacs-4/packages/assessment/www/assessment.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/assessment/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/index.tcl,v
diff -u -r1.14 -r1.14.2.1
--- openacs-4/packages/assessment/www/admin/index.tcl	20 Jan 2018 22:38:28 -0000	1.14
+++ openacs-4/packages/assessment/www/admin/index.tcl	18 Aug 2022 15:48:59 -0000	1.14.2.1
@@ -1,3 +1,6 @@
+ad_page_contract {
+    Admin Index Page
+}
 
 ad_returnredirect "../asm-admin/"
 ad_script_abort