# We need some more information!

We need to have some fields entered to be able to process your order. Please 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]

  Home