AUDIT: r17729 - gnucash/trunk/src/report/report-system - Unify option name lookup of stylesheet option in reports.

[Christian Stimming]

Author: cstim
Date: 2008-11-26 17:16:27 -0500 (Wed, 26 Nov 2008)
New Revision: 17729
Trac: http://svn.gnucash.org/trac/changeset/17729

Modified:
   gnucash/trunk/src/report/report-system/report.scm
Log:
Unify option name lookup of stylesheet option in reports.
BP

Modified: gnucash/trunk/src/report/report-system/report.scm
===================================================================
--- gnucash/trunk/src/report/report-system/report.scm	2008-11-26 22:16:20 UTC (rev 17728)
+++ gnucash/trunk/src/report/report-system/report.scm	2008-11-26 22:16:27 UTC (rev 17729)
@@ -42,6 +42,7 @@
 (define gnc:pagename-accounts (N_ "Accounts"))
 (define gnc:pagename-display (N_ "Display"))
 (define gnc:optname-reportname (N_ "Report name"))
+(define gnc:optname-stylesheet (N_ "Stylesheet"))
 
 ;; we want to warn users if they've got an old-style, non-guid saved
 ;; report, but only once
@@ -240,7 +241,7 @@
           (_ (gnc:report-template-name report-template))))
         (stylesheet 
          (gnc:make-multichoice-option 
-          gnc:pagename-general (N_ "Stylesheet") "0b"
+          gnc:pagename-general gnc:optname-stylesheet "0b"
           (N_ "Select a stylesheet for the report.")
           (string->symbol (N_ "Default"))
           (map 
@@ -263,7 +264,7 @@
                (gnc:new-options))))
       (or (gnc:lookup-option options gnc:pagename-general gnc:optname-reportname)
           (gnc:register-option options namer))
-      (or (gnc:lookup-option options gnc:pagename-general (N_ "Stylesheet"))
+      (or (gnc:lookup-option options gnc:pagename-general gnc:optname-stylesheet)
           (gnc:register-option options stylesheet))
       options)))
 
@@ -425,14 +426,14 @@
                     (gnc:lookup-option 
                      (gnc:report-options report)
                      gnc:pagename-general 
-                     (N_ "Stylesheet"))))))
+                     gnc:optname-stylesheet)))))
 
 (define (gnc:report-set-stylesheet! report stylesheet)
   (gnc:option-set-value
    (gnc:lookup-option 
     (gnc:report-options report)
     gnc:pagename-general 
-    (N_ "Stylesheet"))
+    gnc:optname-stylesheet)
    (string->symbol 
     (gnc:html-style-sheet-name stylesheet))))