From: ivan <ivan>
Date: Fri, 19 Sep 2003 12:19:23 +0000 (+0000)
Subject: fix backwards-compatibility for signup server
X-Git-Tag: NET_WHOIS_RAW_0_31~396
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=b7bd75e83a0a63015579464541dba5b995ae6ee4

fix backwards-compatibility for signup server
---

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