diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-31 17:56:40 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-31 17:56:40 +0000 |
commit | ccd43bc4da3e070cd986ee837bfc0311d5a0f598 (patch) | |
tree | 33a9a4b847bffcbc4178c59226689456a737a8df /LedgerSMB/AM.pm | |
parent | 3330cb2101ee3a6234e82744256cd675dd4e1e19 (diff) |
UNTESTED fix for system->defaults
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@424 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/AM.pm')
-rwxr-xr-x | LedgerSMB/AM.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index 25415a15..8014c41e 100755 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -1835,5 +1835,18 @@ sub post_yearend { } +sub get_all_defaults{ + my ($self, $form) = @_; + my $dbh = $form->{dbh}; + my $query = "select setting_key, value FROM defaults"; + $sth = $dbh->prepare($query); + $sth->execute; + while (($skey, $value) = $sth->fetchrow_array()){ + $form->{$skey} = $value; + } + + $self->defaultaccounts(undef, $form); + $dbh->commit; +} 1; |