[Gnucash-changes] r13707 - gnucash/trunk - Revert report date option to the 1.8 state where the stock

[Christian Stimming]

Author: cstim
Date: 2006-03-28 15:30:58 -0500 (Tue, 28 Mar 2006)
New Revision: 13707
Trac: http://svn.gnucash.org/trac/changeset/13707

Modified:
   gnucash/trunk/ChangeLog
   gnucash/trunk/src/report/standard-reports/account-summary.scm
   gnucash/trunk/src/report/standard-reports/balance-sheet.scm
Log:
Revert report date option to the 1.8 state where the stock
gnc:options-add-report-date! was used and allowed many potential
relative dates.



Modified: gnucash/trunk/ChangeLog
===================================================================
--- gnucash/trunk/ChangeLog	2006-03-28 18:43:07 UTC (rev 13706)
+++ gnucash/trunk/ChangeLog	2006-03-28 20:30:58 UTC (rev 13707)
@@ -1,3 +1,13 @@
+2006-03-28  Christian Stimming  <stimming at tuhh.de>
+
+	* src/report/standard-reports/trial-balance.scm,
+	income-statement.scm, equity-statement.scm: Remove unused strings.
+
+	* src/report/standard-reports/account-summary.scm,
+	balance-sheet.scm: Revert report date option to the 1.8 state
+	where the stock gnc:options-add-report-date! was used and allowed
+	many potential relative dates.
+
 2006-03-27  David Hampton  <hampton at employees.org>
 
 	* src/gnome/glade/account.glade:

Modified: gnucash/trunk/src/report/standard-reports/account-summary.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/account-summary.scm	2006-03-28 18:43:07 UTC (rev 13706)
+++ gnucash/trunk/src/report/standard-reports/account-summary.scm	2006-03-28 20:30:58 UTC (rev 13707)
@@ -69,7 +69,6 @@
 (define opthelp-party-name (N_ "Name of company/individual"))
 
 (define optname-date (N_ "Date"))
-(define opthelp-date (N_ "Account summary as-of date"))
 ;; FIXME this needs an indent option
 
 (define optname-accounts (N_ "Accounts to include"))
@@ -147,12 +146,8 @@
     ;; does anyone know the function to get the company name??
 
     ;; date at which to report balance
-    (add-option
-     (gnc:make-date-option
-      gnc:pagename-general optname-date
-      "c" opthelp-date
-      (lambda () (cons 'absolute (cons (current-time) 0)))
-      #f 'both '(start-cal-year start-prev-year end-prev-year) ))
+    (gnc:options-add-report-date!
+     options gnc:pagename-general optname-date "c")
 
     ;; accounts to work on
     (add-option

Modified: gnucash/trunk/src/report/standard-reports/balance-sheet.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/balance-sheet.scm	2006-03-28 18:43:07 UTC (rev 13706)
+++ gnucash/trunk/src/report/standard-reports/balance-sheet.scm	2006-03-28 20:30:58 UTC (rev 13707)
@@ -82,7 +82,6 @@
 (define opthelp-party-name (N_ "Name of company/individual"))
 
 (define optname-date (N_ "Balance Sheet Date"))
-(define opthelp-date (N_ "Balance sheet as-of date"))
 (define optname-report-form (N_ "Single column Balance Sheet"))
 (define opthelp-report-form
   (N_ "Print liability/equity section in the same column under the assets section as opposed to a second column right of the assets section"))
@@ -157,23 +156,19 @@
     
     (add-option
       (gnc:make-string-option
-      (N_ "General") optname-report-title
+      gnc:pagename-general optname-report-title
       "a" opthelp-report-title reportname))
     (add-option
       (gnc:make-string-option
-      (N_ "General") optname-party-name
+      gnc:pagename-general optname-party-name
       "b" opthelp-party-name ""))
     ;; this should default to company name in (gnc:get-current-book)
     ;; does anyone know the function to get the company name??
     ;; (GnuCash is *so* well documented... sigh)
     
     ;; date at which to report balance
-    (add-option
-     (gnc:make-date-option
-      (N_ "General") optname-date
-      "c" opthelp-date
-      (lambda () (cons 'absolute (cons (current-time) 0)))
-      #f 'both '(start-cal-year start-prev-year end-prev-year) ))
+    (gnc:options-add-report-date!
+     options gnc:pagename-general optname-date "c")
     
     (add-option
      (gnc:make-simple-boolean-option