diff options
Diffstat (limited to 'LedgerSMB')
-rw-r--r-- | LedgerSMB/Location.pm | 14 |
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 |