r17561 - gnucash/branches/2.2/src/business/business-reports - [r17483] Bug 549738: Make "today" the default date of the aging reports.

[Andreas Köhler]

Author: andi5
Date: 2008-09-18 23:31:43 -0400 (Thu, 18 Sep 2008)
New Revision: 17561
Trac: http://svn.gnucash.org/trac/changeset/17561

Modified:
   gnucash/branches/2.2/src/business/business-reports/aging.scm
Log:
[r17483] Bug 549738: Make "today" the default date of the aging reports.

Committed by cedayiv.

Modified: gnucash/branches/2.2/src/business/business-reports/aging.scm
===================================================================
--- gnucash/branches/2.2/src/business/business-reports/aging.scm	2008-09-19 02:18:32 UTC (rev 17560)
+++ gnucash/branches/2.2/src/business/business-reports/aging.scm	2008-09-19 03:31:43 UTC (rev 17561)
@@ -316,6 +316,11 @@
     (gnc:options-add-report-date!
      options gnc:pagename-general
      optname-to-date "a")
+    ;; Use a default report date of 'today'
+    (gnc:option-set-value (gnc:lookup-option options
+                                             gnc:pagename-general
+                                             optname-to-date)
+                          (cons 'relative 'today))
    
  ;; all about currencies
     (gnc:options-add-currency!
@@ -514,7 +519,7 @@
         ;; document will be the HTML document that we return.
 	(report-date (gnc:timepair-end-day-time 
 		      (gnc:date-option-absolute-time
-		       (op-value gnc:pagename-general (N_ "To")))))
+		       (op-value gnc:pagename-general optname-to-date))))
 	(interval-vec (list->vector (make-interval-list report-date)))
 	(sort-pred (get-sort-pred 
 		    (op-value gnc:pagename-general optname-sort-by)