Credit card expiration year

[peter hicks <peter@libation.com>]

Here is a bit of code to automaticaly calculate CC expiration year...

<SELECT name="mv_credit_card_exp_year">
  [perl interpolate=1]
   my (@today) = localtime();
   my $html;

   for (my $i = ($today[5] + 1900); $i < ($today[5] + 1905); $i++) {
          $html .= "<OPTION [SELECTED MV_CREDIT_CARD_EXP_YEAR $i] VALUE=\"$i\">$i\n";
   }

   $html;
  [/perl]
 </SELECT>