Index: openacs-4/packages/contacts/www/admin/attributes.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/Attic/attributes.tcl,v diff -u -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/contacts/www/admin/attributes.tcl 19 Aug 2004 01:21:41 -0000 1.1.2.2 +++ openacs-4/packages/contacts/www/admin/attributes.tcl 22 Aug 2004 23:57:54 -0000 1.1.2.3 @@ -113,33 +113,9 @@ -# This query will override the ad_page_contract value entry_id -set myquery " - select ca.widget_id, - ca.attribute_id, - ca.attribute, - can.name, - can.help_text, - ca.depreciated_p, - cw.description as widget_description - from contact_attributes ca left join contact_attribute_names can on (can.attribute_id = ca.attribute_id), - contact_widgets cw - where cw.widget_id = ca.widget_id - and can.locale = :locale - [list::filter_where_clauses -and -name "entries"] - [template::list::orderby_clause -orderby -name "entries"] -" -ns_log warning " +db_multirow -unclobber entries get_attributes {} -$myquery - -" - -db_multirow -unclobber entries get_attributes $myquery - - - ad_return_template