X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FClientAPI.pm;h=1fea28c6733fd2ca0daa3704e3e6686d043487b0;hb=368ed08e24400e9d1faf401a1e4e23ea54d2c969;hp=c36fd5595c24f9f6da7f1d8ee659e70e67733b40;hpb=c13b6c8f4b9876aa8f91e1c14d3c208ac0d189e9;p=freeside.git diff --git a/FS/FS/ClientAPI.pm b/FS/FS/ClientAPI.pm index c36fd5595..1fea28c67 100644 --- a/FS/FS/ClientAPI.pm +++ b/FS/FS/ClientAPI.pm @@ -3,7 +3,6 @@ package FS::ClientAPI; use strict; use base 'Exporter'; use vars qw( @EXPORT_OK %handler $domain $DEBUG $me ); -use FS::UID qw( dbh ); @EXPORT_OK = qw( load_clientapi_modules ); @@ -36,17 +35,9 @@ sub dispatch { my ( $self, $name ) = ( shift, shift ); $name =~ s(/)(::)g; my $sub = "FS::ClientAPI::$name"; - - dbh->{'private_profile'} = {}; - warn "$me dispatch: calling $sub with args @_\n" if $DEBUG; no strict 'refs'; - my $rv = &{$sub}(@_); - - warn dbh->sprintProfile if dbh->can('sprintProfile'); - dbh->{'private_profile'} = {}; - - $rv; + &{$sub}(@_); } 1;