summaryrefslogtreecommitdiff
path: root/LedgerSMB/Form.pm
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-30 21:54:02 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-30 21:54:02 +0000
commit007780f7a885664171371e138296efc40311a770 (patch)
tree69ba50901a06d91d97d83b5d85540fd59f496cd4 /LedgerSMB/Form.pm
parent286bf08d34745c5afb95add35c102dc966a36fc8 (diff)
Fixing POS open transaction report, and catching error if FXRate is not entered
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1018 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Form.pm')
-rwxr-xr-xLedgerSMB/Form.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index a7fa9186..352b0ba0 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1579,6 +1579,9 @@ sub update_exchangerate {
@queryargs = ($sell);
}
+ if (!$set){
+ $self->error("Exchange rate missing!");
+ }
if ($sth->fetchrow_array) {
$query = qq|UPDATE exchangerate
SET $set