diff options
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 { |