Index: openacs-4/packages/dynamic-types/lib/templates/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/lib/templates/Attic/one.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dynamic-types/lib/templates/one.tcl 18 Feb 2005 17:03:11 -0000 1.1.2.1 @@ -0,0 +1,35 @@ +ad_page_contract { + +} -query { + id_column:integer,notnull,optional +} -properties { + page_title + context + header_stuff + focus +} + +set user_id [ad_conn user_id] +set package_id [ad_conn package_id] + +permission::require_permission \ + -party_id $user_id \ + -object_id $package_id \ + -privilege "read" + +dtype::form::add_elements \ + -object_id $id_column \ + -form display + +template::form::set_properties \ + display \ + -action "edit" \ + -mode display + + +set page_title "One pretty name" +set context [list $page_title] +set header_stuff "" +set focus "" + +ad_return_template \ No newline at end of file