diff options
author | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-13 23:50:02 +0000 |
---|---|---|
committer | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-13 23:50:02 +0000 |
commit | 26e86ec4ce6af32486187d7bb03655516fbeeb0c (patch) | |
tree | 32b5c4156dc8183f049456fade80b832549a6d5f /LedgerSMB/Contact.pm | |
parent | 5bf40c4bb43274c05d6843dcc9dd7704cd5e80b6 (diff) |
admin script now compiles correctly on my testbed host.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1591 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Contact.pm')
-rw-r--r-- | LedgerSMB/Contact.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/LedgerSMB/Contact.pm b/LedgerSMB/Contact.pm index b98a6298..b3d6b9d8 100644 --- a/LedgerSMB/Contact.pm +++ b/LedgerSMB/Contact.pm @@ -37,7 +37,7 @@ your software. package LedgerSMB::Contact; use base LedgerSMB::DBObject; -use LedgerSMB::Error; +#use LedgerSMB::Error; sub save { @@ -63,13 +63,13 @@ sub save { sub get { - my $self=shift @_; + my $self = shift @_; my $id = shift @_; my $result = shift @{ $self->exec_method( procname => 'get', args=>[$id] - ); + ) }; } sub search { |