From f5b11c75cc921cab428edea6d4d3c3bf93d50a3e Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <information@richardson-bueren.de>
Date: Mon, 2 Feb 2009 19:51:22 +0000
Subject: [PATCH] =?utf8?q?H=C3=A4=C3=9Flichen=20Debug-Code=20von=20vorhin?=
 =?utf8?q?=20entfernt.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bin/mozilla/io.pl | 17 ++---------------
 1 file changed, 2 insertions(+), 15 deletions(-)

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 6b1e114c3..771b29b6e 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -92,9 +92,6 @@ use SL::PE;
 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 | ' .
@@ -417,7 +414,7 @@ sub select_item {
     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} =
@@ -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>|;
-    } # 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++;
@@ -1143,10 +1140,6 @@ sub print_options {
 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}) {
@@ -1384,9 +1377,6 @@ sub print_form {
   } elsif ($order) {
     OE->order_details(\%myconfig, \%$form);
   } else {
-
-print(STDERR "davor");
-
     IS->invoice_details(\%myconfig, \%$form, $locale);
   }
 
@@ -1510,9 +1500,6 @@ print(STDERR "davor");
   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/^ //;
-- 
2.20.1