Intranet po file updates

[koha.git] / misc / translator / update.pl

diff --git a/misc/translator/update.pl b/misc/translator/update.pl
index ad9b9cc..0aec9c0 100755 (executable)
--- a/misc/translator/update.pl
+++ b/misc/translator/update.pl
@@ -9,15 +9,15 @@ my $dir = "po";
 my $po;
 opendir (DIR,$dir);
 
-while (defined($po = readdir(DIR))) {                                                                                                                                                                               
-        next if $po =~ /^\.\.?$/;                                                                                                                                                                                       
-        print "processing $po...\n";                                                                                                                                                                                    
-        my $interface = 'intranet';                                                                                                                                                                                     
-        if ($po =~ /opac/) {                                                                                                                                                                                            
-                   $interface = 'opac';                                                                                                                                                                                        
-               }                                                                                                                                                                                                               
-        system("./tmpl_process3.pl update -i ../../koha-tmpl/$interface-tmpl/prog/en/ -s po/$po -r");                                                                                                                   
-        print "Finished\n";                                                                                                                                                                                             
+while (defined($po = readdir(DIR))) {
+        next if $po =~ /^\.\.?$/;
+        print "processing $po...\n";
+        my $interface = 'intranet';
+        if ($po =~ /opac/) {
+                   $interface = 'opac';
+               }
+        system("./tmpl_process3.pl update -i ../../koha-tmpl/$interface-tmpl/prog/en/ -s po/$po -r");
+        print "Finished\n";
     }              
 
 closedir DIR;