|
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 |
- |
|
|