Index: openacs-4/packages/ams/www/objects.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/objects.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ams/www/objects.tcl 30 Oct 2004 00:23:54 -0000 1.1 +++ openacs-4/packages/ams/www/objects.tcl 18 May 2005 17:11:48 -0000 1.2 @@ -1,66 +1,66 @@ -ad_page_contract { - - @author Matthew Geddert openacs@geddert.com - @creation-date 2004-07-28 - @cvs-id $Id$ - - -} { - {orderby "name"} -} - -set title "Objects" -set context [list $title] - -list::create \ - -name object_types \ - -multirow object_types \ - -key object_type \ - -row_pretty_plural "Object Types" \ - -checkbox_name checkbox \ - -selected_format "normal" \ - -class "list" \ - -main_class "list" \ - -sub_class "narrow" \ - -actions { - } -bulk_actions { - } -elements { - edit { - label {} - } - pretty_name { - display_col pretty_name - label "Pretty Name" - link_url_eval $object_attributes_url - } - object_type { - display_col object_type - label "Object Type" - link_url_eval $object_attributes_url - } - } -filters { - } -groupby { - } -orderby { - } -formats { - normal { - label "Table" - layout table - row { - pretty_name {} - object_type {} - } - } - } - - -db_multirow -extend { object_attributes_url } object_types select_object_types { - select object_type, - pretty_name - from acs_object_types - order by lower(pretty_name) -} { - set object_attributes_url "object?object_type=$object_type" -} - - -ad_return_template +ad_page_contract { + + @author Matthew Geddert openacs@geddert.com + @creation-date 2004-07-28 + @cvs-id $Id$ + + +} { + {orderby "name"} +} + +set title "Objects" +set context [list $title] + +list::create \ + -name object_types \ + -multirow object_types \ + -key object_type \ + -row_pretty_plural "Object Types" \ + -checkbox_name checkbox \ + -selected_format "normal" \ + -class "list" \ + -main_class "list" \ + -sub_class "narrow" \ + -actions { + } -bulk_actions { + } -elements { + edit { + label {} + } + pretty_name { + display_col pretty_name + label "Pretty Name" + link_url_eval $object_attributes_url + } + object_type { + display_col object_type + label "Object Type" + link_url_eval $object_attributes_url + } + } -filters { + } -groupby { + } -orderby { + } -formats { + normal { + label "Table" + layout table + row { + pretty_name {} + object_type {} + } + } + } + + +db_multirow -extend { object_attributes_url } object_types select_object_types { + select object_type, + pretty_name + from acs_object_types + order by lower(pretty_name) +} { + set object_attributes_url "object?object_type=$object_type" +} + + +ad_return_template