Index: openacs-4/packages/contacts/contacts.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/contacts.info,v diff -u -r1.61 -r1.62 --- openacs-4/packages/contacts/contacts.info 29 Jan 2006 16:18:16 -0000 1.61 +++ openacs-4/packages/contacts/contacts.info 31 Jan 2006 11:49:22 -0000 1.62 @@ -7,14 +7,14 @@ f t - + Matthew Geddert This application lets you collaboratively view, edit and categorize contacts. 2005-11-23 Contacts is an application for managing all those people and or organization you need to keep track of. It has a complete UI for storing and categorizing contacts. Each contact can have an arbitrary number of custom attributes associated with it, including other contacts (i.e. a certain contact "belongs" to a certain organization). It also functions as a service contract provider for attributes related to users in your system 0 - + @@ -67,6 +67,7 @@ + Index: openacs-4/packages/contacts/lib/oo_mailing.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/oo_mailing.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/contacts/lib/oo_mailing.tcl 29 Jan 2006 16:09:49 -0000 1.6 +++ openacs-4/packages/contacts/lib/oo_mailing.tcl 31 Jan 2006 11:49:22 -0000 1.7 @@ -41,6 +41,7 @@ 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 date [split [dt_sysdate] "-"] append form_elements { Index: openacs-4/packages/contacts/www/message-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message-ae.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/contacts/www/message-ae.adp 28 Jul 2005 13:13:52 -0000 1.2 +++ openacs-4/packages/contacts/www/message-ae.adp 31 Jan 2006 11:49:22 -0000 1.3 @@ -1,5 +1,4 @@ @context;noquote@ @page_title@ - \ No newline at end of file Index: openacs-4/packages/contacts/www/message-ae.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message-ae.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/contacts/www/message-ae.tcl 29 Jan 2006 16:11:29 -0000 1.6 +++ openacs-4/packages/contacts/www/message-ae.tcl 31 Jan 2006 11:49:22 -0000 1.7 @@ -34,6 +34,12 @@ } } +set admin_required_p [parameter::get -parameter "RequireAdminForTemplatesP" -default 0] + +if {$admin_required_p} { + permission::require_permission -object_id [ad_conn package_id] -privilege "admin" +} + set message_exists_p 0 if { [exists_and_not_null item_id] } { if { [db_0or1row message_exists_p { select 1 from contact_messages where item_id = :item_id}] } { @@ -71,6 +77,7 @@ } oo_mailing { set banner_options [util::find_all_files -extension jpg -path "[acs_root_dir][parameter::get_from_package_key -package_key contacts -parameter OOMailingPath]/banner"] + set banner_options [concat [list ""] $banner_options] append form_elements { {banner:text(select),optional {label "[_ contacts.Banner]"}