X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6c56877d1497223a3515dea602de77330626a7bd..40d52f50:/bin/mozilla/io.pl

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index ea8b20306..a0f928896 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1059,7 +1059,7 @@ sub print_options {
     ($form->{type} =~ /_delivery_order$/) ? (
       opthash($form->{type},         $form->{PD}{$form->{type}},       $locale->text('Delivery Order')),
       opthash('pick_list',           $form->{PD}{pick_list},           $locale->text('Pick List')),
-    ) : undef;
+    ) : undef,
     ($form->{type} eq 'credit_note') ?
       opthash("credit_note",         $form->{PD}{credit_note},         $locale->text('Credit Note')) : undef;
 
@@ -1486,6 +1486,9 @@ sub print_form {
   delete $form->{OUT};
 
   if ($form->{media} eq 'printer') {
+    print (STDERR "io--------------------------------------");
+    print (STDERR  $form->{printer_command});
+    #$form->{OUT} = "| $form->{printer_command} ";
     $form->{OUT} = "| $form->{printer_command} &>/dev/null";
     $form->{printed} .= " $form->{formname}";
     $form->{printed} =~ s/^ //;
@@ -1878,7 +1881,7 @@ sub _update_part_information {
 sub _update_ship {
   $lxdebug->enter_sub();
 
-  if (!$form->{ordnumber}) {
+  if (!$form->{ordnumber} || !$form->{id}) {
     map { $form->{"ship_$_"} = 0 } (1..$form->{rowcount});
     $lxdebug->leave_sub();
     return;