2 # script to update all translations
5 use lib
'/home/chris/git/koha.git';
7 # Go through the theme/module combinations we need to update.
11 while (defined($po = readdir(DIR
))) {
12 next if $po =~ /^\.\.?$/;
13 print "processing $po...\n";
14 my $interface = 'intranet';
18 system("./tmpl_process3.pl update -i ../../koha-tmpl/$interface-tmpl/prog/en/ -s po/$po -r");
24 my($theme, $module) = @
$spec;
26 die "fork: $!\n" unless defined $pid;
29 # If current directory is translator/po instead of translator,
30 # then go back to the parent
31 if ($chdir_needed_p) {
32 chdir('..') || die "..: cd: $!\n";
35 # Now call tmpl_process3.pl to do the real work
37 # Traditionally, the pot file should be named PACKAGE.pot
38 # (for Koha probably something like koha_intranet_css.pot),
39 # but this is not Koha's convention.
41 my $target = "po/${theme}_${module}" . ($pot_p?
".pot": "_$lang.po");
42 rename($target, "$target~") if $pot_p;
43 exec('./tmpl_process3.pl', ($pot_p?
'create': 'update'),
44 '-i', "../../koha-tmpl/$module-tmpl/$theme/en/",
47 die "tmpl_process3.pl: exec: $!\n";