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 e69834df..1985842d 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -2174,7 +2174,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; } elsif ($_ eq 'current_date'){ |