From 6c12abf7e504250dcb0d43a91e7127edf8525b39 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Stephan=20K=C3=B6hler?= Date: Thu, 2 Feb 2006 16:16:58 +0000 Subject: [PATCH] =?utf8?q?STDERR=20entfernt,=20Packet=20List=20in=20Liefer?= =?utf8?q?schein=20umbenannt,=20Vorlagen=20ge=C3=A4ndert,=20locales?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/DATEV.pm | 5 ----- SL/GL.pm | 2 -- SL/IR.pm | 2 -- bin/mozilla/io.pl | 2 +- bin/mozilla/rp.pl | 4 ---- locale/de/all | 5 +++-- locale/de/am | 4 ++-- locale/de/ic | 2 +- locale/de/io | 2 +- locale/de/ir | 2 +- locale/de/is | 2 +- locale/de/menu | 2 +- locale/de/menunew | 2 +- locale/de/oe | 2 +- templates/German-packing_list.html | 2 +- templates/German-packing_list.tex | 2 +- 16 files changed, 15 insertions(+), 27 deletions(-) diff --git a/SL/DATEV.pm b/SL/DATEV.pm index f53e9fcc9..36fe80dba 100644 --- a/SL/DATEV.pm +++ b/SL/DATEV.pm @@ -314,16 +314,12 @@ sub get_transactions { $blubb{'amount'} = $form->round_amount(($i->[$j]->{'amount'} * $test * -1), 2); - #print(STDERR $test, " Taxrate\n\n"); $blubb{'umsatz'} = abs($form->round_amount(($i->[$j]->{'amount'} * $test), 2)) * $ml; $i->[$j]->{'umsatz'} = abs($form->round_amount(($i->[$j]->{'amount'} * $test), 2)) * $ml; - #print(STDERR $i->[$j]->{'umsatz'}, " Steuer Umsatz\n"); - #print(STDERR $i->[$j]->{'amount'}, " Steuer Betrag\n"); - #print(STDERR $blubb{'umsatz'}, " Umsatz NOTSPLIT\n"); push @{ $splits[$g] }, \%blubb; push @{ $splits[$g] }, $i->[$j]; push @{ $form->{DATEV} }, \@{ $splits[$g] }; @@ -333,7 +329,6 @@ sub get_transactions { } } if (abs($absumsatz) > 0.01) { - print(STDERR $absumsatz, "ABSAUMSATZ\n"); $form->error("Datev-Export fehlgeschlagen!"); } } else { diff --git a/SL/GL.pm b/SL/GL.pm index 3b0e74e82..1cc3d3447 100644 --- a/SL/GL.pm +++ b/SL/GL.pm @@ -496,7 +496,6 @@ sub all_transactions { # } } - # print(STDERR Dumper($ref)); } push @{ $form->{GL} }, $ref; @@ -520,7 +519,6 @@ sub all_transactions { ($form->{gifi_account_description}) = $sth->fetchrow_array; $sth->finish; } - print(STDERR Dumper($form->{GL})); $main::lxdebug->leave_sub(); $dbh->disconnect; diff --git a/SL/IR.pm b/SL/IR.pm index 0d23b45ef..5c243a468 100644 --- a/SL/IR.pm +++ b/SL/IR.pm @@ -337,7 +337,6 @@ sub post_invoice { if ($form->{"projectnumber_$i"}) { $project_id = $form->{"projectnumber_$i"}; } - print(STDERR $project_id, " Project_id\n"); $deliverydate = ($form->{"deliverydate_$i"}) ? qq|'$form->{"deliverydate_$i"}'| @@ -353,7 +352,6 @@ sub post_invoice { '$form->{"unit_$i"}', $deliverydate, (SELECT id FROM project WHERE projectnumber = '$project_id'), '$form->{"serialnumber_$i"}')|; $dbh->do($query) || $form->dberror($query); - print(STDERR $query, "\n\n"); } } diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl index 9fdb05825..03fd32ace 100644 --- a/bin/mozilla/io.pl +++ b/bin/mozilla/io.pl @@ -1264,7 +1264,7 @@ sub print_options { $form->{DF}{ $form->{format} } = "selected"; $form->{OP}{ $form->{media} } = "selected"; $form->{SM}{ $form->{sendmode} } = "selected"; - print(STDERR $form->{format} , " Format\n"); + if ($form->{type} eq 'purchase_order') { $type = qq|