Häßlichen Debug-Code von vorhin entfernt.

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 6b1e114c3139b629150491bf5ada996524a272cf..771b29b6e491234f3e28feb342dcfb533be1bd9d 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -92,9 +92,6 @@ use SL::PE;
 use SL::AM;
 use Data::Dumper;
 
 use SL::AM;
 use Data::Dumper;
 

-#die variablen sind doch auch noch in anderen unterroutinen interessant:
-
-

 sub _check_io_auth {
   $auth->assert('part_service_assembly_edit   | vendor_invoice_edit       | sales_order_edit    | invoice_edit |' .
                 'request_quotation_edit       | sales_quotation_edit      | purchase_order_edit | ' .
 sub _check_io_auth {
   $auth->assert('part_service_assembly_edit   | vendor_invoice_edit       | sales_order_edit    | invoice_edit |' .
                 'request_quotation_edit       | sales_quotation_edit      | purchase_order_edit | ' .


@@ -417,7 +414,7 @@ sub select_item {
     if ($is_purchase){ 
       $column_data{rop} =
       qq|<th class="listheading">| . $locale->text('ROP') . qq|</th>|;
     if ($is_purchase){ 
       $column_data{rop} =
       qq|<th class="listheading">| . $locale->text('ROP') . qq|</th>|;

-    }
+    }# ende if $is_purchase -> Überschrift Mindestlagerbestand - ähnliche Prüfung weiter unten

   $column_data{onhand} =
     qq|<th class="listheading">| . $locale->text('Qty') . qq|</th>|;
   $column_data{unit} =
   $column_data{onhand} =
     qq|<th class="listheading">| . $locale->text('Qty') . qq|</th>|;
   $column_data{unit} =


@@ -485,7 +482,7 @@ sub select_item {
       qq|<td align="right"><input name="new_rop$i" type="hidden" value="$ref->{rop}">|
       . $form->format_amount(\%myconfig, $ref->{rop}, '', "&nbsp;")
       . qq|</td>|;
       qq|<td align="right"><input name="new_rop$i" type="hidden" value="$ref->{rop}">|
       . $form->format_amount(\%myconfig, $ref->{rop}, '', "&nbsp;")
       . qq|</td>|;

-    } # ende if oe.pl -> Falls der Aufruf über oe.pl kam, handelt es sich um einen Lieferantenauftrag und uns interessiert auch die Mindestbestandsmenge
+    }# ende if $is_purchase -> Falls der Aufruf über eine Einkaufsmaske kam, handelt es sich um einen Lieferantenauftrag und uns interessiert auch die Mindestbestandsmenge

     $column_data{unit} =
       qq|<td>$ref->{unit}</td>|;
     $j++;
     $column_data{unit} =
       qq|<td>$ref->{unit}</td>|;
     $j++;


@@ -1143,10 +1140,6 @@ sub print_options {
 sub print {
   $lxdebug->enter_sub();
 
 sub print {
   $lxdebug->enter_sub();
 

-# einfach mal hier die sachen für aufrufen
-
-  IC->prepare_parts_for_printing();
-

   _check_io_auth();
 
   if ($form->{print_nextsub}) {
   _check_io_auth();
 
   if ($form->{print_nextsub}) {


@@ -1384,9 +1377,6 @@ sub print_form {
   } elsif ($order) {
     OE->order_details(\%myconfig, \%$form);
   } else {
   } elsif ($order) {
     OE->order_details(\%myconfig, \%$form);
   } else {

-
-print(STDERR "davor");
-

     IS->invoice_details(\%myconfig, \%$form, $locale);
   }
 
     IS->invoice_details(\%myconfig, \%$form, $locale);
   }
 


@@ -1510,9 +1500,6 @@ print(STDERR "davor");
   delete $form->{OUT};
 
   if ($form->{media} eq 'printer') {
   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/^ //;
     $form->{OUT} = "| $form->{printer_command} &>/dev/null";
     $form->{printed} .= " $form->{formname}";
     $form->{printed} =~ s/^ //;