diff options
| author | ivan <ivan> | 2006-10-17 05:49:17 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-10-17 05:49:17 +0000 |
| commit | acd0f14d8f619055b4292c178b14682974fb0099 (patch) | |
| tree | b021b53220294d3995f60c5805abeb1a131302a2 /fs_selfservice/FS-SelfService/SelfService.pm | |
| parent | 05b08ed433c104303ddbe2c2b0a12043f2431f63 (diff) | |
fix signup problem on IE, whew!
Diffstat (limited to 'fs_selfservice/FS-SelfService/SelfService.pm')
| -rw-r--r-- | fs_selfservice/FS-SelfService/SelfService.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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 .= ">$_"; } |