From 7588be4eb948426b972d0238dcdbb1537dc6a72a Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 27 Jun 2008 08:53:13 +0000 Subject: adding signup_server-service config --- fs_selfservice/DEPLOY | 3 +- fs_selfservice/FS-SelfService/SelfService.pm | 26 +++++++++++++++- fs_selfservice/FS-SelfService/cgi/signup.html | 45 ++++++++++++++++++++------- 3 files changed, 60 insertions(+), 14 deletions(-) (limited to 'fs_selfservice') diff --git a/fs_selfservice/DEPLOY b/fs_selfservice/DEPLOY index c93ed0fea..e73012f4b 100755 --- a/fs_selfservice/DEPLOY +++ b/fs_selfservice/DEPLOY @@ -10,7 +10,8 @@ cd FS-SelfService perl Makefile.PL && make && make install cd .. -( cd ..; make deploy; cd fs_selfservice ) +#( cd ..; make deploy; cd fs_selfservice ) +( cd ..; make clean; make install-perl-modules; /etc/init.d/freeside restart; cd fs_selfservice ) #cp /home/ivan/freeside/fs_selfservice/FS-SelfService/cgi/* /var/www/MyAccount #chown freeside /var/www/MyAccount/*.cgi diff --git a/fs_selfservice/FS-SelfService/SelfService.pm b/fs_selfservice/FS-SelfService/SelfService.pm index ec4668fe8..cbe7b72f6 100644 --- a/fs_selfservice/FS-SelfService/SelfService.pm +++ b/fs_selfservice/FS-SelfService/SelfService.pm @@ -58,7 +58,7 @@ $socket .= '.'.$tag if defined $tag && length($tag); 'agent_info' => 'Agent/agent_info', 'agent_list_customers' => 'Agent/agent_list_customers', ); -@EXPORT_OK = ( keys(%autoload), qw( regionselector expselect popselector domainselector) ); +@EXPORT_OK = ( keys(%autoload), qw( regionselector expselect popselector domainselector didselector) ); $ENV{'PATH'} ='/usr/bin:/usr/ucb:/bin'; $ENV{'SHELL'} = '/bin/sh'; @@ -1437,6 +1437,30 @@ sub domainselector { } +=item didselector HASHREF | LIST + +Takes as input a hashref or list of key/value pairs with the following keys: + +=over 4 + +=back + +Returns an HTML fragment for DID selection. + +=cut + +sub didselector { + my $param; + if ( ref($_[0]) ) { + $param = shift; + } else { + $param = { @_ }; + } + + return "choose your DID XXX"; + +} + =back =head1 RESELLER FUNCTIONS diff --git a/fs_selfservice/FS-SelfService/cgi/signup.html b/fs_selfservice/FS-SelfService/cgi/signup.html index 42334eade..30935f824 100755 --- a/fs_selfservice/FS-SelfService/cgi/signup.html +++ b/fs_selfservice/FS-SelfService/cgi/signup.html @@ -1,4 +1,4 @@ -<%= $agent || 'ISP' %> Signup form +<%= $agent || ( $signup_service eq 'svc_phone' ? 'ITSP' : 'ISP' ) %> Signup form