reconcile date

[Greg Novak]

Sorry to send this to the whole developer list, but I couldn't find a
contact e-mail on the web site.

Gnucash is a wonderful program, I use it all the time and it's great!

However, I have a few gripes:

1) No contact information on the web site. 
2) Sparse web documentation 
3) "NEWS" file with changes in the new versions is not on the web site (as
far as I could find) 
4) After much digging around, it is utterly
impossible to find out when a given transaction was reconciled.  I'm using
1.4.12, so this has likely changed, but in case it hasn't, I'm attaching a
context diff of my modification to "transaction-report.scm" that displays
the reconcile dates.

Cheers,
Greg

*** transaction-report.scm.orig	Sun Jun  2 23:57:43 2002
--- transaction-report.scm	Mon Jun  3 00:08:53 2002
***************
*** 156,161 ****
--- 156,178 ----
         #f)
  
        (if 
+        (gnc:option-value
+ 	(gnc:lookup-option options "Display" "Reconcile Date"))
+        (make-report-spec 
+ 	(string-db 'lookup 'reconcile-date-string)
+ 	(lambda (split) 
+ 	  (gnc:split-get-reconciled-date split))
+ 	(lambda (date) 
+ 	  (html-left-cell (html-string (gnc:print-date date))))
+ 	#f ; total-proc
+ 	#f ; subtotal-html-proc
+ 	#f ; total-html-proc
+ 	#t ; first-last-preference
+ 	#f ; subs-list-proc
+ 	#f)
+        #f)
+ 
+       (if 
         (eq? (gnc:option-value
  	(gnc:lookup-option options "Display" "Amount")) 'single)
         (make-report-spec
***************
*** 567,572 ****
--- 584,594 ----
        "h" "Display the other account?  (if this is a split transaction, this parameter is guessed)." #f))
  
      (gnc:register-trep-option
+      (gnc:make-simple-boolean-option
+       "Display" "Reconcile Date"
+       "l" "Display the reconcile date?" #f))
+ 
+     (gnc:register-trep-option
       (gnc:make-multichoice-option
        "Display" "Amount"
        "i" "Display the amount?" 
***************
*** 666,671 ****
--- 688,694 ----
  
    (string-db 'store 'title "Transaction Report")
    (string-db 'store 'date-string "Date")
+   (string-db 'store 'reconcile-date-string "Reconcile Date")
    (string-db 'store 'num-string "Num")
    (string-db 'store 'desc-string "Description")
    (string-db 'store 'memo-string "Memo")