Index: openacs-4/packages/contacts/lib/fax.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/fax.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/lib/fax.tcl	15 May 2006 14:32:20 -0000	1.1
+++ openacs-4/packages/contacts/lib/fax.tcl	12 Jun 2006 07:57:08 -0000	1.2
@@ -40,8 +40,6 @@
 }
 
 set template_path "[acs_root_dir][parameter::get_from_package_key -package_key contacts -parameter OOMailingPath]"
-set banner_options [util::find_all_files -extension jpg -path "${template_path}/banner"]
-set banner_options [concat [list ""] $banner_options]
 set template_path "[acs_root_dir]/templates/pdf/fax"
 
 set date [split [dt_sysdate] "-"]
@@ -54,12 +52,6 @@
     {recipients:text(inform)
 	{label "[_ contacts.Recipients]"}
     }
-    {banner:text(select),optional
-        {label "[_ contacts.Banner]"} 
-        {help_text "[_ contacts.Banner_help_text]"}
-	{options $banner_options}
-	{section "[_ contacts.oo_message]"}
-    }
     {subject:text(text),optional
 	{label "[_ contacts.Subject]"}
 	{html {size 55}}
@@ -70,6 +62,11 @@
 	{html {cols 70 rows 24}}
 	{help_text {[_ contacts.fax_content_help]}}
     }
+    {pages:integer(text),optional
+	{label "[_ contacts.fax_pages]"}
+	{html {cols 70 rows 24}}
+	{help_text {[_ contacts.fax_pages_help]}}
+    }
     {account_manager_p:text(select)
 	{label "[_ contacts.Account_Manager_P]"}
 	{help_text "[_ contacts.Account_Manager_P_help_text]"}
@@ -94,7 +91,6 @@
 			    ]
 	    set content [list $content $message_info(content_format)]
 	    set title $message_info(title)
-            set banner $message_info(banner)
 	} else {
 	    if { [exists_and_not_null signature] } {
 		set content [list $signature "text/html"]