[Gnucash-changes] r13428 - gnucash/trunk - Andreas Köhler's patch to correctly build a html color value. Fixes

[David Hampton]

Author: hampton
Date: 2006-02-28 22:28:49 -0500 (Tue, 28 Feb 2006)
New Revision: 13428
Trac: http://svn.gnucash.org/trac/changeset/13428

Modified:
   gnucash/trunk/ChangeLog
   gnucash/trunk/src/app-utils/options.scm
Log:
Andreas Köhler's patch to correctly build a html color value. Fixes
328933.


Modified: gnucash/trunk/ChangeLog
===================================================================
--- gnucash/trunk/ChangeLog	2006-02-28 23:13:33 UTC (rev 13427)
+++ gnucash/trunk/ChangeLog	2006-03-01 03:28:49 UTC (rev 13428)
@@ -1,3 +1,8 @@
+2006-02-28  David Hampton  <hampton at employees.org>
+
+	* src/app-utils/options.scm: Andreas Köhler's patch to correctly
+	build a html color value. Fixes 328933.
+
 2006-02-28  Joshua Sled  <jsled at asynchronous.org>
 
 	* src/bin/gnucash-bin.c (gnucash_command_line): Terminate

Modified: gnucash/trunk/src/app-utils/options.scm
===================================================================
--- gnucash/trunk/src/app-utils/options.scm	2006-02-28 23:13:33 UTC (rev 13427)
+++ gnucash/trunk/src/app-utils/options.scm	2006-03-01 03:28:49 UTC (rev 13428)
@@ -1159,13 +1159,17 @@
     (inexact->exact
      (min 255.0
           (truncate (* (/ 255.0 range) value)))))
+  (define (number->hex-string number)
+    (let ((ret (number->string number 16)))
+      (cond ((< (string-length ret) 2) (string-append "0" ret))
+            (else ret))))
   (let ((red (car color))
         (green (cadr color))
         (blue (caddr color)))
     (string-append
-     (number->string (html-value red) 16)
-     (number->string (html-value green) 16)
-     (number->string (html-value blue) 16))))
+     (number->hex-string (html-value red))
+     (number->hex-string (html-value green))
+     (number->hex-string (html-value blue)))))
 
 (define (gnc:color->html color range)
     (string-append "#"