projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
05b08ed
)
fix signup problem on IE, whew!
author
ivan
<ivan>
Tue, 17 Oct 2006 05:49:17 +0000
(
05:49
+0000)
committer
ivan
<ivan>
Tue, 17 Oct 2006 05:49:17 +0000
(
05:49
+0000)
fs_selfservice/FS-SelfService/SelfService.pm
patch
|
blob
|
history
diff --git
a/fs_selfservice/FS-SelfService/SelfService.pm
b/fs_selfservice/FS-SelfService/SelfService.pm
index
c3026fa
..
c4befb3
100644
(file)
--- 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 ) {
}
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;
$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 .= ">$_";
}
$return .= " SELECTED" if $_ == $y;
$return .= ">$_";
}