Auch copy&paste Programmierung will gelernt sein... :/
sub e_mail {
$lxdebug->enter_sub();
- $form->{postasnew} = 1;
- $print_post = 1;
-
- map { delete $form->{$_} } qw(printed emailed queued);
+ $print_post = 1;
&post;
sub e_mail {
$lxdebug->enter_sub();
- $form->{saveasnew} = 1;
- $form->{closed} = 0;
$form->{print_and_save} = 1;
- map { delete $form->{$_} } qw(printed emailed queued);
-
- # Let Lx-Office assign a new order number if the user hasn't changed the
- # previous one. If it has been changed manually then use it as-is.
- my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
- if ($form->{saved_xyznumber} &&
- ($form->{saved_xyznumber} eq $form->{$idx})) {
- delete($form->{$idx});
- }
&save;