diff options
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/Form.pm | 37 |
1 files changed, 20 insertions, 17 deletions
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 => { '<' => '<', '>' => '>', - '\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 => { '<' => '<', '>' => '>','\n' => '<br />', + '\r' => '<br />' }, + txt => { '\n' => "\n", '\r' => "\r" }, + tex => {'&' => '\&', '\$' => '\$', '%' => '\%', '_' => '\_', + '#' => '\#', quotemeta('^') => '\^\\', '{' => '\{', + '}' => '\}', '<' => '$<$', '>' => '$>$', + '\n' => '\newline ', '\r' => '\newline ', + '£' => '\pounds ', quotemeta('\\') => '/'} + ); my $key; |