SF.net SVN: ledger-smb: [1659] trunk/LedgerSMB/Template/ODS.pm

[..hidden..]

Revision: 1659
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1659&view=rev
Author:   tetragon
Date:     2007-09-24 17:45:17 -0700 (Mon, 24 Sep 2007)

Log Message:
-----------
Bugfix for unbolding

Modified Paths:
--------------
    trunk/LedgerSMB/Template/ODS.pm

Modified: trunk/LedgerSMB/Template/ODS.pm
===================================================================
--- trunk/LedgerSMB/Template/ODS.pm	2007-09-24 19:24:15 UTC (rev 1658)
+++ trunk/LedgerSMB/Template/ODS.pm	2007-09-25 00:45:17 UTC (rev 1659)
@@ -107,6 +107,12 @@
 	my @width = ('none', '0.018cm solid', '0.035cm solid',
 		'0.018cm dashed', '0.018cm dotted', '0.141cm solid',
 		'0.039cm double', '0.002cm solid');
+
+	# SC: There are multiple types of properties that can be associated
+	#     with a style.  However, the OO::OOD style creation code appears
+	#     to only allow for a single type to be added to the style at a
+	#     time.  As a result, %properties is split into property groupings
+	#     to allow for each group to get the correct type.
 	my %properties;
 	if (@basestyle) {
 		%properties = %{$basestyle[0][1]};
@@ -134,7 +140,7 @@
 			}
 		} elsif ($attr eq 'bold') {
 			if ($properties{text}{'fo:font-weight'} and !$val) {
-				delete $properties{'fo:font-weight'};
+				delete $properties{text}{'fo:font-weight'};
 			} elsif ($val) {
 				$properties{text}{'fo:font-weight'} = 'bold';
 			}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.