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.47 -r1.48
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl 12 Jun 2006 07:54:21 -0000 1.47
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl 28 Oct 2006 16:51:50 -0000 1.48
@@ -488,67 +488,162 @@
return [list "Avery 5160 (1in x 2.5in, 30 per sheet)" avery5160]
}
template {
- if { $for == "avery5160" } {
- return {
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+ switch $for {
+ "avery5160" {
+ return {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ }
+ }
+ "brother" {
+ return {
+
+
+
+
+
+
+
+
+
+
+
+
+
+ }
+ }
+
+ }
+ }
+ }
+
}
+
+ad_proc -public -callback contact::label -impl brother {
+ {-request:required}
+ {-for ""}
+} {
+} {
+ switch $request {
+ ad_form_option {
+ return [list "Brother Etiketten (29mm x 90mm)" brother]
+ }
+ template {
+ switch $for {
+ "brother" {
+ return {
+
+
+
+
+
+
+
+
+
+
+
+
+ }
+ }
+
}
}
}