fs_selfservice/FS-SelfService/cgi/contact.html

   1 <TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0>
   2
   3 <TR>
   4   <TH ALIGN="right"><%=$r%>Contact&nbsp;name<BR>(last,&nbsp;first)</TH>
   5   <TD COLSPAN=5>
   6     <INPUT TYPE="text" NAME="<%=$pre%>last" VALUE="<%= encode_entities(${$pre.'last'}) %>" onChange="<%= $onchange %>" <%=$disabled%>> ,
   7     <INPUT TYPE="text" NAME="<%=$pre%>first" VALUE="<%= encode_entities(${$pre.'first'}) %>" onChange="<%= $onchange %>" <%=$disabled%>>
   8   </TD>
   9 </TR>
  10
  11 <TR>
  12   <TD ALIGN="right">Company</TD>
  13   <TD COLSPAN=7>
  14     <INPUT TYPE="text" NAME="<%=$pre%>company" VALUE="<%= encode_entities(${$pre.'company'}) %>" SIZE=70 onChange="<%= $onchange %>" <%=$disabled%>>
  15   </TD>
  16 </TR>
  17
  18 <TR>
  19   <TH ALIGN="right"><%=$r%>Address</TH>
  20   <TD COLSPAN=7>
  21     <INPUT TYPE="text" NAME="<%=$pre%>address1" VALUE="<%= encode_entities(${$pre.'address1'}) %>" SIZE=70 onChange="<%= $onchange %>" <%=$disabled%>>
  22   </TD>
  23 </TR>
  24
  25 <TR>
  26   <TD ALIGN="right">
  27     <%=
  28       my $style =
  29         ( $disabled
  30           || !$require_address2
  31           || ( !$pre && $ship_last )
  32         )
  33           ? 'visibility:hidden'
  34           : '';
  35
  36       $OUT .= qq!<FONT ID="${pre}address2_required" color="#ff0000" STYLE="$style">*</FONT>&nbsp;<FONT ID="${pre}address2_label" STYLE="$style"><B>Unit&nbsp;#</B></FONT>!;
  37     %>
  38   </TD>
  39   <TD COLSPAN=7>
  40     <INPUT TYPE="text" NAME="<%=$pre%>address2" VALUE="<%= encode_entities(${$pre.'address2'}) %>" SIZE=70 onChange="<%= $onchange %>" <%=$disabled%>>
  41   </TD>
  42 </TR>
  43
  44 <TR>
  45   <%=
  46     ($county_html, $state_html, $country_html, $city_html) =
  47       FS::SelfService::regionselector( {
  48         prefix           => $pre,
  49         selected_city    => ${$pre.'city'},
  50         selected_county  => ${$pre.'county'},
  51         selected_state   => ${$pre.'state'},
  52         selected_country => ${$pre.'country'},
  53         default_state    => $statedefault,
  54         default_country  => $countrydefault,
  55         locales          => \@cust_main_county,
  56       } );
  57
  58   $OUT .= qq!<TH ALIGN="right">${r}City</TH>!;
  59   $OUT .= qq!<TD>$city_html</TD>!;
  60   $OUT .= qq!<TH ALIGN="right">${r}State/County</TH>!;
  61   $OUT .= qq!<TD>$county_html $state_html</TD>!;
  62   $OUT .= qq!<TH>${r}Zip</TH>!;
  63   $OUT .= qq!<TD><INPUT TYPE="text" NAME="${pre}zip" VALUE="${$pre.'zip'}" SIZE=10 onChange="$onchange" $disabled></TD>!;
  64   $OUT .= qq!</TR>!;
  65   $OUT .= qq!<TR>!;
  66   $OUT .= qq!<TH ALIGN="right">${r}Country</TH>!;
  67   $OUT .= qq!<TD COLSPAN=5>$country_html</TD>!;
  68   %>
  69 </TR>
  70
  71 <SCRIPT>
  72   <%=
  73     if ( $disabled ) {
  74       $OUT .= qq!var what = document.getElementById("${pre}city");!;
  75       for (qw( city county state country ) ) {
  76         $OUT .= "what.form.$pre$_.disabled = true;";
  77         $OUT .= "what.form.$pre$_.style.backgroundColor = '#dddddd';";
  78       }
  79     }else{
  80       '';
  81     }
  82   %>
  83 </SCRIPT>
  84
  85 <TR>
  86   <TD ALIGN="right">Day Phone</TD>
  87   <TD COLSPAN=5>
  88     <INPUT TYPE="text" NAME="<%=$pre%>daytime" VALUE="<%= ${$pre.'daytime'} %>" SIZE=18 onChange="<%= $onchange %>" <%=$disabled%>>
  89   </TD>
  90 </TR>
  91
  92 <TR>
  93   <TD ALIGN="right">Night Phone</TD>
  94   <TD COLSPAN=5>
  95     <INPUT TYPE="text" NAME="<%=$pre%>night" VALUE="<%= ${$pre.'night'} %>" SIZE=18 onChange="<%= $onchange %>" <%=$disabled%>>
  96   </TD>
  97 </TR>
  98
  99 <TR>
 100   <TD ALIGN="right">Fax</TD>
 101   <TD COLSPAN=5>
 102     <INPUT TYPE="text" NAME="<%=$pre%>fax" VALUE="<%= ${$pre.'fax'} %>" SIZE=12 onChange="<%= $onchange %>" <%=$disabled%>>
 103   </TD>
 104 </TR>
 105
 106 </TABLE>
 107 <%=$r%>required fields<BR>
 108
 109 <!--
 110 #my($county_html, $state_html, $country_html) =
 111 #  FS::cust_main_county::regionselector( $cust_main->get($pre.'county'),
 112 #                                        $cust_main->get($pre.'state'),
 113 #                                        $cust_main->get($pre.'country'),
 114 #                                        $pre,
 115 #                                        $onchange,
 116 #                                        $disabled,
 117 #                                      );
 118
 119 my %select_hash = (
 120   'county'   => ${$pre.'county'},
 121   'state'    => ${$pre.'state'},
 122   'country'  => ${$pre.'country'},
 123   'prefix'   => $pre,
 124   'onchange' => $onchange,
 125   'disabled' => $disabled,
 126 );
 127
 128 my @counties = counties( ${$pre.'state'},
 129                          ${$pre.'country'},
 130                        );
 131 my $county_style = scalar(@counties) > 1 ? '' : 'STYLE="visibility:hidden"';
 132
 133 my $r = qq!<font color="#ff0000">*</font>&nbsp;!;
 134 -->