From e4df7a18ecdfe873ca5a075079a3ee4cd921882b Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Wed, 14 Aug 2002 10:06:38 +0000
Subject: added nextButtonText wizardTitle description

---
 wiz2pot.pl | 31 +++++++++++++++++--------------
 1 file changed, 17 insertions(+), 14 deletions(-)

(limited to 'wiz2pot.pl')

diff --git a/wiz2pot.pl b/wiz2pot.pl
index cbd091eb..4b8f2c6d 100755
--- a/wiz2pot.pl
+++ b/wiz2pot.pl
@@ -3,6 +3,13 @@ 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) = @_;
     
@@ -11,12 +18,15 @@ sub load_wpo {
 	    $page = load_wpo($leaf, $tag, $page);
 	} elsif (ref($leaf) eq 'HASH') {
 	    # XML compatibility
-	    $leaf->{helpText} =~ s/\\'/\\\\'/g;
-	    $leaf->{helpText} =~ s/\\q/\\\\q/g;
-	    $leaf->{helpText} =~ s/\\a/\\\\a/g;
-	    $leaf->{helpText} =~ s/\\n/\\\\n/g;
+	    wrap $leaf->{description};
+	    wrap $leaf->{helpText};
+	    wrap $leaf->{wizardTitle};
+	    wrap $leaf->{nextButtonText};
+	    $page->{$leaf->{wizardTitle}} = "";
 	    $page->{$leaf->{helpText}} = "";
-	}elsif(ref($leaf)=~ /\w\D/){
+	    $page->{$leaf->{description}} = "";
+	    $page->{$leaf->{nextButtonText}} = "";
+	} elsif(ref($leaf)=~ /\w\D/){
 	    $tag = $leaf;
 	}
     }
@@ -34,15 +44,8 @@ my $date = `date +%Y-%m-%d\\ %H:%M\\ %z`;
 chomp $date;
 
 foreach (keys %{$wpo}) {
-    if ($_ ne "") {
-	if ($_ eq $wpo->{$_}) {
-	    print PO "msgid \"$_\"\nmsgstr \"\"\n\n";
-	}
-	else {
-	    print PO "msgid \"$_\"\nmsgstr \"$wpo->{$_}\"\n\n";
-	}
-    }
-    
+    print "$_\n";
+    $_ ne "" and print PO "msgid \"$_\"\nmsgstr \"\"\n\n";
 }
 close PO;
 print STDERR "./po/$1.pot\n";
-- 
cgit v1.2.1