[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;