Index: openacs-4/packages/assessment/lib/section-items.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/section-items.adp,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/assessment/lib/section-items.adp	26 Jan 2005 18:07:50 -0000	1.9
+++ openacs-4/packages/assessment/lib/section-items.adp	1 Feb 2005 22:41:54 -0000	1.10
@@ -38,7 +38,7 @@
 
 <if @items.mc_type@ ne "nmc">
 <a
-href="../admin/add-edit-check?as_item_id=@items.as_item_id@&section_id=@section_id@&assessment_id=@assessment_id@&after=@items.sort_order@">#assessment.add_trigger#</a><img src="../graphics/spacer.gif" border="0" alt="" width="10">
+href="../asm-admin/add-edit-check?as_item_id=@items.as_item_id@&section_id=@section_id@&assessment_id=@assessment_id@&after=@items.sort_order@">#assessment.add_trigger#</a> <a href="../asm-admin/checks-admin?section_id=@items.section_id@&assessment_id=@assessment_id@">@items.checks_related@</a><img src="../graphics/spacer.gif" border="0" alt="" width="10">
 </if>
 
 <if @items.rownum@ lt @items:rowcount@>
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.5 -r1.6
--- openacs-4/packages/assessment/lib/section-items.tcl	26 Jan 2005 18:18:25 -0000	1.5
+++ openacs-4/packages/assessment/lib/section-items.tcl	1 Feb 2005 22:41:54 -0000	1.6
@@ -2,7 +2,7 @@
     {section_id:text(hidden) {value $section_id}}
 }
 
-db_multirow -extend { presentation_type html mc_type} items section_items {} {
+db_multirow -extend { checks_related presentation_type html mc_type} items section_items {} {
     set presentation_type [as::item_form::add_item_to_form -name admin_section -section_id $section_id -item_id $as_item_id]
     if {$presentation_type == "fitb"} {
         regsub -all -line -nocase -- {<textbox as_item_choice_id=} $title "<input name=response_to_item.${as_item_id}_" html
@@ -15,4 +15,17 @@
 	set points 0
     }
     set max_time_to_complete [as::assessment::pretty_time -seconds $max_time_to_complete]
+    
+    set checks [db_list_of_lists checks_related { } ] 
+
+    set checks_related 0
+
+    foreach  check_sql $checks {
+	set cond_list  [split $check_sql "="]
+	set item_id [lindex [split [lindex $cond_list 2] " "] 0]
+	if {$item_id == $as_item_id} {
+	    incr checks_related
+	}
+	
+    }
 }
Index: openacs-4/packages/assessment/lib/section-items.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/section-items.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/lib/section-items.xql	26 Jan 2005 18:18:35 -0000	1.4
+++ openacs-4/packages/assessment/lib/section-items.xql	1 Feb 2005 22:41:54 -0000	1.5
@@ -31,4 +31,13 @@
 </querytext>
 </fullquery>
 
+<fullquery name="checks_related">
+<querytext>
+	
+	select check_sql from as_inter_item_checks where assessment_id=:assessment_id and section_id_from=:section_id
+
+</querytext>
+</fullquery>
+
+
 </queryset>