use strict;
-my $print_post;
-my %TMPL_VAR;
+our %TMPL_VAR;
1;
check_oe_access();
# Container for template variables. Unfortunately this has to be
- # visible in form_footer too, so my at package level and not here.
+ # visible in form_footer too, so package local level and not my here.
%TMPL_VAR = ();
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
if ($rows > 1) {
&select_item;
- exit;
+ ::end_of_request();
} else {
$form->{payment_id} = $payment_id;
}
&update;
- exit;
+ ::end_of_request();
}
$form->{id} = 0 if $form->{saveasnew};
$form->{payment_id} = $payment_id;
}
&update;
- exit;
+ ::end_of_request();
}
$form->{id} = 0 if $form->{saveasnew};
if(!$form->{print_and_save}) {
delete @{$form}{ary_diff([keys %{ $form }], [qw(login stylesheet id script type cursor_fokus)])};
edit();
- exit;
+ ::end_of_request();
}
$main::lxdebug->leave_sub();
}
}
# /saving the history
$form->info($msg);
- exit();
+ ::end_of_request();
}
$form->error($err);
if (&check_name($form->{vc})) {
$form->{payment_id} = $payment_id if $form->{payment_id} eq "";
&update;
- exit;
+ ::end_of_request();
}
$form->{cp_id} *= 1;
if (!$exchangerate) {
&backorder_exchangerate($orddate, $buysell);
- exit;
+ ::end_of_request();
}
}
$main::lxdebug->leave_sub();
- exit 0;
+ ::end_of_request();
}
sub purchase_order {
$form->{print_and_save} = 1;
- $print_post = 1;
-
my $saved_form = save_form();
save();