Index: openacs-4/packages/contacts/www/signature.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/signature.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/signature.tcl	18 May 2005 16:45:50 -0000	1.1
+++ openacs-4/packages/contacts/www/signature.tcl	4 Jun 2005 12:36:45 -0000	1.2
@@ -1,68 +1,68 @@
-ad_page_contract {
-    List and manage contacts.
-
-    @author Matthew Geddert openacs@geddert.com
-    @creation-date 2004-07-28
-    @cvs-id $Id$
-} {
-    {signature_id:integer,optional}
-} -validate {
-    valid_signature_id -requires {signature_id} {
-	set party_id [ad_conn user_id]
-	if { ![ad_form_new_p -key signature_id] } {
-	    if { [string is false [db_0or1row sig_is_mine_p {select '1' from contact_signatures where signature_id = :signature_id and party_id = :party_id}]] } {
-		ad_complain "This signature specified either does not exist or does not belong to you"
-	    }
-	}
-    }
-}
-
-
-if { [ad_form_new_p -key signature_id] } {
-    set page_title "Create a Signature"
-    set edit_buttons [list [list "Create" save]]
-} else {
-    set page_title "Edit a Signature"
-    set edit_buttons [list [list "Save" save] [list "Delete" delete]]
-}
-
-set context [list $page_title]
-set party_id [ad_conn user_id]
-set form_elements {
-    signature_id:key
-    {title:text(text) {label "Save As"} {html {size 35 maxlength 35}}}
-    {signature:text(textarea) {label "Signature"} {html {cols 45 rows 5}}}
-    {default_p:boolean(checkbox),optional {label ""} {options {{{this is my default signature} 1}}}}
-}
-
-
-ad_form -action signature \
-    -name signature \
-    -cancel_label "Cancel" \
-    -cancel_url "settings" \
-    -edit_buttons $edit_buttons \
-    -form $form_elements \
-    -on_request {
-    } -new_request {
-    } -edit_request {
-	db_1row get_sig_info { select * from contact_signatures where signature_id = :signature_id }
-    } -on_submit {
-	if { [ns_queryget "formbutton:delete"] != "" } {
-	    db_dml delete_it { delete from contact_signatures where signature_id = :signature_id and party_id = :party_id }
-	    ad_returnredirect "settings"
-	    ad_script_abort
-	}
-	if { [string is false [exists_and_not_null default_p]] } {
-	    set default_p 0
-	} else {
-	    # its true and we reset the default
-	    db_dml update_defaults { update contact_signatures set default_p = 'f' where party_id = :party_id }
-	}
-    } -new_data {
-	db_dml insert_sig { insert into contact_signatures values ( :signature_id, :title, :signature, :default_p, :party_id ) }
-    } -edit_data {
-	db_dml update_sig { update contact_signatures set title = :title, signature = :signature, default_p = :default_p where signature_id = :signature_id }
-    } -after_submit {
-	ad_returnredirect "settings"
-    }
-
+ad_page_contract {
+    List and manage contacts.
+
+    @author Matthew Geddert openacs@geddert.com
+    @creation-date 2004-07-28
+    @cvs-id $Id$
+} {
+    {signature_id:integer,optional}
+} -validate {
+    valid_signature_id -requires {signature_id} {
+	set party_id [ad_conn user_id]
+	if { ![ad_form_new_p -key signature_id] } {
+	    if { [string is false [db_0or1row sig_is_mine_p {select '1' from contact_signatures where signature_id = :signature_id and party_id = :party_id}]] } {
+		ad_complain "This signature specified either does not exist or does not belong to you"
+	    }
+	}
+    }
+}
+
+
+if { [ad_form_new_p -key signature_id] } {
+    set page_title "Create a Signature"
+    set edit_buttons [list [list "Create" save]]
+} else {
+    set page_title "Edit a Signature"
+    set edit_buttons [list [list "Save" save] [list "Delete" delete]]
+}
+
+set context [list $page_title]
+set party_id [ad_conn user_id]
+set form_elements {
+    signature_id:key
+    {title:text(text) {label "Save As"} {html {size 35 maxlength 35}}}
+    {signature:text(textarea) {label "Signature"} {html {cols 45 rows 5}}}
+    {default_p:boolean(checkbox),optional {label ""} {options {{{this is my default signature} 1}}}}
+}
+
+
+ad_form -action signature \
+    -name signature \
+    -cancel_label "Cancel" \
+    -cancel_url "settings" \
+    -edit_buttons $edit_buttons \
+    -form $form_elements \
+    -on_request {
+    } -new_request {
+    } -edit_request {
+	db_1row get_sig_info { select * from contact_signatures where signature_id = :signature_id }
+    } -on_submit {
+	if { [ns_queryget "formbutton:delete"] != "" } {
+	    db_dml delete_it { delete from contact_signatures where signature_id = :signature_id and party_id = :party_id }
+	    ad_returnredirect "settings"
+	    ad_script_abort
+	}
+	if { [string is false [exists_and_not_null default_p]] } {
+	    set default_p 0
+	} else {
+	    # its true and we reset the default
+	    db_dml update_defaults { update contact_signatures set default_p = 'f' where party_id = :party_id }
+	}
+    } -new_data {
+	db_dml insert_sig { insert into contact_signatures values ( :signature_id, :title, :signature, :default_p, :party_id ) }
+    } -edit_data {
+	db_dml update_sig { update contact_signatures set title = :title, signature = :signature, default_p = :default_p where signature_id = :signature_id }
+    } -after_submit {
+	ad_returnredirect "settings"
+    }
+