Index: openacs-4/packages/contacts/www/settings.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/settings.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/settings.tcl 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/settings.tcl 4 Jun 2005 12:36:45 -0000 1.2 @@ -1,59 +1,59 @@ -ad_page_contract { - - @author Matthew Geddert openacs@geddert.com - @creation-date 2004-07-28 - @cvs-id $Id$ - - -} { -} - -set title "Settings" -set context [list $title] -set package_id [ad_conn package_id] -set party_id [ad_conn user_id] -set admin_p [ad_permission_p [ad_conn package_id] admin] - -template::list::create \ - -name "signatures" \ - -multirow "signatures" \ - -row_pretty_plural "signatures" \ - -elements { - default_p { - label "" - display_template { - - Default Signature - - } - } - title { - label "" - display_col title - link_url_eval $signature_url - } - signature { - label "" - display_col signature;noquote - } - } -filters { - } -orderby { - } - - -db_multirow -extend { signature_url } signatures select_signatures { - select signature_id, - title, - signature, - default_p - from contact_signatures - where party_id = :party_id - order by default_p, upper(title), upper(signature) -} { - set signature [ad_convert_to_html $signature] - set signature_url [export_vars -base signature -url {signature_id }] -} - - - -ad_return_template +ad_page_contract { + + @author Matthew Geddert openacs@geddert.com + @creation-date 2004-07-28 + @cvs-id $Id$ + + +} { +} + +set title "Settings" +set context [list $title] +set package_id [ad_conn package_id] +set party_id [ad_conn user_id] +set admin_p [ad_permission_p [ad_conn package_id] admin] + +template::list::create \ + -name "signatures" \ + -multirow "signatures" \ + -row_pretty_plural "signatures" \ + -elements { + default_p { + label "" + display_template { + + Default Signature + + } + } + title { + label "" + display_col title + link_url_eval $signature_url + } + signature { + label "" + display_col signature;noquote + } + } -filters { + } -orderby { + } + + +db_multirow -extend { signature_url } signatures select_signatures { + select signature_id, + title, + signature, + default_p + from contact_signatures + where party_id = :party_id + order by default_p, upper(title), upper(signature) +} { + set signature [ad_convert_to_html $signature] + set signature_url [export_vars -base signature -url {signature_id }] +} + + + +ad_return_template