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 -N -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 {