${r}Contact name
(last, first) |
END
print < ,
END
print <
| Company | |
| ${r}Address | |
|---|
| | |
| ${r}City | | ${r}State/Country | | ${r}Zip | |
|---|
!;
my($ship_daytime,$ship_night,$ship_fax)=(
$cust_main->ship_daytime,
$cust_main->ship_night,
$cust_main->ship_fax,
);
print <Day Phone | |
| Night Phone | |
| 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! |