"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "gnucash/report/html-table.scm" between
gnucash-5.0.tar.bz2 and gnucash-5.1.tar.bz2

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

html-table.scm  (gnucash-5.0.tar.bz2)	:	html-table.scm  (gnucash-5.1.tar.bz2)
skipping to change at line 340		skipping to change at line 340
(define (gnc:html-table-append-row/markup! table markup newrow)		(define (gnc:html-table-append-row/markup! table markup newrow)
(let ((rownum (gnc:html-table-append-row! table newrow)))		(let ((rownum (gnc:html-table-append-row! table newrow)))
(gnc:html-table-set-row-markup! table (- rownum 1) markup)))		(gnc:html-table-set-row-markup! table (- rownum 1) markup)))
(define (gnc:html-table-prepend-row/markup! table markup newrow)		(define (gnc:html-table-prepend-row/markup! table markup newrow)
(gnc:html-table-prepend-row! table newrow)		(gnc:html-table-prepend-row! table newrow)
(gnc:html-table-set-row-markup! table 0 markup))		(gnc:html-table-set-row-markup! table 0 markup))
(define (gnc:html-table-append-row! table newrow)		(define (gnc:html-table-append-row! table newrow)
(let* ((current-num-rows (gnc:html-table-num-rows table))		(let* ((current-num-rows (gnc:html-table-num-rows table))
(new-num-rows (1+ current-num-rows)))		(new-num-rows (1+ current-num-rows)))
(gnc:html-table-set-num-rows-internal! table new-num-rows)		(gnc:html-table-set-num-rows-internal! table new-num-rows)
(gnc:html-table-set-data! table		(gnc:html-table-set-data! table
(cons (if (list? newrow) newrow (list newrow))		(cons (if (list? newrow) newrow (list newrow))
(gnc:html-table-data table)))		(gnc:html-table-data table)))
new-num-rows))		new-num-rows))
(define (gnc:html-table-prepend-row! table newrow)		(define (gnc:html-table-prepend-row! table newrow)
(let* ((new-num-rows (1+ (gnc:html-table-num-rows table)))		(let* ((new-num-rows (1+ (gnc:html-table-num-rows table)))
(newrow-list (if (list? newrow) newrow (list newrow)))		(newrow-list (if (list? newrow) newrow (list newrow)))
(dd (append (gnc:html-table-data table) (list newrow-list))))		(dd (append (gnc:html-table-data table) (list newrow-list))))
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---