my $dropDowns = new MakeDropDowns($cgi);
$dropDowns->addDropDown("date", "Please Select Date",
{
today => 'Today',
yesterday => 'Yesterday',
everything => 'All Days',
lastweek => 'Previous 7 Days',
thismonth => 'This Month',
},
'today');
$dropDowns->addDropDown("type", "Please select display",
{
errors => "Errors",
everything => "Everything",
completed => "Completed",
},
'errors');
print "
";
# and then in the place you want them rendered:
print $dropDowns->getHtml;
####
package MakeDropDowns;
use CGI qw/-nosticky *table :all start_Tr end_Tr start_table/;
use CGI::Pretty qw/:html3/;
use POSIX;
sub new
{
my $class = shift;
my $cgi = shift;
my $self = { cgi => $cgi };
return bless($self, $class);
}
sub addDropDown
{
my $self = shift;
my $shortname = shift;
my $fullname = shift;
my $options = shift;
my $default = shift;
$self->{dropDowns}->{$shortname} = $options;
$self->{defaults}->{$shortname} = $default;
$self->{fullname}->{$shortname} = $fullname;
}
sub getHtml
{
my $self = shift;
my $htmlReturn = "";
foreach my $shortname (keys %{$self->{dropDowns}})
{
my $cgiValue = $self->{cgi}->param($shortname);
$cgiValue = $self->{defaults}->{$shortname} if defined $self->
+{defaults}->{$shortname};
my $cookie = $self->{cgi}->cookie({name=>$shortname});
$cgiValue = $cookie if $cookie;
my %searchOptions = %{$self->{dropDowns}->{$shortname}};
my @keylist = keys %searchOptions;
$htmlReturn .= start_form({name=>$shortname . 'Form', method=>
+'post', action=>$self->{cgi}->url({path_info=>1})}) .
start_table({align=>'center', cellspacing=>5, cellpadding=
+>0, border=>0}) .
Tr(
td(span({style=>'font-weight: bold'}, $self->{fullname}
+->{$shortname})),
td(popup_menu({ name => $shortname,,
values => \@keylist,
labels => \%searchOptions,
onChange => "searchChanged$shortname()"
+}))
) .
end_table() .
end_form();
}
return $htmlReturn;
}
sub getJavascript
{
my $self = shift;
my $url = $self->{cgi}->url({absolute=>1});
my $fullurl = $self->{cgi}->url({path_info=>1, query=>1});
my @lt = localtime;
my $time_t = POSIX::mktime(0, 0, -10, $lt[3]+1, $lt[4], $lt[5]);
my $cookieExpiry = POSIX::strftime("%a, %d-%b-%Y %H:%M:%S GMT", lo
+caltime($time_t));
my $output = "function setCookie(name, value, path, expires, domai
+n, secure) \n{
var curCookie = name + \"=\" + escape(value) +
\"; expires=$cookieExpiry\" +
((path) ? \"; path=\" + path : \"\") +
((domain) ? \"; domain=\" + domain : \"\") +
((secure) ? \"; secure\" : \"\");
document.cookie = curCookie;\n}\n\n";
foreach my $shortname (keys %{$self->{dropDowns}})
{
my $tmpUrl = $fullurl;
$tmpUrl =~ s/\&*$shortname=\w+(\&|$)//g;
$tmpUrl .= "?" if ($tmpUrl !~ /[?]/);
$output .= "function searchChanged$shortname() \n{
var Fong = document." . $shortname . "Form.$shortname" . "[documen
+t." . $shortname . "Form.$shortname.selectedIndex].value;
setCookie(\"$shortname\", Fong, \"$url\");
document.location.href = \"$tmpUrl&$shortname=\" + Fong; \n}\n";
}
return $output;
}
1;