my (%used_packages, $document_start_line);
foreach my $i (0 .. scalar @{ $lines } - 1) {
- if ($lines->[$i] =~ m/\\usepackage[^{]*{(.*?)}/) {
+ if ($lines->[$i] =~ m/\\usepackage[^\{]*{(.*?)}/) {
$used_packages{$1} = 1;
} elsif ($lines->[$i] =~ m/\\begin{document}/) {
$dateformat, $longformat);
}
}
+ if (ref($form->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY") {
+ for (my $i = 0; $i < scalar(@{$form->{TEMPLATE_ARRAYS}->{$idx}}); $i++) {
+ $form->{TEMPLATE_ARRAYS}->{$idx}->[$i] =
+ $locale->reformat_date(\%myconfig, $form->{TEMPLATE_ARRAYS}->{$idx}->[$i],
+ $dateformat, $longformat);
+ }
+ }
}
$lxdebug->leave_sub();