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