From 9b24d1041b7c8e96962d1aa95dd4efba39f912b2 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 3 Sep 2008 18:15:41 +0000
Subject: Adding button to generate entity control code

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2310 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Setting.pm | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/Setting.pm b/LedgerSMB/Setting.pm
index 7da680c2..57630c97 100644
--- a/LedgerSMB/Setting.pm
+++ b/LedgerSMB/Setting.pm
@@ -47,23 +47,14 @@ your software.
 =cut
 
 package LedgerSMB::Setting;
-use LedgerSMB;
-use LedgerSMB::DBObject;
+use base qw(LedgerSMB::DBObject);
 use strict;
 our $VERSION = '1.0.0';
 
-our @ISA = qw(LedgerSMB::DBObject);
-
-sub AUTOLOAD {
-    my $self     = shift;
-    my $AUTOLOAD = $LedgerSMB::Setting::AUTOLOAD;
-    $AUTOLOAD =~ s/^.*:://;
-    $self->exec_method( procname => "setting_$AUTOLOAD", args => \@_ );
-}
 
 sub get {
     my $self = shift;
-    my $hashref = shift @{ $self->exec_method( procname => 'setting_get' ) };
+    my $hashref = shift @{ $self->exec_method( funcname => 'setting_get' ) };
     $self->merge( $hashref, 'value' );
 }
 
-- 
cgit v1.2.3