projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
import Net::Whois::Raw into install/5.005 directory *sigh*
[freeside.git]
/
fs_signup
/
FS-SignupClient
/
SignupClient.pm
diff --git
a/fs_signup/FS-SignupClient/SignupClient.pm
b/fs_signup/FS-SignupClient/SignupClient.pm
index
e17c461
..
fb2b12f
100644
(file)
--- 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 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';
$VERSION = '0.04';
@@
-43,6
+43,7
@@
FS::SignupClient - Freeside signup client API
'fax' => $fax,
'payby' => $payby,
'payinfo' => $payinfo,
'fax' => $fax,
'payby' => $payby,
'payinfo' => $payinfo,
+ 'paycvv' => $paycvv,
'paydate' => $paydate,
'payname' => $payname,
'invoicing_list' => $invoicing_list,
'paydate' => $paydate,
'payname' => $payname,
'invoicing_list' => $invoicing_list,
@@
-125,6
+126,7
@@
a paramater with the following keys:
fax
payby
payinfo
fax
payby
payinfo
+ paycvv
paydate
payname
invoicing_list
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.
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
=back
=head1 BUGS