Lines 58-69
foreach my $thisauthtype (
Link Here
|
58 |
} |
58 |
} |
59 |
|
59 |
|
60 |
if ( $op eq "do_search" ) { |
60 |
if ( $op eq "do_search" ) { |
61 |
my @marclist = ($query->param('marclista'),$query->param('marclistb'),$query->param('marclistc')); |
61 |
my @marclist = ($query->param('marclist')); |
62 |
my @and_or = ($query->param('and_ora'),$query->param('and_orb'),$query->param('and_orc')); |
62 |
my @and_or = ($query->param('and_or')); |
63 |
my @excluding = ($query->param('excludinga'),$query->param('excludingb'),$query->param('excludingc'),); |
63 |
my @excluding = ($query->param('excluding'),); |
64 |
my @operator = ($query->param('operatora'),$query->param('operatorb'),$query->param('operatorc')); |
64 |
my @operator = ($query->param('operator')); |
65 |
my $orderby = $query->param('orderby'); |
65 |
my $orderby = $query->param('orderby'); |
66 |
my @value = ($query->param('valuea') || "",$query->param('valueb') || "",$query->param('valuec') || "",); |
66 |
my @value = ($query->param('value') || "",); |
67 |
|
67 |
|
68 |
$resultsperpage = $query->param('resultsperpage'); |
68 |
$resultsperpage = $query->param('resultsperpage'); |
69 |
$resultsperpage = 20 if ( !defined $resultsperpage ); |
69 |
$resultsperpage = 20 if ( !defined $resultsperpage ); |
Lines 90-104
if ( $op eq "do_search" ) {
Link Here
|
90 |
$displaynext = 1; |
90 |
$displaynext = 1; |
91 |
} |
91 |
} |
92 |
|
92 |
|
93 |
my @field_data = (); |
93 |
my @field_data = ( { term => "marclist" , val => $query->param("marclist") || ''} ); |
94 |
|
|
|
95 |
foreach my $letter (qw/a b c/){ |
96 |
push @field_data, { term => "marclist$letter" , val => $query->param("marclist$letter") || ''}; |
97 |
push @field_data, { term => "and_or$letter" , val => $query->param("and_or$letter") || ''}; |
98 |
push @field_data, { term => "excluding$letter" , val => $query->param("excluding$letter") || ''}; |
99 |
push @field_data, { term => "operator$letter" , val => $query->param("operator$letter") || ''}; |
100 |
push @field_data, { term => "value$letter" , val => $query->param("value$letter") || ''}; |
101 |
} |
102 |
|
94 |
|
103 |
my @numbers = (); |
95 |
my @numbers = (); |
104 |
|
96 |
|
105 |
- |
|
|