=head1 DESCRIPTION
-
-=over2
+=over 2
=cut
$select{$value}=$desc;
}
my $CGIBorCat=CGI::scrolling_list( -name => 'Filter',
- -id => 'Filter',
+ -id => 'borcat',
-values => \@select,
-labels => \%select,
-size => 1,
$select{$value}=$desc;
}
my $CGIItemTypes=CGI::scrolling_list( -name => 'Filter',
- -id => 'Filter',
+ -id => 'itemtypes',
-values => \@select,
-labels => \%select,
-size => 1,
$select_branches{$branch} = $branches->{$branch}->{'branchname'};
}
my $CGIBranch=CGI::scrolling_list( -name => 'Filter',
- -id => 'Filter',
+ -id => 'branch',
-values => \@select_branch,
-labels => \%select_branches,
-size => 1,
-multiple => 0 );
my $CGISort1=CGI::scrolling_list( -name => 'Filter',
- -id => 'Filter',
+ -id => 'sort1',
-values => \@select,
-size => 1,
-multiple => 0 );
push @select, $value;
}
my $CGISort2=CGI::scrolling_list( -name => 'Filter',
- -id => 'Filter',
+ -id => 'sort2',
-values => \@select,
-size => 1,
-multiple => 0 );