Index: openacs-4/packages/assessment/www/asm-admin/checks-admin.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/checks-admin.tcl,v diff -u -r1.8.2.2 -r1.8.2.3 --- openacs-4/packages/assessment/www/asm-admin/checks-admin.tcl 26 Jul 2005 13:41:25 -0000 1.8.2.2 +++ openacs-4/packages/assessment/www/asm-admin/checks-admin.tcl 1 Aug 2005 18:07:55 -0000 1.8.2.3 @@ -26,15 +26,16 @@ set show_p 0 set by_item_p 1 set item_p "&item_id=$item_id" - set item_id_check $item_id + set item_id_check $item_id + set as_item_id_i [db_string get_item_id { select item_id from cr_revisions where revision_id = :item_id}] set check_list "and c.inter_item_check_id in (" set checks [db_list_of_lists get_all_checks { }] set count 0 foreach check $checks { set cond_list [split [lindex $check 1] "="] - set as_item_id [lindex [split [lindex $cond_list 2] " "] 0] - if { $item_id == $as_item_id} { + set as_item_id [lindex [split [lindex $cond_list 2] ")"] 0] + if { $as_item_id_i == $as_item_id} { incr count append check_list "[lindex $check 0]," } @@ -173,7 +174,7 @@ name { label "[_ assessment.Name]" display_template { - @aa_checks.name@ + @aa_checks.name@ } } action_name { @@ -219,7 +220,7 @@ name { label "[_ assessment.Name]" display_template { - @i_checks.name@ + @i_checks.name@ } } action_name { @@ -264,7 +265,7 @@ name { label "[_ assessment.Name]" display_template { - @m_checks.name@ + @m_checks.name@ } } action_name { @@ -299,7 +300,7 @@ name { label "[_ assessment.Name]" display_template { - @branches.name@ + @branches.name@ } } section_id_to {