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

2001-06-17 Dave Peticolas <dave@krondo.com>

Browse Source 
* src/scm/date-utilities.scm: use gnc:print-date instead of
	strftime

	* src/scm/report/hello-world.scm: fix docs

	* src/scm/report/transaction-report.scm: fix date printing

	* src/scm/report/register.scm: remove cruft


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4717 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-06-17 22:07:13 +00:00
parent d0d0c4ab19
commit 2d7d6818da
5 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ChangeLog
View File

@ -1,5 +1,14 @@
2001-06-17 Dave Peticolas <dave@krondo.com> 2001-06-17 Dave Peticolas <dave@krondo.com>
* src/scm/date-utilities.scm: use gnc:print-date instead of
strftime
* src/scm/report/hello-world.scm: fix docs
* src/scm/report/transaction-report.scm: fix date printing
* src/scm/report/register.scm: remove cruft
* src/register/gnome/gnucash-style.c (gnucash_font_load): new func * src/register/gnome/gnucash-style.c (gnucash_font_load): new func
If gdk_fontset_load doesn't work, try gdk_font_load. If gdk_fontset_load doesn't work, try gdk_font_load.
(gnucash_style_set_register_font_name): use gnucash_font_load (gnucash_style_set_register_font_name): use gnucash_font_load

4
src/scm/date-utilities.scm
View File

@ -302,9 +302,7 @@
;; and be implemented PROPERLY rather than hackily ;; and be implemented PROPERLY rather than hackily
;;; Added from transaction-report.scm ;;; Added from transaction-report.scm
(define (gnc:timepair-to-datestring tp) (define gnc:timepair-to-datestring gnc:print-date)
(let ((bdtime (gnc:timepair->date tp)))
(strftime "%x" bdtime)))
;; given a timepair contains any time on a certain day (local time) ;; given a timepair contains any time on a certain day (local time)
;; converts it to be midday that day. ;; converts it to be midday that day.

7
src/scm/report/hello-world.scm
View File

@ -243,14 +243,17 @@ option like this.")
;; Crash if asked to. ;; Crash if asked to.
(if crash-val (string-length #f)) ;; string-length needs a string (if crash-val (string-length #f)) ;; string-length needs a string
;; these are samples of different date options. for a simple
;; date with day, month, and year but no time you should use
;; gnc:print-date or gnc:timepair-to-datestring
(let ((time-string (strftime "%X" (localtime (current-time)))) (let ((time-string (strftime "%X" (localtime (current-time))))
(date-string (strftime "%x" (localtime (car date-val)))) (date-string (strftime "%x" (localtime (car date-val))))
(date-string2 (strftime "%x %X" (localtime (car date2-val)))) (date-string2 (strftime "%x %X" (localtime (car date2-val))))
(rel-date-string (strftime "%x" (localtime (car rel-date-val)))) (rel-date-string (strftime "%x" (localtime (car rel-date-val))))
(combo-date-string (combo-date-string
(strftime "%x" (localtime (car combo-date-val))))) (strftime "%x" (localtime (car combo-date-val)))))
;; Here's where we fill the report document with content. We ;; Here's where we fill the report document with content. We
;; do this by adding 'html objects' such as text, tables, and ;; do this by adding 'html objects' such as text, tables, and
;; graphs to the html document we already created. ;; graphs to the html document we already created.

6
src/scm/report/register.scm
View File

@ -328,12 +328,6 @@
gnc:*report-options*) gnc:*report-options*)
(define (display-date-interval begin end)
(let ((begin-string (strftime "%x" (localtime (car begin))))
(end-string (strftime "%x" (localtime (car end)))))
(sprintf #f (_ "From %s To %s") begin-string end-string)))
(define (make-split-table splits options (define (make-split-table splits options
debit-string credit-string amount-string) debit-string credit-string amount-string)
(define (opt-val section name) (define (opt-val section name)

4
src/scm/report/transaction-report.scm
View File

@ -637,8 +637,8 @@ and Income accounts")))))
(define (display-date-interval begin end) (define (display-date-interval begin end)
(let ((begin-string (strftime "%x" (localtime (car begin)))) (let ((begin-string (gnc:print-date begin))
(end-string (strftime "%x" (localtime (car end))))) (end-string (gnc:print-date end)))
(sprintf #f (_ "From %s To %s") begin-string end-string))) (sprintf #f (_ "From %s To %s") begin-string end-string)))
(define (get-primary-subtotal-style options) (define (get-primary-subtotal-style options)