From 22449f3d338f7c965baf4c844a41433485a38529 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 4 Sep 2006 05:34:38 +0000
Subject: Added changelog. Reformatted the a few lines in the format_line form
 method. Corrected the regex LaTeX printing problem. Updated most of the png
 logos. Added items to TODO list.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@19 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 37 ++++++++++++++++++++-----------------
 1 file changed, 20 insertions(+), 17 deletions(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 8b736e5c..73d9f4c5 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1083,23 +1083,26 @@ sub format_string {
 		$format = 'tex';
 	}
 
-	my %replace = ( 'order' => { html => [ '<', '>', '\n', '\r' ],
-								 txt  => [ '\n', '\r' ],
-								 tex  => [ quotemeta('\\'), '&', '\n',
-											'\r', '\$', '%', '_', '#',
-											quotemeta('^'), '{', '}', '<', '>',
-											'?' ],
-								 utf  => [ quotemeta('\\'), '&', quotemeta('\n'),
-											'\r', '\$', '%', '_', '#',
-											quotemeta('^'), '{', '}', '<', '>' ] },
-					html => { '<'  => '&lt;', '>' => '&gt;',
-							  '\n' => '<br />', '\r' => '<br />' },
-					txt  => { '\n' => "\n", '\r' => "\r" },
-					tex  => {'&' => '\&', '\$' => '\$', '%' => '\%', '_' => '\_',
-							 '#' => '\#', quotemeta('^') => '\^\\', '{' => '\{', '}' => '\}',
-							 '<' => '$<$', '>' => '$>$',
-							 '\n' => '\newline ', '\r' => '\newline ',
-							 '?' => '\pounds ', quotemeta('\\') => '/' } );
+	my %replace = ( 
+		'order' => { 
+			html => [ '<', '>', '\n', '\r' ],
+			txt  => [ '\n', '\r' ],
+			tex  => [ quotemeta('\\'), '&', '\n','\r', 
+				'\$', '%', '_', '#',
+				quotemeta('^'), '{', '}', '<', '>', '£' 
+				],
+			utf  => [ quotemeta('\\'), '&', quotemeta('\n'),
+				'\r', '\$', '%', '_', '#', quotemeta('^'), 
+				'{', '}', '<', '>' ] },
+		html => { '<'  => '&lt;', '>' => '&gt;','\n' => '<br />', 
+			'\r' => '<br />' },
+		txt  => { '\n' => "\n", '\r' => "\r" },
+		tex  => {'&' => '\&', '\$' => '\$', '%' => '\%', '_' => '\_',
+			'#' => '\#', quotemeta('^') => '\^\\', '{' => '\{', 
+			'}' => '\}', '<' => '$<$', '>' => '$>$',
+			'\n' => '\newline ', '\r' => '\newline ', 
+			'£' => '\pounds ', quotemeta('\\') => '/'} 
+	);
 
 	my $key;
 
-- 
cgit v1.2.3