|
Lines 59-65
my $launcher = sub {
Link Here
|
| 59 |
my $op = $query->param('op'); |
59 |
my $op = $query->param('op'); |
| 60 |
# -- op could be equal to |
60 |
# -- op could be equal to |
| 61 |
# * fillinput |
61 |
# * fillinput |
| 62 |
# * do_search |
62 |
# * cud-do_search |
| 63 |
|
63 |
|
| 64 |
my $type = $query->param('type'); |
64 |
my $type = $query->param('type'); |
| 65 |
my $startfrom = $query->param('startfrom'); |
65 |
my $startfrom = $query->param('startfrom'); |
|
Lines 164-170
my $launcher = sub {
Link Here
|
| 164 |
subfield_value_z => "$subfield_value_z", |
164 |
subfield_value_z => "$subfield_value_z", |
| 165 |
); |
165 |
); |
| 166 |
############################################################### |
166 |
############################################################### |
| 167 |
} elsif ( $op eq "do_search" ) { |
167 |
} elsif ( $op eq "cud-do_search" ) { |
| 168 |
my $search = $query->param('search'); |
168 |
my $search = $query->param('search'); |
| 169 |
my $itype = $query->param('itype'); |
169 |
my $itype = $query->param('itype'); |
| 170 |
my $startfrom = $query->param('startfrom'); |
170 |
my $startfrom = $query->param('startfrom'); |
| 171 |
- |
|
|