From: ivan <ivan>
Date: Tue, 17 Oct 2006 05:49:17 +0000 (+0000)
Subject: fix signup problem on IE, whew!
X-Git-Tag: freeside_1_7_2~1^2~283
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=acd0f14d8f619055b4292c178b14682974fb0099;hp=05b08ed433c104303ddbe2c2b0a12043f2431f63;p=freeside.git

fix signup problem on IE, whew!
---

diff --git a/fs_selfservice/FS-SelfService/SelfService.pm b/fs_selfservice/FS-SelfService/SelfService.pm
index c3026fa13..c4befb3ae 100644
--- a/fs_selfservice/FS-SelfService/SelfService.pm
+++ b/fs_selfservice/FS-SelfService/SelfService.pm
@@ -912,15 +912,15 @@ sub expselect {
   }
   my $return = qq!<SELECT NAME="$prefix!. qq!_month" SIZE="1">!;
   for ( 1 .. 12 ) {
-    $return .= "<OPTION";
+    $return .= qq!<OPTION VALUE="$_"!;
     $return .= " SELECTED" if $_ == $m;
     $return .= ">$_";
   }
   $return .= qq!</SELECT>/<SELECT NAME="$prefix!. qq!_year" SIZE="1">!;
   my @t = localtime;
   my $thisYear = $t[5] + 1900;
-  for ( ($thisYear > $y && $y > 0 ? $y : $thisYear) .. 2037 ) {
-    $return .= "<OPTION";
+  for ( ($thisYear > $y && $y > 0 ? $y : $thisYear) .. ($thisYear+10) ) {
+    $return .= qq!<OPTION VALUE="$_"!;
     $return .= " SELECTED" if $_ == $y;
     $return .= ">$_";
   }