fs_signup/FS-SignupClient/cgi/signup-alternate.html

   1 <HTML><HEAD><TITLE>ISP Signup form</TITLE></HEAD>
   2 <BODY BGCOLOR="#e8e8e8"><FONT SIZE=7>ISP Signup form</FONT><BR><BR>
   3 <FONT SIZE="+1" COLOR="#ff0000"><%= $error %></FONT>
   4 <FORM NAME="dummy">
   5 <INPUT TYPE="hidden" NAME="magic" VALUE="process">
   6 <INPUT TYPE="hidden" NAME="ref" VALUE="<%= $referral_custnum %>">
   7 <INPUT TYPE="hidden" NAME="ss" VALUE="">
   8 <INPUT TYPE="hidden" NAME="agentnum" VALUE="3">
   9 Contact Information
  10 <TABLE BGCOLOR="#c0c0c0" BORDER=0 CELLSPACING=0 WIDTH="100%">
  11 <TR>
  12   <TH ALIGN="right"><font color="#ff0000">*</font>Contact name<BR>(last, first)</TH>
  13   <TD COLSPAN=5><INPUT TYPE="text" NAME="last" VALUE="<%= $last %>">,
  14                 <INPUT TYPE="text" NAME="first" VALUE="<%= $first %>"></TD>
  15 </TR>
  16 <TR>
  17   <TD ALIGN="right">Company</TD>
  18   <TD COLSPAN=5><INPUT TYPE="text" NAME="company" SIZE=70 VALUE="<%= $company %>"></TD>
  19 </TR>
  20 <TR>
  21   <TH ALIGN="right"><font color="#ff0000">*</font>Address</TH>
  22   <TD COLSPAN=5><INPUT TYPE="text" NAME="address1" SIZE=70 VALUE="<%= $address1 %>"></TD>
  23 </TR>
  24 <TR>
  25   <TD ALIGN="right">&nbsp;</TD>
  26   <TD COLSPAN=5><INPUT TYPE="text" NAME="address2" SIZE=70 VALUE="<%= $address2 %>"></TD>
  27 </TR>
  28 <TR>
  29   <TH ALIGN="right"><font color="#ff0000">*</font>City</TH>
  30   <TD><INPUT TYPE="text" NAME="city" VALUE="<%= $city %>"></TD>
  31   <TH ALIGN="right"><font color="#ff0000">*</font>State/Country</TH>
  32   <TD><SELECT NAME="state" SIZE="1">
  33
  34   <%=
  35     foreach ( @{$locales} ) {
  36       my $value = $_->{'state'};
  37       $value .= ' ('. $_->{'county'}. ')' if $_->{'county'};
  38       $value .= ' / '. $_->{'country'};
  39
  40       $OUT .= qq(<OPTION VALUE="$value");
  41       $OUT .= ' SELECTED' if ( $state eq $_->{'state'}
  42                                && $county eq $_->{'county'}
  43                                && $country eq $_->{'country'}
  44                              );
  45       $OUT .= ">$value</OPTION>";
  46     }
  47   %>
  48
  49   </SELECT></TD>
  50   <TH><font color="#ff0000">*</font>Zip</TH>
  51   <TD><INPUT TYPE="text" NAME="zip" SIZE=10 VALUE="<%= $zip %>"></TD>
  52 </TR>
  53 <TR>
  54   <TD ALIGN="right">Day Phone</TD>
  55   <TD COLSPAN=5><INPUT TYPE="text" NAME="daytime" VALUE="<%= $daytime %>" SIZE=18></TD>
  56 </TR>
  57 <TR>
  58   <TD ALIGN="right">Night Phone</TD>
  59   <TD COLSPAN=5><INPUT TYPE="text" NAME="night" VALUE="<%= $night %>" SIZE=18></TD>
  60 </TR>
  61 <TR>
  62   <TD ALIGN="right">Fax</TD>
  63   <TD COLSPAN=5><INPUT TYPE="text" NAME="fax" VALUE="<%= $fax %>" SIZE=12></TD>
  64 </TR>
  65 </TABLE><font color="#ff0000">*</font> required fields<BR>
  66
  67 <BR><BR>
  68 <TABLE BGCOLOR="#c0c0c0" BORDER=0 CELLSPACING=0>
  69 <TR>
  70   <TH ALIGN="right"><font color="#ff0000">*</font>Username</TH>
  71   <TD><INPUT TYPE="text" NAME="username" VALUE="<%= $username %>"></TD>
  72 </TR>
  73 <TR>
  74   <TH ALIGN="right"><font color="#ff0000">*</font>Password</TH>
  75   <TD><INPUT TYPE="password" NAME="_password" VALUE="<%= $password %>"></TD>
  76 </TR>
  77 <TR>
  78   <TH ALIGN="right"><font color="#ff0000">*</font>Re-enter Password</TH>
  79   <TD><INPUT TYPE="password" NAME="_password2" VALUE="<%= $password2 %>"></TD>
  80 </TR>
  81
  82 <%= if ( $init_data->{'security_phrase'} ) {
  83       <<ENDOUT;
  84 <TR>
  85   <TD ALIGN="right">Security Phrase</TD>
  86   <TD><INPUT TYPE="text" NAME="sec_phrase" VALUE="$sec_phrase">
  87   </TD>
  88 </TR>
  89 ENDOUT
  90     } else {
  91       '<INPUT TYPE="hidden" NAME="sec_phrase" VALUE="">';
  92     }
  93 %>
  94
  95 <%= if ( scalar(@$pops) ) {
  96       '<TR><TD ALIGN="right">Access number</TD><TD>'.
  97            popselector($popnum). '</TD></TR>';
  98     } else {
  99       popselector($popnum);
 100     }
 101 %>
 102
 103 </TABLE><font color="#ff0000">*</font> required fields
 104
 105 <BR><BR>First package
 106
 107   <%= use Tie::IxHash;
 108       my %pkgpart2payby = map { $_->{pkgpart} => $_->{payby}[0] } @{$packages};
 109       tie my %options, 'Tie::IxHash',
 110         '' => '(none)',
 111         map { $_->{pkgpart} => $_->{pkg} }
 112           sort { $a->{recur} <=> $b->{recur} }
 113             @{$packages}
 114       ;
 115
 116       use HTML::Widgets::SelectLayers 0.02;
 117       my @form_text = qw( magic ref ss agentnum
 118                           last first company address1 address2
 119                           city zip daytime night fax
 120                           username _password _password2 sec_phrase );
 121       my @form_select = qw( state ); #county country
 122       if ( scalar(@$pops) == 0 or scalar(@$pops) == 1 ) {
 123         push @form_text, 'popnum',
 124       } else {
 125         push @form_select, 'popnum',
 126       }
 127       my $widget = new HTML::Widgets::SelectLayers(
 128         options => \%options,
 129         selected_layer => $pkgpart,
 130         form_name => 'dummy',
 131         form_action => $self_url,
 132         form_text => \@form_text,
 133         form_select => \@form_select,
 134         layer_callback => sub {
 135           my $layer = shift;
 136           my $html = qq( <INPUT TYPE="hidden" NAME="pkgpart" VALUE="$layer">);
 137
 138           if ( $pkgpart2payby{$layer} eq 'BILL' ) {
 139             $html .= <<ENDOUT;
 140 <INPUT TYPE="hidden" NAME="payby" VALUE="BILL">
 141 <INPUT TYPE="hidden" NAME="invoicing_list_POST" VALUE="">
 142 <INPUT TYPE="hidden" NAME="BILL_payinfo" VALUE="">
 143 <INPUT TYPE="hidden" NAME="BILL_month" VALUE="12">
 144 <INPUT TYPE="hidden" NAME="BILL_year" VALUE="2037">
 145 <INPUT TYPE="hidden" NAME="BILL_payname" VALUE="">
 146 <BR><BR><INPUT TYPE="submit" VALUE="Signup">
 147 ENDOUT
 148           } elsif ( $pkgpart2payby{$layer} eq 'CARD' ) {
 149             my $postal_checked = '';
 150             my @invoicing_list = split(', ', $invoicing_list );
 151             $postal_checked = 'CHECKED'
 152               if ! @invoicing_list || grep { $_ eq 'POST' } @invoicing_list;
 153
 154             $invoicing_list= join(', ', grep { $_ ne 'POST' } @invoicing_list );
 155
 156             my $expselect = expselect("CARD", $paydate);
 157
 158             my $cardselect = '<SELECT NAME="CARD_type"><OPTION></OPTION>';
 159             my %types = (
 160                           'VISA' => 'VISA card',
 161                           'MasterCard' => 'MasterCard',
 162                           'Discover' => 'Discover card',
 163                           'American Express' => 'American Express card',
 164                         );
 165             foreach ( keys %types ) {
 166               $selected =
 167                 $cgi->param('CARD_type') eq $types{$_} ? 'SELECTED' : '';
 168               $cardselect .=
 169                 qq!<OPTION $selected VALUE="$types{$_}">$_</OPTION>!;
 170             }
 171             $cardselect .= '</SELECT>';
 172
 173             $html .= <<ENDOUT;
 174 <INPUT TYPE="hidden" NAME="payby" VALUE="CARD">
 175 <BR><BR>Billing information
 176 <TABLE BGCOLOR="#c0c0c0" BORDER=0 CELLSPACING=0>
 177 <INPUT TYPE="hidden" NAME="invoicing_list_POST" VALUE="">
 178 <TR>
 179   <TD ALIGN="right">Email statement to </TD>
 180   <TD><INPUT TYPE="text" NAME="invoicing_list" VALUE="$invoicing_list"></TD>
 181 </TR>
 182 <TR>
 183   <TH ALIGN="right"><font color="#ff0000">*</font>Credit card type</TH>
 184   <TD>$cardselect</TD>
 185 </TR>
 186 <TR>
 187   <TH ALIGN="right"><font color="#ff0000">*</font>Card number</TH>
 188   <TD><INPUT TYPE="text" NAME="CARD_payinfo" VALUE="$payinfo" MAXLENGTH=19></TD>
 189 </TR>
 190 <TR>
 191   <TH ALIGN="right"><font color="#ff0000">*</font>*</font>Exp</TH>
 192   <TD>$expselect</TD>
 193 </TR>
 194 <TR>
 195   <TH ALIGN="right"><font color="#ff0000">*</font>Name on card</TH>
 196   <TD><INPUT TYPE="text" NAME="CARD_payname" VALUE="$payname"></TD>
 197 </TR>
 198 </TABLE>
 199 <font color="#ff0000">*</font> required fields
 200 <BR><BR><INPUT TYPE="submit" VALUE="Signup">
 201 ENDOUT
 202           } else {
 203             $html = <<ENDOUT;
 204 <BR>Please select a package.<BR>
 205 ENDOUT
 206
 207           }
 208
 209           $html;
 210
 211         },
 212       );
 213
 214       $widget->html;
 215
 216
 217  %>
 218 </BODY></HTML>