Another SCM bug in trunk

[Derek Atkins]

Hey,

I was just trying the business reports and found two bugs
in trunk.

Bug #1:

 [Menu] -> Reports -> Business -> Printable Invoice

It comes up without an invoice, but the report thinks it's
trying to print invoice #0 instead of printing a message
saying that you need to choose an invoice.

Bug #2:

I clicked on Options, chose an invoice, clicked Apply,
and then I got this scheme backtrace.  It looks like
gnc:entry-get-order wasn't converted to the wrapping
in swig.

In /opt/gnucash-svk/share/gnucash/scm/report.scm:
 444: 23* [gnc:report-render-html # #t]
 409: 24  (if (and (not #) (gnc:report-ctext report)) (gnc:report-ctext report) ...)
 417: 25  (let ((template #) (doc #f)) (set! doc (if template # #f)) doc)
 420: 26* (set! doc (if template (let* # # # ...) #f))
 420: 27* (if template (let* # # # ...) #f)
 421: 28  (let* (# # # ...) (gnc:html-document-set-style-sheet! doc stylesheet) ...)
 423: 29* [reg-renderer #]
In unknown file:
   ?: 30  (letrec ((opt-val #)) (let* (# # # # ...) (letrec # # # ...)))
    ...
   ?: 31  (letrec ((add-order #)) (if invoice (begin # # ...)) ...)
In /opt/gnucash-svk/share/gnucash/guile-modules/gnucash/report/invoice.scm:
 656: 32* (if invoice (let (#) (set! table #) ...) ...)
 657: 33  (let ((book #)) (set! table (make-entry-table invoice # ...)) ...)
 658: 34* (set! table (make-entry-table invoice (gnc:report-options report-obj) ...))
 658: 35* [make-entry-table # #<procedure dispatch #> #<procedure add-order #> ...]
In unknown file:
   ?: 36  (letrec ((opt-val #)) (let (# # # # ...) (letrec # #)))
In /opt/gnucash-svk/share/gnucash/guile-modules/gnucash/report/invoice.scm:
    ...
 503: 37  (let* (# # # ...) (gnc:html-table-set-col-headers! table #) ...)
 513: 38* [do-rows-with-subtotals # # # ...]
 420: 39  (if (null? entries) (begin # # # ...) (let* # # # ...))
 460: 40  (let* (# # # # ...) (if display-all-taxes # #) (value-collector # # #) ...)
 490: 41* (let ((order (gnc:entry-get-order current))) (if order (add-order order)))
 490: 42* (gnc:entry-get-order current)
/opt/gnucash-svk/share/gnucash/guile-modules/gnucash/report/invoice.scm:490:26: In expression (gnc:entry-get-order current):
/opt/gnucash-svk/share/gnucash/guile-modules/gnucash/report/invoice.scm:490:26: Unbound variable: gnc:entry-get-order
In /opt/gnucash-svk/share/gnucash/scm/report.scm:
 444: 20* [gnc:report-render-html # #t]
 409: 21  (if (and (not #) (gnc:report-ctext report)) (gnc:report-ctext report) ...)
 417: 22  (let ((template #) (doc #f)) (set! doc (if template # #f)) doc)
 420: 23* (set! doc (if template (let* # # # ...) #f))
 420: 24* (if template (let* # # # ...) #f)
 421: 25  (let* (# # # ...) (gnc:html-document-set-style-sheet! doc stylesheet) ...)
 423: 26* [reg-renderer #]
In unknown file:
   ?: 27  (letrec ((opt-val #)) (let* (# # # # ...) (letrec # # # ...)))
    ...
   ?: 28  (letrec ((add-order #)) (if invoice (begin # # ...)) ...)
In /opt/gnucash-svk/share/gnucash/guile-modules/gnucash/report/invoice.scm:
 656: 29* (if invoice (let (#) (set! table #) ...) ...)
 657: 30  (let ((book #)) (set! table (make-entry-table invoice # ...)) ...)
 658: 31* (set! table (make-entry-table invoice (gnc:report-options report-obj) ...))
 658: 32* [make-entry-table # #<procedure dispatch #> #<procedure add-order #> ...]
In unknown file:
   ?: 33  (letrec ((opt-val #)) (let (# # # # ...) (letrec # #)))
In /opt/gnucash-svk/share/gnucash/guile-modules/gnucash/report/invoice.scm:
    ...
 503: 34  (let* (# # # ...) (gnc:html-table-set-col-headers! table #) ...)
 513: 35* [do-rows-with-subtotals # # # ...]
 420: 36  (if (null? entries) (begin # # # ...) (let* # # # ...))
 460: 37  (let* (# # # # ...) (if display-all-taxes # #) (value-collector # # #) ...)
 490: 38* (let ((order (gnc:entry-get-order current))) (if order (add-order order)))
 490: 39* (gnc:entry-get-order current)
/opt/gnucash-svk/share/gnucash/guile-modules/gnucash/report/invoice.scm:490:26: In expression (gnc:entry-get-order current):
/opt/gnucash-svk/share/gnucash/guile-modules/gnucash/report/invoice.scm:490:26: Unbound variable: gnc:entry-get-order

-derek
-- 
       Derek Atkins, SB '93 MIT EE, SM '95 MIT Media Laboratory
       Member, MIT Student Information Processing Board  (SIPB)
       URL: http://web.mit.edu/warlord/    PP-ASEL-IA     N1NWH
       warlord at MIT.EDU                        PGP key available