Index: openacs-4/packages/invoices/www/offer-first-reports.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-first-reports.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/invoices/www/offer-first-reports.tcl 10 Apr 2006 15:58:36 -0000 1.1 +++ openacs-4/packages/invoices/www/offer-first-reports.tcl 13 Apr 2006 12:13:12 -0000 1.2 @@ -4,16 +4,22 @@ @author Timo Hentschel (timo@timohentschel.de) } { - {year ""} - {month ""} - {day ""} + {start_date "YYYY-MM-DD"} + {end_date "YYYY-MM-DD"} {orderby ""} - {last_years "5"} } set page_title "[_ invoices.First_Order_Reports]" set context [list $page_title] set base_url [ad_conn url] +set current_url [ad_conn url] +set clear_link [export_vars -base $current_url {page orderby organization_id}] +set export_vars [export_vars -form {page orderby organization_id}] +set clear_p 1 +if {$start_date == "YYYY-MM-DD" && $end_date == "YYYY-MM-DD"} { + set clear_p 0 +} + ad_return_template