diff options
| -rw-r--r-- | LedgerSMB/Location.pm | 14 | ||||
| -rw-r--r-- | scripts/admin.pl | 4 | ||||
| -rw-r--r-- | scripts/customer.pl | 2 |
3 files changed, 15 insertions, 5 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 diff --git a/scripts/admin.pl b/scripts/admin.pl index 64fefcb9..55b87a1a 100644 --- a/scripts/admin.pl +++ b/scripts/admin.pl @@ -1,4 +1,6 @@ -package LedgerSMB::Scripts::Admin; +package LedgerSMB::Scripts::admin; + +require '../lsmb-request.pl'; use LedgerSMB::Template; use LedgerSMB::DBObject::Admin; diff --git a/scripts/customer.pl b/scripts/customer.pl index c684c7e6..c89cd5c5 100644 --- a/scripts/customer.pl +++ b/scripts/customer.pl @@ -22,6 +22,8 @@ package LedgerSMB::Scripts::customer; use LedgerSMB::Template; use LedgerSMB::DBObject::Customer; +require '../lsmb-request.pl'; + =pod =over |