$type |
- $language
+ | ${language_select} |
$format |
$media |
|;
- if ($myconfig{printer} && $latex && $form->{media} ne 'email') {
+ if ($myconfig{printer} && $latex_templates && $form->{media} ne 'email') {
print qq|
| . $locale->text('Copies') . qq|
{copies}> |
@@ -1414,7 +1430,6 @@ sub print_options {
sub print {
$lxdebug->enter_sub();
-
# if this goes to the printer pass through
if ($form->{media} eq 'printer' || $form->{media} eq 'queue') {
$form->error($locale->text('Select postscript or PDF!'))
@@ -1467,6 +1482,8 @@ sub print_form {
$form->{invdate} = $form->{"${inv}date"} = $form->{transdate};
$form->{label} = $locale->text('Packing List');
$order = 1;
+ # set invnumber for template packing_list
+ $form->{invnumber} = $form->{ordnumber};
}
if ($form->{formname} eq 'pick_list') {
$inv = "ord";
@@ -1546,9 +1563,9 @@ sub print_form {
my ($saved_email, $saved_cc, $saved_bcc) =
($form->{"email"}, $form->{"cc"}, $form->{"bcc"});
- $language = $form->{language};
+ $language_saved = $form->{language};
&{"$form->{vc}_details"};
- $form->{language} = $language;
+ $form->{language} = $language_saved;
$form->{"email"} = $saved_email if ($saved_email);
$form->{"cc"} = $saved_cc if ($saved_cc);
@@ -1585,15 +1602,15 @@ sub print_form {
IS->invoice_details(\%myconfig, \%$form, $locale);
}
- # format global dates
+ # format global dates
map { $form->{$_} = $locale->date(\%myconfig, $form->{$_}, 1) }
("${inv}date", "${due}date", "shippingdate", "deliverydate");
# format item dates
for my $field (qw(transdate_oe deliverydate_oe)) {
- map {
- $form->{$field}[$_] = $locale->date(\%myconfig, $form->{$field}[$_], 1);
- } 0..$#{$form->{$field}};
+ map {
+ $form->{$field}[$_] = $locale->date(\%myconfig, $form->{$field}[$_], 1);
+ } 0 .. $#{ $form->{$field} };
}
@a = qw(name street zipcode city country);