turn attributes into checkboxes with default to all

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1226 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 838cfd9..7368de2 100755 (executable)
--- a/vhost/webpac2.cgi
+++ b/vhost/webpac2.cgi
@@ -150,7 +150,7 @@ dump_yaml( 'style', \@style );
 sub search_form {
        qq|<a name="form"></a>|,
        start_form( -action => self_url( query => 0 ) ),
-               radio_group(
+               checkbox_group(
                        -name => 'attr',
                        %$attr_labels,
 #                      -linebreak => 0,
@@ -198,7 +198,7 @@ if ( my $search = param('search') ) {
        if ( $search =~ m{(=|"|AND|OR)} ) {
                push @search, $search;
        } elsif ( my $op = param('attr_operator') ) {
-               my $attr = param('attr');
+               my $attr = param('attr') || 'all';
                my $v = $search;
                $v =~ s/^\s+//;
                warn "-- v: $v\n";