From 94de37d5281facd3db21d0356a2c9962f9e55e7d Mon Sep 17 00:00:00 2001
From: aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 12 Sep 2007 21:33:42 +0000
Subject: Fixes to location.pm, to correct problems with strict and lack of
 namespacing of $ref and $self.

addition of require lsmb-request to admin.pl and customer.pl

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1579 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Location.pm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'LedgerSMB/Location.pm')

diff --git a/LedgerSMB/Location.pm b/LedgerSMB/Location.pm
index cbd2fe9e..790b7050 100644
--- a/LedgerSMB/Location.pm
+++ b/LedgerSMB/Location.pm
@@ -59,21 +59,27 @@ sub AUTOLOAD {
 }
 
 sub save {
-    $ref = shift @{ $self->exec_method( procname => "location_save" ) };
+    my $self = shift;
+    my $ref = shift @{ $self->exec_method( procname => "location_save" ) };
     $self->merge( $ref, 'id' );
 }
 
 sub get {
-    $ref = shift @{ $self->exec_method( procname => 'location_get' ) };
+    my $self = shift;
+    my $ref = shift @{ $self->exec_method( procname => 'location_get' ) };
     $self->merge( $ref, keys %{$ref} );
 }
 
 sub search {
-    $self->{search_results} =
+    my $self = shift;
+    my $self->{search_results} =
       $self->exec_method( procname => 'location_search' );
 }
 
 sub list_all {
-    $self->{search_results} =
+    my $self = shift;
+    my $self->{search_results} =
       $self->exec_method( procname => 'location_list_all' );
 }
+
+1;
\ No newline at end of file
-- 
cgit v1.2.3