SF.net SVN: ledger-smb: [1579] trunk

[..hidden..]

Revision: 1579
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1579&view=rev
Author:   aurynn_cmd
Date:     2007-09-12 14:33:42 -0700 (Wed, 12 Sep 2007)

Log Message:
-----------
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

Modified Paths:
--------------
    trunk/LedgerSMB/Location.pm
    trunk/scripts/admin.pl
    trunk/scripts/customer.pl

Modified: trunk/LedgerSMB/Location.pm
===================================================================
--- trunk/LedgerSMB/Location.pm	2007-09-12 13:42:17 UTC (rev 1578)
+++ trunk/LedgerSMB/Location.pm	2007-09-12 21:33:42 UTC (rev 1579)
@@ -59,21 +59,27 @@
 }
 
 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

Modified: trunk/scripts/admin.pl
===================================================================
--- trunk/scripts/admin.pl	2007-09-12 13:42:17 UTC (rev 1578)
+++ trunk/scripts/admin.pl	2007-09-12 21:33:42 UTC (rev 1579)
@@ -1,5 +1,7 @@
-package LedgerSMB::Scripts::Admin;
+package LedgerSMB::Scripts::admin;
 
+require '../lsmb-request.pl';
+
 use LedgerSMB::Template;
 use LedgerSMB::DBObject::Admin;
 

Modified: trunk/scripts/customer.pl
===================================================================
--- trunk/scripts/customer.pl	2007-09-12 13:42:17 UTC (rev 1578)
+++ trunk/scripts/customer.pl	2007-09-12 21:33:42 UTC (rev 1579)
@@ -22,6 +22,8 @@
 use LedgerSMB::Template;
 use LedgerSMB::DBObject::Customer;
 
+require '../lsmb-request.pl';
+
 =pod
 
 =over


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.