From bd73a121f43bea3bf2ea576be109a680827676b9 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 2 Mar 2009 00:10:53 +0000 Subject: [PATCH] have perl signup.html use selfserice skin config too: selfservice-head, selfserfice-body_header, selfservice-body_footer, selfservice-body_bgcolor, selfservice-box_bgcolor --- fs_selfservice/FS-SelfService/cgi/signup.html | 38 +++++++++++++++++++-------- 1 file changed, 27 insertions(+), 11 deletions(-) diff --git a/fs_selfservice/FS-SelfService/cgi/signup.html b/fs_selfservice/FS-SelfService/cgi/signup.html index 81a3c76aa..1b97121c6 100755 --- a/fs_selfservice/FS-SelfService/cgi/signup.html +++ b/fs_selfservice/FS-SelfService/cgi/signup.html @@ -1,6 +1,12 @@ -<%= $agent || ( $signup_service eq 'svc_phone' ? 'ITSP' : 'ISP' ) %> Signup form - - -<%= $agent || ( $signup_service eq 'svc_phone' ? 'ITSP' : 'ISP' ) %> Signup form

+ + +<%= $OUT .= $body_header + || ''. + ( $agent || ( $signup_service eq 'svc_phone' ? 'ITSP' : 'ISP' ) ). + ' Signup form

'; +%> + <%= $error %> +
- + <%= $OUT = join("\n",map { my $method = $_ ; map { qq|| } qw / payinfo payinfo1 payinfo2 payname paystate paytype paycvv month year type / } @payby); %> @@ -39,7 +52,7 @@ Where did you hear about our service?

Contact Information - +
*Contact name
(last, first)		 , @@ -111,7 +124,7 @@ Contact Information } %>
* required fields
-
Billing information +
Billing information
<%= @@ -173,7 +186,7 @@ Contact Information my( $account, $aba ) = split('@', $payinfo); my %paybychecked = ( - 'CARD' => qq!!, + 'CARD' => '
* Card type$cardselect
* Card number
* Expration!. expselect("CARD", $paydate). qq!
* Name on card
!, 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD", $paydate). qq!
*Name on card
!, 'CHEK' => qq!Electronic check
${r}Account number Type
${r}ABA/Routing code
${r}Bank name !, 'DCHK' => qq!Electronic check
${r}Account number Type
${r}ABA/Routing code
${r}Bank name !, @@ -242,7 +255,7 @@ HTML::Widgets::SelectLayers->new(

First package -
* Card type$cardselect
* Card number
* Expration!. expselect("CARD", $paydate). qq!
* Name on card
+