Index: openacs-4/packages/invoices/lib/report-day.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/lib/report-day.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/invoices/lib/report-day.tcl	7 Sep 2005 18:28:24 -0000	1.3
+++ openacs-4/packages/invoices/lib/report-day.tcl	13 Sep 2005 20:56:48 -0000	1.4
@@ -6,10 +6,6 @@
     set orderby ""
 }
 
-if {![info exists page_size]} {
-    set page_size 25
-}
-
 if {![info exists package_id]} {
     set package_id [ad_conn package_id]
 }
@@ -37,6 +33,10 @@
     set exrta_query "and iv.organization_id = $organization_id"
 }
 
+if { ![empty_string_p $day] } {
+    append extra_query " and to_char(due_date, 'DD') = :day"
+}
+
 set actions [list "[_ invoices.back_to_year]" \
 		 [export_vars -base invoice-reports {organization_id year new_clients_p account_manager_p}]]
 
@@ -109,6 +109,10 @@
 	}
 	month {
 	}
+	day {
+	}
+	last_years {
+	}
 	new_clients_p {
 	    label "[_ invoices.New_clients]"
 	    values {{"[_ invoices.New]" 1}}