deprecate old reports

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))

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

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

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 '())