X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_signup%2FFS-SignupClient%2FSignupClient.pm;h=fb2b12fb055e24903c660ae27d8c2ba7490fbac3;hb=35effa1bf4ac902547615c816960bbc8db8e7256;hp=e17c4618112feb6ef94e04e0c1ca63b3d90559ce;hpb=86c14f830b8d7e996bb84a0ad6a89f26816ea5b7;p=freeside.git diff --git a/fs_signup/FS-SignupClient/SignupClient.pm b/fs_signup/FS-SignupClient/SignupClient.pm index e17c46181..fb2b12fb0 100644 --- a/fs_signup/FS-SignupClient/SignupClient.pm +++ b/fs_signup/FS-SignupClient/SignupClient.pm @@ -7,7 +7,7 @@ use Exporter; #use FileHandle; #use IO::Handle; #use Storable qw(nstore_fd fd_retrieve); -use FS::SelfService qw( new_customer ); #qw( signup_info ); +use FS::SelfService; # qw( new_customer signup_info ); $VERSION = '0.04'; @@ -43,6 +43,7 @@ FS::SignupClient - Freeside signup client API 'fax' => $fax, 'payby' => $payby, 'payinfo' => $payinfo, + 'paycvv' => $paycvv, 'paydate' => $paydate, 'payname' => $payname, 'invoicing_list' => $invoicing_list, @@ -125,6 +126,7 @@ a paramater with the following keys: fax payby payinfo + paycvv paydate payname invoicing_list @@ -138,6 +140,14 @@ a paramater with the following keys: Returns a scalar error message, or the empty string for success. +=cut + +#compatibility bit +sub new_customer { + my $hash = FS::SelfService::new_customer(@_); + $hash->{'error'}; +} + =back =head1 BUGS