[Gnucash-changes] r13965 - gnucash/trunk/src/scm/printing - Limit
memo length to 27 chars on Quicken wallet checks with side stub
Chris Shoemaker
chris at cvs.gnucash.org
Mon May 8 20:42:33 EDT 2006
Author: chris
Date: 2006-05-08 20:42:32 -0400 (Mon, 08 May 2006)
New Revision: 13965
Trac: http://svn.gnucash.org/trac/changeset/13965
Modified:
gnucash/trunk/src/scm/printing/print-check.scm
Log:
Limit memo length to 27 chars on Quicken wallet checks with side stub
Patch by David Reiser, bug #340977
Modified: gnucash/trunk/src/scm/printing/print-check.scm
===================================================================
--- gnucash/trunk/src/scm/printing/print-check.scm 2006-05-09 00:04:55 UTC (rev 13964)
+++ gnucash/trunk/src/scm/printing/print-check.scm 2006-05-09 00:42:32 UTC (rev 13965)
@@ -172,15 +172,22 @@
(+ offset (caddr words-pos)))
(gnc:print-session-text ps (number-to-words amount 100)))
- (let ((memo-pos (assq 'memo format)))
- (gnc:print-session-moveto ps (cadr memo-pos)
- (+ offset (caddr memo-pos)))
- (gnc:print-session-text ps memo))
+ (if (not (eq? (print-check-format:format format-info) 'wallet))
+ (let ((memo-pos (assq 'memo format)))
+ (gnc:print-session-moveto ps (cadr memo-pos)
+ (+ offset (caddr memo-pos)))
+ (gnc:print-session-text ps memo)))
(if (eq? (print-check-format:format format-info) 'wallet)
(begin
+ (let ((memo-pos (assq 'memo format)))
+ (gnc:print-session-moveto ps (cadr memo-pos)
+ (+ offset (caddr memo-pos)))
+ (if (< (string-length memo) 28)
+ (gnc:print-session-text ps memo)
+ (gnc:print-session-text ps (substring memo 0 27))))
(let ((memostub-pos (assq 'memo-stub format)))
- (gnc:print-session-moveto ps (cadr memostub-pos)
+ (gnc:print-session-moveto ps (cadr memostub-pos)
(+ offset (caddr memostub-pos)))
(if (< (string-length memo) 22)
(set! memo-stub-text memo)
More information about the gnucash-changes
mailing list