"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "gnucash/report/report-system/html-utilities.scm" between
gnucash-3.6.tar.bz2 and gnucash-3.7.tar.bz2

About: GnuCash is personal and small-business financial-accounting software.

html-utilities.scm  (gnucash-3.6.tar.bz2):html-utilities.scm  (gnucash-3.7.tar.bz2)
skipping to change at line 155 skipping to change at line 155
markup markup
(append (make-list colskip empty-cell) (append (make-list colskip empty-cell)
(list (list
(gnc:make-html-table-cell/size (gnc:make-html-table-cell/size
1 colspan (gnc:make-html-text (gnc:html-markup-hr))))))) 1 colspan (gnc:make-html-text (gnc:html-markup-hr)))))))
(define (gnc:html-table-append-ruler! table colspan) (define (gnc:html-table-append-ruler! table colspan)
(gnc:html-table-append-ruler/at! table 0 colspan)) (gnc:html-table-append-ruler/at! table 0 colspan))
(define (gnc:html-table-append-ruler/markup! table markup colspan) (define (gnc:html-table-append-ruler/markup! table markup colspan)
(issue-deprecation-warning
"gnc:html-table-append-ruler/markup! is unused.")
(gnc:html-table-append-ruler/at/markup! table markup 0 colspan)) (gnc:html-table-append-ruler/at/markup! table markup 0 colspan))
;; Creates a table cell with some text in it. The cell will be created ;; Creates a table cell with some text in it. The cell will be created
;; with the colspan 'colspan' (the rowspan==1), the content 'content' ;; with the colspan 'colspan' (the rowspan==1), the content 'content'
;; and in boldface if 'boldface?' is true. 'content' may be #f, or a ;; and in boldface if 'boldface?' is true. 'content' may be #f, or a
;; string, or a <html-text> object. Returns a <html-table-cell> ;; string, or a <html-text> object. Returns a <html-table-cell>
;; object. ;; object.
(define (gnc:html-acct-table-cell colspan content boldface?) (define (gnc:html-acct-table-cell colspan content boldface?)
;; instead of html-markup-b, just use the corresponding html-table-styles. ;; instead of html-markup-b, just use the corresponding html-table-styles.
(define default-style "text-cell") (define default-style "text-cell")
(define boldface-style "total-label-cell") (define boldface-style "total-label-cell")
(issue-deprecation-warning
"gnc:html-acct-table-cell is unused.")
(gnc:make-html-table-cell/size/markup (gnc:make-html-table-cell/size/markup
1 colspan 1 colspan
(if boldface? boldface-style default-style) (if boldface? boldface-style default-style)
content)) content))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; function for account table without foreign commodities ;; function for account table without foreign commodities
;; Adds one row to the table. current-depth determines the number ;; Adds one row to the table. current-depth determines the number
;; of empty cells, my-name is the html-object to be displayed as ;; of empty cells, my-name is the html-object to be displayed as
;; name, my-balance is a gnc-monetary to be displayed in the ;; name, my-balance is a gnc-monetary to be displayed in the
;; balance column, and if reverse-balance? is #t the balance will ;; balance column, and if reverse-balance? is #t the balance will
;; be displayed with the sign reversed. ;; be displayed with the sign reversed.
(define (gnc:html-acct-table-row-helper! (define (gnc:html-acct-table-row-helper!
table tree-depth table tree-depth
current-depth my-name my-balance current-depth my-name my-balance
reverse-balance? row-style boldface? group-header-line?) reverse-balance? row-style boldface? group-header-line?)
(issue-deprecation-warning
"gnc:html-acct-table-row-helper! is unused.")
(gnc:html-table-append-row/markup! (gnc:html-table-append-row/markup!
table table
row-style row-style
(append (append
;; left half of the table ;; left half of the table
(gnc:html-make-empty-cells (- current-depth 1)) (gnc:html-make-empty-cells (- current-depth 1))
(list (gnc:html-acct-table-cell (+ 1 (- tree-depth current-depth)) (list (gnc:html-acct-table-cell (+ 1 (- tree-depth current-depth))
my-name boldface?)) my-name boldface?))
;; right half of the table ;; right half of the table
(gnc:html-make-empty-cells (gnc:html-make-empty-cells
skipping to change at line 224 skipping to change at line 230
;; account. balance (a commodity-collector) is the balance to be ;; account. balance (a commodity-collector) is the balance to be
;; printed. If reverse-balance? == #t then the balances' signs get ;; printed. If reverse-balance? == #t then the balances' signs get
;; reversed. ;; reversed.
;; DM: If you trace this function through gnc:html-build-acct-table, ;; DM: If you trace this function through gnc:html-build-acct-table,
;; my-commodity always ends up being report-commodity. ;; my-commodity always ends up being report-commodity.
(define (gnc:html-acct-table-comm-row-helper! (define (gnc:html-acct-table-comm-row-helper!
table tree-depth report-commodity exchange-fn table tree-depth report-commodity exchange-fn
current-depth my-name my-commodity balance current-depth my-name my-commodity balance
reverse-balance? is-stock-account? main-row-style other-rows-style reverse-balance? is-stock-account? main-row-style other-rows-style
boldface? group-header-line?) boldface? group-header-line?)
(issue-deprecation-warning
"gnc:html-acct-table-comm-row-helper! is unused.")
(let ((already-printed #f)) (let ((already-printed #f))
;; Adds one row to the table. my-name is the html-object ;; Adds one row to the table. my-name is the html-object
;; displayed in the name column; foreign-balance is the ;; displayed in the name column; foreign-balance is the
;; <gnc-monetary> for the foreign column or #f if to be left ;; <gnc-monetary> for the foreign column or #f if to be left
;; empty; domestic-balance is the <gnc-monetary> for the ;; empty; domestic-balance is the <gnc-monetary> for the
;; domestic column. ;; domestic column.
(define (commodity-row-helper! (define (commodity-row-helper!
my-name foreign-balance domestic-balance row-style) my-name foreign-balance domestic-balance row-style)
(gnc:html-table-append-row/markup! (gnc:html-table-append-row/markup!
table table
skipping to change at line 402 skipping to change at line 410
(apply gnc:html-build-acct-table args)) (apply gnc:html-build-acct-table args))
(define (gnc:html-build-acct-table (define (gnc:html-build-acct-table
start-date end-date start-date end-date
tree-depth show-subaccts? accounts tree-depth show-subaccts? accounts
start-percent delta-percent start-percent delta-percent
show-col-headers? show-col-headers?
show-total? get-total-fn show-total? get-total-fn
total-name group-types? show-parent-balance? show-parent-total? total-name group-types? show-parent-balance? show-parent-total?
show-other-curr? report-commodity exchange-fn show-zero-entries?) show-other-curr? report-commodity exchange-fn show-zero-entries?)
(issue-deprecation-warning
"gnc:html-build-acct-table is unused.")
(let ((table (gnc:make-html-table)) (let ((table (gnc:make-html-table))
(work-to-do 0) (work-to-do 0)
(work-done 0) (work-done 0)
(topl-accounts (gnc-account-get-children-sorted (topl-accounts (gnc-account-get-children-sorted
(gnc-get-current-root-account)))) (gnc-get-current-root-account))))
;; The following functions are defined inside build-acct-table ;; The following functions are defined inside build-acct-table
;; to avoid passing tons of arguments which are constant anyway ;; to avoid passing tons of arguments which are constant anyway
;; inside this function. ;; inside this function.
 End of changes. 5 change blocks. 
0 lines changed or deleted 10 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)