[Koha-cvs] CVS: koha/misc/translator tmpl_process.pl,1.10,1.11

[Paul POULAIN]

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

Modified Files:
	tmpl_process.pl 
Log Message:
ignoring .tmpl that are hidden files (.somthing.tmpl). hidden files are generated by tools like emacs

Index: tmpl_process.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/tmpl_process.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** tmpl_process.pl	11 Feb 2004 08:42:02 -0000	1.10
--- tmpl_process.pl	12 Feb 2004 09:13:40 -0000	1.11
***************
*** 226,230 ****
  			$diff = `diff $out_file $out_file_tmp`;
  		} else {
! 			$diff = "write it, it's new";
  		}
  		if ($diff) {
--- 226,230 ----
  			$diff = `diff $out_file $out_file_tmp`;
  		} else {
! 			$diff = "write it, it's new";#'
  		}
  		if ($diff) {
***************
*** 268,272 ****
  			$str =~ s/[\n\r\f]+$//; # chomps the trailing \n (or <cr><lf> if file was edited with Windows)
  			$str =~ s/^[\s+:\(]*//; # remove useless characters
! 			$str =~ s/[\s\*:\[*\(|\.,\)]*$//;
  
  			# the line begins with letter(s) followed by optional words and/or spaces
--- 268,272 ----
  			$str =~ s/[\n\r\f]+$//; # chomps the trailing \n (or <cr><lf> if file was edited with Windows)
  			$str =~ s/^[\s+:\(]*//; # remove useless characters
! 			$str =~ s/[\s\*:\[*\(|\.,\)]*$//;#]
  
  			# the line begins with letter(s) followed by optional words and/or spaces
***************
*** 389,393 ****
  			@{$in_files} = listfiles($in_files, "$dir/$tmp_file", $type);
  		}
! 		elsif( $tmp_file =~ /\.$type$/ )
  		{
  			push(@{$in_files}, "$dir/$tmp_file");
--- 389,393 ----
  			@{$in_files} = listfiles($in_files, "$dir/$tmp_file", $type);
  		}
! 		elsif( $tmp_file =~ /\.$type$/  && !($tmp_file =~ /^\./))
  		{
  			push(@{$in_files}, "$dir/$tmp_file");