[Koha-cvs] CVS: koha/misc/translator tmpl_process3.pl,1.20.2.3,1.20.2.4
Paul POULAIN
tipaul at users.sourceforge.net
Thu Mar 31 10:04:37 CEST 2005
Update of /cvsroot/koha/koha/misc/translator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28476/misc/translator
Modified Files:
Tag: rel_2_2
tmpl_process3.pl
Log Message:
bugfix for new behaviour (copying non-template files during install) still ignore those files during .po creation or update (.po are not friends with binary files ;-) )
Index: tmpl_process3.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/tmpl_process3.pl,v
retrieving revision 1.20.2.3
retrieving revision 1.20.2.4
diff -C2 -r1.20.2.3 -r1.20.2.4
*** tmpl_process3.pl 30 Mar 2005 12:28:47 -0000 1.20.2.3
--- tmpl_process3.pl 31 Mar 2005 08:04:34 -0000 1.20.2.4
***************
*** 114,119 ****
}
! sub listfiles ($$) {
! my($dir, $type) = @_;
my @it = ();
if (opendir(DIR, $dir)) {
--- 114,119 ----
}
! sub listfiles ($$$) {
! my($dir, $type, $action) = @_;
my @it = ();
if (opendir(DIR, $dir)) {
***************
*** 126,132 ****
;
} elsif (-f $path) {
! push @it, $path ;#if !defined $type || $dirent =~ /\.(?:$type)$/;
} elsif (-d $path && $recursive_p) {
! push @it, listfiles($path, $type);
}
}
--- 126,132 ----
;
} elsif (-f $path) {
! push @it, $path if (!defined $type || $dirent =~ /\.(?:$type)$/) || $action eq 'install';
} elsif (-d $path && $recursive_p) {
! push @it, listfiles($path, $type, $action);
}
}
***************
*** 177,184 ****
The -o option is ignored for the "create" and "update" actions.
! Try `perldoc $0' for perhaps more information.
EOF
exit($exitcode);
! }
###############################################################################
--- 177,184 ----
The -o option is ignored for the "create" and "update" actions.
! Try `perldoc $0 for perhaps more information.
EOF
exit($exitcode);
! }#`
###############################################################################
***************
*** 188,192 ****
print STDERR "$msg\n";
}
! print STDERR "Try `$0 --help' for more information.\n";
exit(-1);
}
--- 188,192 ----
print STDERR "$msg\n";
}
! print STDERR "Try `$0 --help for more information.\n";
exit(-1);
}
***************
*** 239,243 ****
$in_dir = $in_files[0];
$in_dir =~ s/\/$//; # strips the trailing / if any
! @in_files = listfiles($in_dir, $type);
} else {
for my $input (@in_files) {
--- 239,243 ----
$in_dir = $in_files[0];
$in_dir =~ s/\/$//; # strips the trailing / if any
! @in_files = listfiles($in_dir, $type, $action);
} else {
for my $input (@in_files) {
More information about the Koha-cvs
mailing list