From 1e60fe4c70cc711135b18dd7875e2130705bd39e Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 14 Mar 2007 02:56:06 +0000
Subject: 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
---
 LedgerSMB/DBObject.pm | 7 +++++++
 LedgerSMB/Setting.pm  | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

(limited to 'LedgerSMB')

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;
-- 
cgit v1.2.3