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

1 files changed, 10 insertions, 4 deletions

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