AUDIT: r17483 - gnucash/trunk/src/business/business-reports - Bug 549738: Make "today" the default date of the aging reports.

Charles Day cedayiv at cvs.gnucash.org
Sun Aug 31 19:30:57 EDT 2008


Author: cedayiv
Date: 2008-08-31 19:30:56 -0400 (Sun, 31 Aug 2008)
New Revision: 17483
Trac: http://svn.gnucash.org/trac/changeset/17483

Modified:
   gnucash/trunk/src/business/business-reports/aging.scm
Log:
Bug 549738: Make "today" the default date of the aging reports.
BP


Modified: gnucash/trunk/src/business/business-reports/aging.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/aging.scm	2008-08-31 04:20:22 UTC (rev 17482)
+++ gnucash/trunk/src/business/business-reports/aging.scm	2008-08-31 23:30:56 UTC (rev 17483)
@@ -323,6 +323,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!
@@ -521,7 +526,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)



More information about the gnucash-changes mailing list