[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 = ''; $msg; [/perl]

    __NOLEFT_BOTTOM__