diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-14 02:56:06 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-14 02:56:06 +0000 |
| commit | 1e60fe4c70cc711135b18dd7875e2130705bd39e (patch) | |
| tree | 95ba28d53e1a72967617a24fe81a83a26a06fe85 | |
| parent | 8112047aa0ef879163d40ba613b12976e346ba43 (diff) | |
Added AUTOLOAD function to LedgerSMB::DBObject for raw DBObjects (useful in custom scripting)
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@892 4979c152-3d1c-0410-bac9-87ea11338e46
| -rw-r--r-- | LedgerSMB/DBObject.pm | 7 | ||||
| -rw-r--r-- | LedgerSMB/Setting.pm | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm index 83a94d4a..5c07e15e 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -30,6 +30,13 @@ use warnings; our @ISA = qw(LedgerSMB); +our $AUTOLOAD; + +sub AUTOLOAD { + my ($self) = shift; + $self->exec_method($AUTOLOAD, @_); +} + sub new { my $self = shift @_; my $lsmb = shift @_; diff --git a/LedgerSMB/Setting.pm b/LedgerSMB/Setting.pm index a79b89c9..bef80f60 100644 --- a/LedgerSMB/Setting.pm +++ b/LedgerSMB/Setting.pm @@ -57,7 +57,7 @@ sub get { $self->merge($hashref, 'value'); } -sub parse_incriment { +sub parse_increment { my $self = shift; my $myconfig = shift; |