6 my ($Language, $XMLFile) = (shift, shift);
7 die "Invalid arguments" if (!$Language || !$XMLFile);
9 #- Define localized help package name
10 my $HelpPackage = "OpenOffice.org-help-$Language";
12 my $t = XML::Twig->new(twig_roots => { "li" => \&handle_li },
13 twig_print_outside_roots => 1,
15 pretty_print => "indented"
18 $t->parsefile($XMLFile);
24 # Only print the first item, aka "Help module is not installed"
26 # Implant OpenOffice.org help package name
27 my @p = $t->descendants("p");
28 (my $text = $p[1]->text()) =~ s/^([^.]+)/\1 (e.g. <b>${HelpPackage}<\/b>)/;
29 $p[1]->set_text($text);
30 # Don't print the help link
31 foreach (@p) { $_->delete if ($_->descendants("help:link")) }
39 # indent-tabs-mode: nil