diff options
| -rwxr-xr-x | LedgerSMB/Form.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index d66375f6..2ff0be22 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -2164,7 +2164,7 @@ sub create_links { $sth = $dbh->prepare($query); $sth->execute || $self->dberror($query); - (undef, $val) = $sth->fetchrow_array(); + ($val) = $sth->fetchrow_array(); if ($_ eq 'curr'){ $self->{currencies} = $val; } else { |