[tmp page_title]
We need some more information!
[/tmp]
__NOLEFT_TOP__
[scratch page_title]
We need to have some fields entered to be able
to process your order. Please [page ord/checkout]go back and fill out
the information.
Problem:
[perl]
my $msg = q{[subject]};
sub redo_message {
my($param,$word) = @_;
if($param =~ /mv_credit/) {
"
You need to validate your credit card information.\n";
}
elsif ($word =~ /not_a_state/i) {
return "We need a valid two-letter state code like CA.\n";
}
elsif ($word =~ /phone_day=/i) {
return "Is that really a phone number?\n";
}
elsif ($word =~ /not_a_zip_code/i) {
return "We need a zip code for UPS lookup.\n";
}
elsif ($word =~ /mv_contingent/) {
return "You need to select your method of payment.\n";
}
else { return "$param: $word\n" }
}
@msg = split /\n/, $msg;
$msg = '';
for(@msg) {
($var, $val) = split /:\s*/, $_;
$msg .= redo_message($var, $val);
}
$msg .= '
';
$msg;
[/perl]
__NOLEFT_BOTTOM__