summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po/help_xml2pm.pl
diff options
context:
space:
mode:
authorStefan Siegel <siegel@linux-mandrake.com>2001-09-12 15:15:58 +0000
committerStefan Siegel <siegel@linux-mandrake.com>2001-09-12 15:15:58 +0000
commit89e4226875032ed7dd1e492dda9cc7cb4ec0850e (patch)
tree9c85126a71201925a70e459b8c86cd37a85fbe55 /perl-install/share/po/help_xml2pm.pl
parent2359181c57e4e9dd4213a7eb1ea55cac65687683 (diff)
downloaddrakx-89e4226875032ed7dd1e492dda9cc7cb4ec0850e.tar
drakx-89e4226875032ed7dd1e492dda9cc7cb4ec0850e.tar.gz
drakx-89e4226875032ed7dd1e492dda9cc7cb4ec0850e.tar.bz2
drakx-89e4226875032ed7dd1e492dda9cc7cb4ec0850e.tar.xz
drakx-89e4226875032ed7dd1e492dda9cc7cb4ec0850e.zip
added keycap patch
Diffstat (limited to 'perl-install/share/po/help_xml2pm.pl')
-rwxr-xr-xperl-install/share/po/help_xml2pm.pl6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl
index 8d49917cd..6fc07af61 100755
--- a/perl-install/share/po/help_xml2pm.pl
+++ b/perl-install/share/po/help_xml2pm.pl
@@ -137,6 +137,10 @@ sub rewrite2_ {
qq($text);
} elsif (member($tree->{tag}, 'footnote')) {
'(*)'
+ } elsif ($tree->{tag} eq 'keycap') {
+ $text =~ s/^(\s+)/$1]/;
+ $text =~ s/(\s+)$/[$1/;
+ $text;
} elsif ($tree->{tag} eq 'warning') {
$text =~ s/^(\s+)/$1!! /;
$text =~ s/(\s+)$/ !!$1/;
@@ -148,7 +152,7 @@ sub rewrite2_ {
"\n$text\n";
} elsif (member($tree->{tag}, 'guibutton', 'guimenu',
- 'emphasis', 'acronym', 'keycap', 'ulink', 'tip', 'note',
+ 'emphasis', 'acronym', 'ulink', 'tip', 'note',
'primary', 'indexterm', 'application', 'keycombo',
'literal', 'superscript', 'xref',
)) {