Fehler beim Speichern von Rechnungen und Angeboten/Auftraegen wenn keine Preisgruppen...

diff --git a/SL/IS.pm b/SL/IS.pm
index a547fa9..540c874 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -554,6 +554,7 @@ print STDERR "IS.pm-post_invoice\n";
 
       # get pricegroup_id and save ist
       ($null, my $pricegroup_id) = split /--/, $form->{"sellprice_drag_$i"};
+      $pricegroup_id *= 1;
 
       # save detail record in invoice table
       $query = qq|INSERT INTO invoice (trans_id, parts_id, description, qty,

diff --git a/SL/OE.pm b/SL/OE.pm
index 334355d..d5d1aa7 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -313,6 +313,7 @@ sub save {
 
       # get pricegroup_id and save ist
       ($null, my $pricegroup_id) = split /--/, $form->{"sellprice_drag_$i"};
+      $pricegroup_id *= 1;
 
       # save detail record in orderitems table
       $query = qq|INSERT INTO orderitems (|;