diff --git a/ChangeLog b/ChangeLog index 4bce370217..12aab52564 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2003-04-04 Derek Atkins + + * src/report/standard-report/transactions.scm: symbols are not + strings in guile-1.6. Fixes debian bug #186004. + * doc/gnucash.1.in: it's --add-price-quotes (not quote) + * src/app-utils/date-utilities.scm: fix "WeekDelta" and add + TwoWeekDelta. Fixes debian #185860. + 2003-04-03 Derek Atkins * src/scm/main.scm: guile-1.6 requires empty lists to be quoted diff --git a/doc/gnucash.1.in b/doc/gnucash.1.in index 9f86f2033c..8191a21467 100644 --- a/doc/gnucash.1.in +++ b/doc/gnucash.1.in @@ -47,7 +47,7 @@ Set the search path for documentation files Evaluate the guile command .IP --load FILE Load the given .scm file -.IP --add-price-quote FILE +.IP --add-price-quotes FILE Add price quotes to the given data file .IP --load-user-config Load the user configuration diff --git a/src/app-utils/date-utilities.scm b/src/app-utils/date-utilities.scm index be8d39fc72..6198f2d7a6 100644 --- a/src/app-utils/date-utilities.scm +++ b/src/app-utils/date-utilities.scm @@ -299,7 +299,8 @@ (define deltalist (list (cons 'SecDelta SecDelta) (cons 'DayDelta DayDelta) - (cons 'WeejDelta WeekDelta) + (cons 'WeekDelta WeekDelta) + (cons 'TwoWeekDelta TwoWeekDelta) (cons 'MonthDelta MonthDelta) (cons 'QuarterDelta QuarterDelta) (cons 'HalfYearDelta HalfYearDelta) diff --git a/src/report/standard-reports/transaction.scm b/src/report/standard-reports/transaction.scm index 9f1f074394..b6546c64e0 100644 --- a/src/report/standard-reports/transaction.scm +++ b/src/report/standard-reports/transaction.scm @@ -1142,7 +1142,7 @@ Credit Card, and Income accounts"))))) ;;This should probably a cond or a case to allow for different filter types. ;;(gnc:warn "Filter Mode: " filter-mode) - (if (string=? filter-mode "include") + (if (eq? filter-mode 'include) (begin ;;(gnc:warn "Including Filter Accounts") (set! splits (filter (lambda (split) @@ -1151,7 +1151,7 @@ Credit Card, and Income accounts"))))) ) ) - (if (string=? filter-mode "exclude") + (if (eq? filter-mode 'exclude) (begin ;;(gnc:warn "Excluding Filter Accounts") (set! splits (filter (lambda (split)