equal
deleted
inserted
replaced
324 my $temp=$1; # lang code |
324 my $temp=$1; # lang code |
325 my $temp2=$3; # file name |
325 my $temp2=$3; # file name |
326 if ((lc $2) eq "sources") { |
326 if ((lc $2) eq "sources") { |
327 $out_file = "${out_path}\\$3"; |
327 $out_file = "${out_path}\\$3"; |
328 } else { |
328 } else { |
329 if (length($temp) > 4) { #skip extra files |
329 if (length($temp) > 5) { #skip extra files |
330 next; |
330 next; |
331 } |
331 } |
332 while (length($temp) < 4){ $temp = "0".$temp; } |
332 while (length($temp) < 4){ $temp = "0".$temp; } |
333 $temp2 =~ s/\d{4}/$temp/g; # change .odt filename for correct lang |
333 $temp2 =~ s/\d{4}/$temp/g; # change .odt filename for correct lang |
334 $out_file = "${out_path}\\$temp2"; |
334 $out_file = "${out_path}\\$temp2"; |