From f3a90bdefb893f6cdb656b986c4014b8862c2b7c Mon Sep 17 00:00:00 2001
From: David Hampton <hampton@employees.org>
Date: Wed, 1 Mar 2006 03:28:49 +0000
Subject: [PATCH] =?UTF-8?q?Andreas=20K=C3=B6hler's=20patch=20to=20correctl?=
 =?UTF-8?q?y=20build=20a=20html=20color=20value.=20Fixes=20328933.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@13428 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 ChangeLog                 |  5 +++++
 src/app-utils/options.scm | 10 +++++++---
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5dbda42276..8ffc034278 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-28  David Hampton  <hampton@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@asynchronous.org>
 
 	* src/bin/gnucash-bin.c (gnucash_command_line): Terminate
diff --git a/src/app-utils/options.scm b/src/app-utils/options.scm
index ad2b2d13ab..0e509ced4d 100644
--- a/src/app-utils/options.scm
+++ b/src/app-utils/options.scm
@@ -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 "#"