X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/d527be3a4b43f028f39d35d1d8f5a34709a37c91..cd32c5e983a98a515c0049422db858f2c13c4d7a:/SL/OE.pm diff --git a/SL/OE.pm b/SL/OE.pm index fa178d9e2..2caab7290 100644 --- a/SL/OE.pm +++ b/SL/OE.pm @@ -581,7 +581,7 @@ sub retrieve { my $query, @ids; # translate the ids (given by id_# and trans_id_#) into one array of ids, so we can join them later - map { push @ids, $form->{"trans_id_$_"} if ($form->{"id_$_"}) } (1 .. $form->{"rowcount"}); + map { push @ids, $form->{"trans_id_$_"} if ($form->{"id_$_"} and $form->{"trans_id_$_"}) } (1 .. $form->{"rowcount"}); # if called in multi id mode, and still only got one id, switch back to single id if ($form->{"rowcount"} and $#ids == 0) { @@ -657,9 +657,9 @@ sub retrieve { $ref = $sth->fetchrow_hashref(NAME_lc); map { $form->{$_} = $ref->{$_} } keys %$ref; - # destroy all entries for multiple ids that yield different information + # set all entries for multiple ids blank that yield different information while ($ref = $sth->fetchrow_hashref(NAME_lc)) { - map { undef $form->{$_} if ($ref->{$_} ne $form->{$_}) } keys %$ref; + map { $form->{$_} = '' if ($ref->{$_} ne $form->{$_}) } keys %$ref; } # if not given, fill transdate with current_date