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