X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/d729e3287170e929ff0306855d33b823a692f62d..0dc65e8532e92daacbef328f3df2f92e7e221cb5:/SL/IS.pm diff --git a/SL/IS.pm b/SL/IS.pm index bd385ef7d..3aa0d3ca9 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -1440,7 +1440,7 @@ sub retrieve_invoice { my ($sth, $ref, $query); - my $query_transdate = ", current_date AS invdate" if !$form->{id}; + my $query_transdate = !$form->{id} ? ", current_date AS invdate" : ''; $query = qq|SELECT @@ -1480,6 +1480,8 @@ sub retrieve_invoice { $ref = selectfirst_hashref_query($form, $dbh, $query, $id); map { $form->{$_} = $ref->{$_} } keys %{ $ref }; + # remove any trailing whitespace + $form->{currency} =~ s/\s*$//; $form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{invdate}, "buy");