projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix backwards-compatibility for signup server
[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
..
1d91a41
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';
@@
-138,6
+138,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