p_discount verrutscht in der Zeile bei "Waren gruppiert"

[t.kleindienst@…]

Wenn die Checkbox "Waren gruppiert" aktiviert ist, so verrutscht im Formular
die Zeile für p_discount.

Bspw ohne Gruppierungen:
Nr. | Artikel | EP | discount | GP

Acrylfarbe, rot 9,00 0% 9,00
Acrylfarbe, blau 5,00 -5% 4,xx
Abdeckfolie 7,00 -6% 6,xx

und nun mit Waren-Gruppierungen:
Nr. | Artikel | EP | discount | GP

Warengruppe Farben
Acrylfarbe, rot 9,00 -5% 9,00 <- -5% ist verrutscht
Acrylfarbe, blau 5,00 4,xx
Warengruppe Zubehör -6% <- -6% ist verrutscht
Abdeckfolie 7,00 6,xx

Resoloved:
in SL/OE.pm

sub order_details {
[...]

my $sameitem = "";
foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {

[...]
if ($item->[1] ne $sameitem) {

[...]
map { push(@{ $form->{$_} }, "") }

qw(runningnumber number qty ship unit bin partnotes serialnumber

reqdate sellprice listprice netprice discount p_discount linetotal);

}

im push-Befehl p_discount ergaenzt

kein diff... bei mir ist eh' schon alles mit print's und sonstwas versetzt...
Das ist ja alles ein heilloser Wust...

in SL/From.pm

Zeile 1258

sub get_shipto {

map { $form->{$_} = $ref->{$_} } keys %$ref;

muß richtig heissen:

map { $self->{$_} = $ref->{$_} } keys %$ref;

bug-squashing... heute schon der zweite ;-)
wieder kein diff...

* This bug has been marked as a duplicate of 503 *