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