Index: openacs-4/packages/mail-tracking/lib/messages.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/lib/messages.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/mail-tracking/lib/messages.adp 29 Sep 2005 22:42:04 -0000 1.2
+++ openacs-4/packages/mail-tracking/lib/messages.adp 4 Oct 2005 16:43:05 -0000 1.3
@@ -1,5 +1,7 @@
@page_title;noquote@
@context;noquote@
-
+
+
+
Index: openacs-4/packages/mail-tracking/lib/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/lib/messages.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/mail-tracking/lib/messages.tcl 4 Oct 2005 16:32:07 -0000 1.10
+++ openacs-4/packages/mail-tracking/lib/messages.tcl 4 Oct 2005 16:43:05 -0000 1.11
@@ -1,9 +1,10 @@
# Expects the following optional parameters (in each combination):
#
-# recipient_id - to filter mails for a single receiver
-# sender_id - to filter mails for a single sender
-# package_id to filter mails for a package instance
-# object_id to filter mails for a object_id
+# recipient_id - to filter mails for a single receiver
+# sender_id - to filter mails for a single sender
+# package_id - to filter mails for a package instance
+# object_id - to filter mails for a object_id
+# show_filter_p - to show or not the filters in the inlcude, default to "t"
ad_page_contract {
@@ -19,13 +20,17 @@
object_id:optional
{orderby:optional "recipient_id"}
} -properties {
+ show_filter_p
acs_mail_log:multirow
context:onevalue
}
set page_title [ad_conn instance_name]
set context [list "index"]
+if { ![exists_and_not_null show_filter_p] } {
+ set show_filter_p "t"
+}
set filters [list \
sender_id {