IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

* src/report/report-system/report.scm: remove options-editor code

Browse Source 
* src/report/report-system/report-system.scm: remove
options-editor code


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6308 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-12-11 00:44:30 +00:00
parent b6f33f8d22
commit 562275a0cc
2 changed files with 5 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/report/report-system/report-system.scm
View File

@ -109,7 +109,6 @@
(export gnc:report-template-version) (export gnc:report-template-version)
(export gnc:report-template-name) (export gnc:report-template-name)
(export gnc:report-template-options-generator) (export gnc:report-template-options-generator)
(export gnc:report-template-options-editor)
(export gnc:report-template-options-cleanup-cb) (export gnc:report-template-options-cleanup-cb)
(export gnc:report-template-options-changed-cb) (export gnc:report-template-options-changed-cb)
(export gnc:report-template-renderer) (export gnc:report-template-renderer)
@ -135,7 +134,6 @@
(export gnc:make-report) (export gnc:make-report)
(export gnc:restore-report) (export gnc:restore-report)
(export gnc:make-report-options) (export gnc:make-report-options)
(export gnc:report-options-editor)
(export gnc:report-export-thunk) (export gnc:report-export-thunk)
(export gnc:report-menu-name) (export gnc:report-menu-name)
(export gnc:report-name) (export gnc:report-name)
@ -144,6 +142,7 @@
(export gnc:all-report-template-names) (export gnc:all-report-template-names)
(export gnc:report-remove-by-id) (export gnc:report-remove-by-id)
(export gnc:find-report) (export gnc:find-report)
(export gnc:find-report-template)
(export gnc:report-generate-restore-forms) (export gnc:report-generate-restore-forms)
(export gnc:report-render-html) (export gnc:report-render-html)
(export gnc:report-run) (export gnc:report-run)

19
src/report/report-system/report.scm
View File

@ -51,8 +51,7 @@
(define <report-template> (define <report-template>
(make-record-type "<report-template>" (make-record-type "<report-template>"
;; The data items in a report record ;; The data items in a report record
'(version name '(version name options-generator
options-generator options-editor
options-cleanup-cb options-changed-cb options-cleanup-cb options-changed-cb
renderer in-menu? menu-path menu-name renderer in-menu? menu-path menu-name
menu-tip export-thunk))) menu-tip export-thunk)))
@ -70,7 +69,6 @@
#f ;; version #f ;; version
#f ;; name #f ;; name
#f ;; options-generator #f ;; options-generator
#f ;; options-editor
#f ;; options-cleanup-cb #f ;; options-cleanup-cb
#f ;; options-changed-cb #f ;; options-changed-cb
#f ;; renderer #f ;; renderer
@ -106,8 +104,6 @@
(record-accessor <report-template> 'name)) (record-accessor <report-template> 'name))
(define gnc:report-template-options-generator (define gnc:report-template-options-generator
(record-accessor <report-template> 'options-generator)) (record-accessor <report-template> 'options-generator))
(define gnc:report-template-options-editor
(record-accessor <report-template> 'options-editor))
(define gnc:report-template-options-cleanup-cb (define gnc:report-template-options-cleanup-cb
(record-accessor <report-template> 'options-cleanup-cb)) (record-accessor <report-template> 'options-cleanup-cb))
(define gnc:report-template-options-changed-cb (define gnc:report-template-options-changed-cb
@ -268,16 +264,6 @@
(gnc:report-template-new-options template) (gnc:report-template-new-options template)
#f))) #f)))
(define (gnc:report-options-editor report)
(let ((template
(hash-ref *gnc:_report-templates_*
(gnc:report-type report))))
(if template
(let ((ed (gnc:report-template-options-editor template)))
(if ed ed
gnc:default-options-editor))
#f)))
(define (gnc:report-export-thunk report) (define (gnc:report-export-thunk report)
(let ((template (let ((template
(hash-ref *gnc:_report-templates_* (hash-ref *gnc:_report-templates_*
@ -335,6 +321,9 @@
(define (gnc:find-report id) (define (gnc:find-report id)
(hash-ref *gnc:_reports_* id)) (hash-ref *gnc:_reports_* id))
(define (gnc:find-report-template report-type)
(hash-ref *gnc:_report-templates_* report-type))
(define (gnc:report-generate-restore-forms report) (define (gnc:report-generate-restore-forms report)
;; clean up the options if necessary. this is only needed ;; clean up the options if necessary. this is only needed
;; in special cases. ;; in special cases.