[Koha-cvs] CVS: koha/misc/translator tmpl_process.pl,1.5.2.4,1.5.2.5

[Paul POULAIN]

Update of /cvsroot/koha/koha/misc/translator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17780/misc/translator

Modified Files:
      Tag: rel_2_0
        tmpl_process.pl 
Log Message:
removing UNUSED; from input string (useless except if string list is not 
updated & an UNUSED string becomes used...)

Index: tmpl_process.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/tmpl_process.pl,v
retrieving revision 1.5.2.4
retrieving revision 1.5.2.5
diff -C2 -r1.5.2.4 -r1.5.2.5
*** tmpl_process.pl     20 Jan 2004 09:08:35 -0000      1.5.2.4
--- tmpl_process.pl     26 Jan 2004 10:41:50 -0000      1.5.2.5
***************
*** 185,189 ****
                if( !open($fh_out, "> $out_file_tmp") )
                {
!                       warn "Can't write $out_file : $!\n";
                        close($fh_in);
                        next;
--- 185,189 ----
                if( !open($fh_out, "> $out_file_tmp") )
                {
!                       warn "Can''t write $out_file : $!\n";
                        close($fh_in);
                        next;
***************
*** 206,209 ****
--- 206,210 ----
                                                # changing text
                                                my $subst = 
%{$strhash}->{$text};
+                                               $subst =~ s/UNUSED;//;
                                                # escaping \|()[{}^$*+?.
                                                $text =~ s/\\/\\\\/g;
***************
*** 229,232 ****
--- 230,234 ----
                                                # changing text
                                                my $subst = 
%{$strhash}->{$text};
+                                               $subst =~ s/UNUSED;//;
                                                # escaping \|()[{}^$*+?.
                                                $text =~ s/\\/\\\\/g;