${r}Contact name
(last, first) |
END
print < ,
END
print <
| Company | |
| ${r}Address | |
|---|
| | |
| ${r}City | | ${r}State |
END
#false laziness with regular state
$cust_main->ship_country( $countrydefault ) unless $cust_main->ship_country;
$cust_main->ship_state( $statedefault )
unless $cust_main->ship_state
|| $cust_main->ship_country ne $countrydefault;
my($ship_county_html, $ship_state_html, $ship_country_html) =
FS::cust_main_county::regionselector( $cust_main->ship_county,
$cust_main->ship_state,
$cust_main->ship_country,
'ship_',
'changed(this)', );
print "$ship_county_html $ship_state_html";
print qq! | ${r}Zip | |
|---|
!;
my($ship_daytime,$ship_night,$ship_fax)=(
$cust_main->ship_daytime,
$cust_main->ship_night,
$cust_main->ship_fax,
);
print <${r}Country | $ship_country_html |
| $daytime_label | |
| $night_label | |
| Fax | |
END
print "${r}required fields
";
}
# billing info
sub expselect {
my $prefix = shift;
my( $m, $y ) = (0, 0);
if ( scalar(@_) ) {
my $date = shift || '01-2000';
if ( $date =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
( $m, $y ) = ( $2, $1 );
} elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
( $m, $y ) = ( $1, $3 );
} else {
die "unrecognized expiration date format: $date";
}
}
my $return = qq! |