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