price-scatter.scm (gnucash-5.0.tar.bz2) | : | price-scatter.scm (gnucash-5.1.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 156 | skipping to change at line 156 | |||
(dates-list (gnc:make-date-list | (dates-list (gnc:make-date-list | |||
(gnc:time64-end-day-time from-date) | (gnc:time64-end-day-time from-date) | |||
(gnc:time64-end-day-time to-date) | (gnc:time64-end-day-time to-date) | |||
(gnc:deltasym-to-delta interval))) | (gnc:deltasym-to-delta interval))) | |||
(document (gnc:make-html-document)) | (document (gnc:make-html-document)) | |||
(chart (gnc:make-html-chart)) | (chart (gnc:make-html-chart)) | |||
(currency-accounts | (currency-accounts | |||
(filter gnc:account-has-shares? (gnc-account-get-descendants-sorted | (filter gnc:account-has-shares? (gnc-account-get-descendants-sorted | |||
(gnc-get-current-root-account)))) | (gnc-get-current-root-account)))) | |||
(invert (get-option pagename-price optname-invert)) | (invert (get-option pagename-price optname-invert)) | |||
(amount-commodity (if invert price-commodity report-currency)) | (amount-commodity (if invert price-commodity report-currency)) | |||
(base-commodity (if invert report-currency price-commodity)) | (base-commodity (if invert report-currency price-commodity)) | |||
(int-label (car (assq-ref intervals interval))) | (int-label (car (assq-ref intervals interval))) | |||
(int-secs (cadr (assq-ref intervals interval))) | (int-secs (cadr (assq-ref intervals interval))) | |||
(data '())) | (data '())) | |||
;; Short helper for all the warnings below | ;; Short helper for all the warnings below | |||
(define (make-warning title text) | (define (make-warning title text) | |||
(gnc:html-document-add-object! | (gnc:html-document-add-object! | |||
document | document | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |