aboutsummaryrefslogtreecommitdiffstats
path: root/ppp
stat options
Period:
Authors:

Commits per author per week (path 'ppp')

AuthorW17 2026W18 2026W19 2026W20 2026Total
Total00000
18' href='#n18'>18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
#!/usr/bin/perl
use strict;
use XML::Parser;


sub wrap {
    @_[0] =~ s/\\'/\\\\'/g;
    @_[0] =~ s/\\q/\\\\q/g;
    @_[0] =~ s/\\a/\\\\a/g;
    @_[0] =~ s/\\n/\\\\n/g;
}

sub load_wpo {
    my ($tree, $tag ,$page) = @_;
    
    foreach my $leaf (@$tree) {
	if (ref($leaf) eq 'ARRAY') {
	    $page = load_wpo($leaf, $tag, $page);
	} elsif (ref($leaf) eq 'HASH') {
	    # XML compatibility
	    wrap $leaf->{description};
	    wrap $leaf->{helpText};
	    wrap $leaf->{wizardTitle};
	    wrap $leaf->{nextButtonText};
	    $page->{$leaf->{wizardTitle}} = "";
	    $page->{$leaf->{helpText}} = "";
	    $page->{$leaf->{description}} = "";