From 3915f1435e452e4c099c64334d5a1876e5b886f5 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Sun, 23 Jan 2005 05:16:15 +0000
Subject: [PATCH] Added a --pot option to generate the POT (PO template) file.

The POT files are currently named like css_opac_en_EN.po, which
are not what they would usually be named.
---
 misc/translator/po/update.pl | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/misc/translator/po/update.pl b/misc/translator/po/update.pl
index e2ba8d4e35..419c37ddd6 100755
--- a/misc/translator/po/update.pl
+++ b/misc/translator/po/update.pl
@@ -5,9 +5,19 @@
 
 use strict;
 use integer;
+use Getopt::Long;
+
+use vars qw( $pot_p );
+
+GetOptions(
+   '--pot' => \$pot_p,
+) || exit(1);
 
 my $lang = $ARGV[0];
-die "Usage: $0 LANG\n" unless $lang =~ /^[a-z]{2}(?:_[A-Z]{2})?$/;
+die <<EOF unless $pot_p || $lang =~ /^[a-z]{2}(?:_[A-Z]{2})?$/;
+Usage: $0 LANG
+       $0 --pot
+EOF
 
 # Remember whether we see the "po" directory; this is used later to guess
 # whether the current directory is translator/po or translator.
@@ -31,9 +41,15 @@ for my $spec (
       }
 
       # Now call tmpl_process3.pl to do the real work
-      exec('./tmpl_process3.pl', 'update',
+      #
+      # Traditionally, the pot file should be named PACKAGE.pot
+      # (for Koha probably something like koha_intranet_css.pot),
+      # but this is not Koha's convention.
+      #
+      my $target = "po/${theme}_${module}" . ($pot_p? ".pot": "$lang.po");
+      exec('./tmpl_process3.pl', ($pot_p? 'create': 'update'),
 	    '-i', "../../koha-tmpl/$module-tmpl/$theme/en/",
-	    '-s', "po/${theme}_${module}_$lang.po", '-r');
+	    '-s', $target, '-r');
 
       die "tmpl_process3.pl: exec: $!\n";
    }
-- 
2.39.5