deprecate old reports

Gnucash · May 29, 2020 · efb9abf · efb9abf
1 parent 6caf7be
commit efb9abf
Show file tree

Hide file tree

Showing 4 changed files with 13 additions and 1 deletion.
diff --git a/gnucash/report/reports/aging.scm b/gnucash/report/reports/aging.scm
@@ -653,6 +653,9 @@ copying this report to a spreadsheet for use in a mail merge.")
       (gncCustomerGetShipAddr (gncOwnerGetCustomer owner)) ;; shipping
       (gncOwnerGetAddr owner)))                            ;; billing
 
+  (issue-deprecation-warning
+   "old aging reports are deprecated and will be removed in 5.x")
+
   (set! receivable (eq? (op-value "__hidden" "receivable-or-payable") 'R))
   (gnc:report-starting reportname)
   (let* ((companys (make-hash-table 23))

diff --git a/gnucash/report/reports/standard/balance-sheet.scm b/gnucash/report/reports/standard/balance-sheet.scm
@@ -287,6 +287,9 @@
      (gnc:lookup-option
       (gnc:report-options report-obj) pagename optname)))
 
+  (issue-deprecation-warning
+   "old balance-sheet is deprecated and will be removed in 5.x")
+
   (gnc:report-starting reportname)
 
   ;; get all option's values

diff --git a/gnucash/report/reports/standard/income-statement.scm b/gnucash/report/reports/standard/income-statement.scm
@@ -290,7 +290,10 @@
     (gnc:option-value
      (gnc:lookup-option 
       (gnc:report-options report-obj) pagename optname)))
-
+
+  (issue-deprecation-warning
+   "old income-statement is deprecated and will be removed in 5.x")
+
   (gnc:report-starting reportname)
 
   ;; get all option's values

diff --git a/gnucash/report/reports/standard/owner-report.scm b/gnucash/report/reports/standard/owner-report.scm
@@ -720,6 +720,9 @@
     (gnc:option-value
      (gnc:lookup-option (gnc:report-options report-obj) section name)))
 
+  (issue-deprecation-warning
+   "old owner reports are deprecated and will be removed in 5.x")
+
   (let* ((document (gnc:make-html-document))
      (table '())
      (orders '())