|
Lines 537-543
sub build_hidden_data {
Link Here
|
| 537 |
my $input = CGI->new; |
537 |
my $input = CGI->new; |
| 538 |
my $z3950 = $input->param('z3950'); |
538 |
my $z3950 = $input->param('z3950'); |
| 539 |
my $error = $input->param('error'); |
539 |
my $error = $input->param('error'); |
| 540 |
my $authid=$input->param('authid'); # if authid exists, it's a modif, not a new authority. |
540 |
my $authid = $input->param('authid') =~ s/\D//gr |
|
|
541 |
; # if authid exists, it's a modif, not a new authority. We remove from authid all non-digit characters just in case the CGI parameter contains a weird characters like space |
| 541 |
my $op = $input->param('op'); |
542 |
my $op = $input->param('op'); |
| 542 |
my $nonav = $input->param('nonav'); |
543 |
my $nonav = $input->param('nonav'); |
| 543 |
my $myindex = $input->param('index'); |
544 |
my $myindex = $input->param('index'); |
| 544 |
- |
|
|