diff options
author | Jens-Heiner Rechtien <hr@openoffice.org> | 2005-04-08 15:18:16 +0000 |
---|---|---|
committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2005-04-08 15:18:16 +0000 |
commit | 74366487174080a36628ce83d1f808c8994275d2 (patch) | |
tree | 30f6decbb172f17c08bdb048fadf308bd47515ad /helpcontent2/helpers | |
parent | 544fe40870f187758d6b5ee2c8e2015ff949f68d (diff) |
INTEGRATION: CWS hc680stoppers (1.5.18); FILE MERGED
2005/04/07 10:18:13 fpe 1.5.18.1: #i46823#
Diffstat (limited to 'helpcontent2/helpers')
-rw-r--r-- | helpcontent2/helpers/update_tree.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/helpcontent2/helpers/update_tree.pl b/helpcontent2/helpers/update_tree.pl index 3a24dbd706..8a18a5326a 100644 --- a/helpcontent2/helpers/update_tree.pl +++ b/helpcontent2/helpers/update_tree.pl @@ -262,6 +262,8 @@ sub read_loc { $file =~ s/.*text\\/text\\/g; #convert \ to / in filename $file =~ s/\\/\//g; + #fpe: i46823 - need to encode &s, added encoding + $text =~ s/&(?!amp;)/&/g; # add entry to the hash $loc_title{$lang}->{$file} = $text; } @@ -273,12 +275,16 @@ sub read_loc { if ($text =~ /^<help_section/) { #example: <help_section application="scalc" id="08" title="表計算ドキュメント"> my ($fld1,$app,$fld3,$id,$fld5,$sec_title) = split('"', $text, 7); + #fpe: i46823 - need to encode &s, added encoding + $sec_title =~ s/&(?!amp;)/&/g; $helpsection{$lang}->{$id} = $sec_title; } elsif ($text =~/<node id=/) { # example: <node id="0205" title="Tabelas em documentos de texto"> # BEWARE: title may contain escaped '"' so only match " not preceded by \ # using a zero‐width negative look‐behind assertion. my ($fld1,$id,$fld3,$node_title,$Fld5) = split(/(?<!\\)"/, $text, 5); + #fpe: i46823 - need to encode &s, added encoding + $node_title =~ s/&(?!amp;)/&/g; $node{$lang}->{$id} = $node_title; } } |