[Omaha.pm] CGI.pm is your friend

[Jay Hannah]

On Mon, 15 Oct 2007, Jay Hannah wrote:
> print $q->popup_menu(-name=>'month', -values=>[undef, 1..12]);
> print $q->popup_menu(-name=>'day',   -values=>[undef, 1..31]);
> print $q->popup_menu(-name=>'year',  -values=>[undef, $year-1, $year, $year+1, $year+2 ]);

Oops! I dropped the tabindex's from the original. Should have been:

print $q->popup_menu(-name=>'month', -tabindex=>1, -values=>[undef, 1..12]);
print $q->popup_menu(-name=>'day',   -tabindex=>2, -values=>[undef, 1..31]);
print $q->popup_menu(-name=>'year',  -tabindex=>3, -values=>[undef, $year-1, $year, $year+1, $year+2 ]);

Apologies.   :)

j