diff options
| -rw-r--r-- | fs_signup/FS-SignupClient/SignupClient.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/fs_signup/FS-SignupClient/SignupClient.pm b/fs_signup/FS-SignupClient/SignupClient.pm index e17c46181..1d91a418f 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'; @@ -138,6 +138,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 |