IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fix for new-user with no .gnucash bug reported by Bryan Larsen.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4168 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Robert Graham Merkel
2001-05-12 06:31:40 +00:00
parent 6567373dcb
commit 6817312b82
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/scm/main-window.scm
View File

@@ -120,9 +120,15 @@ the account instead of opening a register.") #f))
(define (gnc:main-window-book-close-handler book-url)
(let* ((conf-file-name (gnc:html-encode-string book-url))
(file-dir (build-path (getenv "HOME") ".gnucash" "books"))
(dotgnucash-dir (build-path (getenv "HOME") ".gnucash"))
(file-dir (build-path dotgnucash-dir "books"))
(book-path #f))
;; make sure the books directory is there
;; make sure ~/.gnucash is there
(if (not (access? dotgnucash-dir X_OK)) (mkdir dotgnucash-dir #o700))
;; make sure the books directory is there
(if (not (access? file-dir X_OK)) (mkdir file-dir #o700))
(if conf-file-name