summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-31 17:56:40 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-31 17:56:40 +0000
commitccd43bc4da3e070cd986ee837bfc0311d5a0f598 (patch)
tree33a9a4b847bffcbc4178c59226689456a737a8df /LedgerSMB
parent3330cb2101ee3a6234e82744256cd675dd4e1e19 (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')
-rwxr-xr-xLedgerSMB/AM.pm13
-rwxr-xr-xLedgerSMB/Num2text.pm2
2 files changed, 14 insertions, 1 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;
diff --git a/LedgerSMB/Num2text.pm b/LedgerSMB/Num2text.pm
index bd66bcfa..74ed8a4a 100755
--- a/LedgerSMB/Num2text.pm
+++ b/LedgerSMB/Num2text.pm
@@ -23,7 +23,7 @@
#
#======================================================================
#
-# This file has NOT undergone whitespace cleanup.
+# This file has undergone whitespace cleanup.
#
#======================================================================
#