[Gnucash-changes] Fix saving of report.

[Christian Stimming]

Log Message:
-----------
Fix saving of report.

2004-06-21  Christian Stimming  <stimming at tuhh.de>

	* src/scm/main-window.scm, src/scm/main.scm: Fix saving of report:
	It now appends to ~/.gnucash/saved-reports-1.8 Statusbar tip is
	now more verbose.

Tags:
----
gnucash-1-8-branch

Modified Files:
--------------
    gnucash:
        ChangeLog
    gnucash/src/scm:
        main.scm
        main-window.scm

Revision Data
-------------
Index: ChangeLog
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/ChangeLog,v
retrieving revision 1.1461.2.340
retrieving revision 1.1461.2.341
diff -LChangeLog -LChangeLog -u -r1.1461.2.340 -r1.1461.2.341
--- ChangeLog
+++ ChangeLog
@@ -1,5 +1,9 @@
 2004-06-21  Christian Stimming  <stimming at tuhh.de>
 
+	* src/scm/main-window.scm, src/scm/main.scm: Fix saving of report:
+	It now appends to ~/.gnucash/saved-reports-1.8 Statusbar tip is
+	now more verbose.
+
 	* po/ru.po: Updated Russian translation by Vitaly Lipatov
 	<lav at altlinux.ru>
 
Index: main.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/scm/main.scm,v
retrieving revision 1.107.2.6
retrieving revision 1.107.2.7
diff -Lsrc/scm/main.scm -Lsrc/scm/main.scm -u -r1.107.2.6 -r1.107.2.7
--- src/scm/main.scm
+++ src/scm/main.scm
@@ -501,7 +501,7 @@
   (gnc:add-extension
    (gnc:make-menu-item
     (N_ "_Save all current reports")
-    (N_ "Save all the current report in ~/.gnucash/saved-reports-1.8 so that they are accessible as menu entries in the report menu.")
+    (N_ "Save all the current report in ~/.gnucash/saved-reports-1.8 so that they are accessible as menu entries in the report menu. Effects are only visible at next startup of gnucash.")
     (list gnc:window-name-main "_File" "_Export")
     (lambda ()
       (gnc:main-window-save-report))))
Index: main-window.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/scm/main-window.scm,v
retrieving revision 1.22.2.5
retrieving revision 1.22.2.6
diff -Lsrc/scm/main-window.scm -Lsrc/scm/main-window.scm -u -r1.22.2.5 -r1.22.2.6
--- src/scm/main-window.scm
+++ src/scm/main-window.scm
@@ -165,7 +165,7 @@
 (define (gnc:main-window-save-report)
   (let ((conf-file-name gnc:current-saved-reports))
     ;;(display conf-file-name)
-    (with-output-to-port (open-output-file conf-file-name)
+    (with-output-to-port (open-file conf-file-name "a")
       (lambda ()
 	(hash-fold
 	 (lambda (k v p)