diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-09 23:51:27 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-09 23:51:27 +0000 |
| commit | 006b909f167653228b41c4725d2b55e9b1860097 (patch) | |
| tree | cd86117439e5e3de69216fc2f3b539d6ac39b50b /LedgerSMB/Location.pm | |
| parent | 8af0c5a7d5b6b6720ac12251f50897f6ee3f1b63 (diff) | |
Employee search now works
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@873 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Location.pm')
| -rw-r--r-- | LedgerSMB/Location.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/LedgerSMB/Location.pm b/LedgerSMB/Location.pm index 95128e51..69403a7b 100644 --- a/LedgerSMB/Location.pm +++ b/LedgerSMB/Location.pm @@ -37,8 +37,10 @@ our $VERSION = '1.0.0'; our @ISA = qw(LedgerSMB::DBObject); sub AUTOLOAD { - my $procname = "location_$LedgerSMB::Location::Autoload"; - $self->exec_method($procname); + my $self = shift; + $AUTOLOAD =~ s/^.*:://; + my $procname = "location_$AUTOLOAD"; + $self->exec_method($procname, @_); } sub save { |