Index: openacs-4/packages/acs-subsite/www/admin/attributes/edit-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/attributes/edit-one.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/attributes/edit-one.tcl	27 Oct 2014 16:39:48 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/attributes/edit-one.tcl	7 Aug 2017 23:47:58 -0000	1.6
@@ -12,7 +12,7 @@
     attribute_id:naturalnum
     id_column:trim,integer
     { attribute_value "" }
-    { return_url "" }
+    { return_url:localurl "" }
 } -properties {
     context:onevalue
     focus:onevalue
@@ -23,22 +23,9 @@
 
 set context [list "Edit attribute"]
 
-db_1row attribute_properties {
-    select a.pretty_name as attribute_pretty_name, a.datatype, a.attribute_id,
-           nvl(a.column_name,a.attribute_name) as attribute_column,
-           t.id_column as type_column, t.table_name as type_table, t.object_type,
-           a.min_n_values
-      from acs_attributes a, acs_object_types t
-     where a.attribute_id = :attribute_id
-       and a.object_type = t.object_type
-}
+db_1row attribute_properties {}
+db_1row select_value {}
 
-db_1row select_value "
-    select my_view.$attribute_column as current_value
-      from ([package_object_view $object_type]) my_view
-     where my_view.object_id = :id_column
-"
-
 template::form create edit_attribute
 
 template::element create edit_attribute attribute_id -value $attribute_id \
@@ -96,3 +83,9 @@
     ad_returnredirect $return_url
     ad_script_abort
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: