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 Bug 611810 - GC crashes when I click on File -> Properties

Browse Source 
SCM files still refered to gnc-book-get-slots which had been removed.  gnc-book-get-slots was replaced everywhere by qof-book-get-slots.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18859 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Phil Longstaff 2010-03-06 20:35:16 +00:00
parent c3997d495a
commit c38ed298a9
9 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/business/business-reports/easy-invoice.scm
View File

@ -644,7 +644,7 @@
(define (make-myname-table book)
(let* ((table (gnc:make-html-table))
(slots (gnc-book-get-slots book))
(slots (qof-book-get-slots book))
(name (kvp-frame-get-slot-path-gslist
slots (append gnc:*kvp-option-path*
(list gnc:*business-label* gnc:*company-name*))))
@ -749,7 +749,7 @@
(if (opt-val "Display" "My Company ID")
(let* ((book (gncInvoiceGetBook invoice))
(slots (gnc-book-get-slots book))
(slots (qof-book-get-slots book))
(taxid (kvp-frame-get-slot-path-gslist
slots (append gnc:*kvp-option-path*
(list gnc:*business-label* gnc:*company-id*)))))

4
src/business/business-reports/fancy-invoice.scm
View File

@ -688,7 +688,7 @@
(define (make-myname-table book date-format title)
(let* ((table (gnc:make-html-table))
(slots (gnc-book-get-slots book))
(slots (qof-book-get-slots book))
(name (kvp-frame-get-slot-path-gslist
slots (append gnc:*kvp-option-path*
(list gnc:*business-label* gnc:*company-name*))))
@ -818,7 +818,7 @@
(if (not (null? invoice))
(let* ((book (gncInvoiceGetBook invoice))
(slots (gnc-book-get-slots book))
(slots (qof-book-get-slots book))
(date-object #f)
(helper-table (gnc:make-html-table))
(title (title-string default-title custom-title)))

2
src/business/business-reports/invoice.scm
View File

@ -608,7 +608,7 @@
(define (make-myname-table book date-format)
(let* ((table (gnc:make-html-table))
(slots (gnc-book-get-slots book))
(slots (qof-book-get-slots book))
(name (kvp-frame-get-slot-path-gslist
slots (append gnc:*kvp-option-path*
(list gnc:*business-label* gnc:*company-name*))))

2
src/business/business-reports/job-report.scm
View File

@ -516,7 +516,7 @@
(define (make-myname-table book date-format)
(let* ((table (gnc:make-html-table))
(slots (gnc-book-get-slots book))
(slots (qof-book-get-slots book))
(name (kvp-frame-get-slot-path-gslist
slots (append gnc:*kvp-option-path*
(list gnc:*business-label* gnc:*company-name*))))

2
src/business/business-reports/owner-report.scm
View File

@ -525,7 +525,7 @@
(define (make-myname-table book date-format)
(let* ((table (gnc:make-html-table))
(slots (gnc-book-get-slots book))
(slots (qof-book-get-slots book))
(name (kvp-frame-get-slot-path-gslist
slots (append gnc:*kvp-option-path*
(list gnc:*business-label* gnc:*company-name*))))

2
src/business/business-reports/taxinvoice.eguile.scm
View File

@ -44,7 +44,7 @@
(currency (gncInvoiceGetCurrency opt-invoice))
(entries (gncInvoiceGetEntries opt-invoice))
(splits '())
(slots (gnc-book-get-slots book))
(slots (qof-book-get-slots book))
(coyname (coy-info slots gnc:*company-name*))
(coycontact (coy-info slots gnc:*company-contact*))
(coyaddr (coy-info slots gnc:*company-addy*))

2
src/engine/engine.i
View File

@ -118,6 +118,8 @@ SplitList * qof_query_run (QofQuery *q);
%include <qofbookslots.h>
%include <qofbook.h>
KvpFrame* qof_book_get_slots(QofBook* book);
gnc_numeric gnc_numeric_create(gint64 num, gint64 denom);
gnc_numeric gnc_numeric_zero(void);
gint64 gnc_numeric_num(gnc_numeric a);

2
src/report/locale-specific/us/taxtxf-de_DE.scm
View File

@ -749,7 +749,7 @@
(cons (current-time) 0))))))
(tax-nr (or
(kvp-frame-get-slot-path-gslist
(gnc-book-get-slots (gnc-get-current-book))
(qof-book-get-slots (gnc-get-current-book))
(append gnc:*kvp-option-path*
(list gnc:*tax-label* gnc:*tax-nr-label*)))
""))

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

@ -30,7 +30,7 @@
(define (gnc:main-window-properties-cb)
(let* ((book (gnc-get-current-book))
(slots (gnc-book-get-slots book)))
(slots (qof-book-get-slots book)))
(define (changed_cb)
(qof-book-kvp-changed book))