Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl 16 Feb 2006 14:06:43 -0000 1.26
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl 20 Feb 2006 09:13:58 -0000 1.27
@@ -17,6 +17,28 @@
After instantiate callback
} -
+ad_proc -public -callback contact::label {
+ {-request:required}
+ {-for ""}
+} {
+ You can request one of:
+ 1. ad_form_option (list of pretty name key to be used in ad_form)
+ 2. template (the template and stylesheet parts of a page template) the option selected
+ will be passed to the callback as 'for', so the template should only be returned if
+ it matches the option provided by this implementation from ad_form_option
+} -
+
+ad_proc -public -callback contact::envelope {
+ {-request:required}
+ {-for ""}
+} {
+ You can request one of:
+ 1. ad_form_option (list of pretty name key to be used in ad_form)
+ 2. template (the template and stylesheet parts of a page template) the option selected
+ will be passed to the callback as 'for', so the template should only be returned if
+ it matches the option provided by this implementation from ad_form_option
+} -
+
ad_proc -public -callback contact::contact_form {
{-package_id:required}
{-form:required}
@@ -255,3 +277,132 @@
}
}
}
+
+
+ad_proc -public -callback contact::label -impl avery5160 {
+ {-request:required}
+ {-for ""}
+} {
+} {
+ switch $request {
+ ad_form_option {
+ return [list "Avery 5160 (1in x 2.5in, 30 per sheet)" avery5160]
+ }
+ template {
+ if { $for == "avery5160" } {
+ return {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+}
+ }
+ }
+ }
+
+}
+
+ad_proc -public -callback contact::envelope -impl envelope10 {
+ {-request:required}
+ {-for ""}
+} {
+} {
+ switch $request {
+ ad_form_option {
+ return [list "Envelope \#10 (9.5in x 4.125in)" envelope10]
+ }
+ template {
+ if { $for == "envelope10" } {
+ return {
+
+
+
+
+
+
+
+
+
+
+
+
+
+}
+ }
+ }
+ }
+
+}