LedgerSMB::DBObject LedgerSMB::Setting LedgerSMB::Employee, and LedgerSMB::Location all now use strict

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@890 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 7 insertions, 3 deletions

diff --git a/LedgerSMB/Setting.pm b/LedgerSMB/Setting.pm
index 959fcaeb..e257d63a 100644
--- a/LedgerSMB/Setting.pm
+++ b/LedgerSMB/Setting.pm
@@ -30,25 +30,29 @@ your software.
 package LedgerSMB::Setting;
 use LedgerSMB;
 use 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/^.*:://;
 	my $procname = "setting_$AUTOLOAD";
 	$self->exec_method($procname, @_);
 }
 
 sub get {
-	$self = shift;
-	$hashref = @{$self->exec_method('setting_get');
+	my $self = shift;
+	my $hashref = shift @{$self->exec_method('setting_get')};
 	$self->merge($hashref, 'value');
+}
 
 sub parse {
 
-	$self = shift;
+	my $self = shift;
+	my $myconfig = shift;
 
 	# Long-run, we may want to run this via Parse::RecDescent, but this is
 	# at least a start for here.  Chris T.