Index: openacs-4/packages/ams/www/attribute.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/attribute.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/ams/www/attribute.tcl 7 Jun 2005 07:44:14 -0000 1.4
+++ openacs-4/packages/ams/www/attribute.tcl 7 Jun 2005 11:22:46 -0000 1.5
@@ -59,7 +59,7 @@
actions {
label ""
display_template {
-
+
}
}
} -filters {
@@ -85,7 +85,7 @@
set sort_count 10
set sort_key_count 10000
-db_multirow -extend { sort_order sort_key } options select_options {
+db_multirow -extend { sort_order sort_key delete_url } options select_options {
select option_id, option,
CASE WHEN ( select '1' from ams_options where ams_options.option_id = ams_option_types.option_id limit 1 ) IS NULL THEN 0 ELSE 1 END as in_use_p
from ams_option_types
@@ -96,6 +96,7 @@
set sort_key $sort_key_count
incr sort_count 10
incr sort_key_count 1
+ set delete_url [export_vars -base "attribute-option-delete" -url {attribute_id option_id}]
}
if { [template::multirow size options] > 0 } {