Lines 537-543
my $authid = $input->param('authid') =~ s/\D//gr
Link Here
|
537 |
; # 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 weird characters like spaces |
537 |
; # 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 weird characters like spaces |
538 |
my $op = $input->param('op'); |
538 |
my $op = $input->param('op'); |
539 |
my $myindex = $input->param('index'); |
539 |
my $myindex = $input->param('index'); |
540 |
my $linkid = $input->param('linkid'); |
|
|
541 |
my $authtypecode = $input->param('authtypecode'); |
540 |
my $authtypecode = $input->param('authtypecode'); |
542 |
my $breedingid = $input->param('breedingid'); |
541 |
my $breedingid = $input->param('breedingid'); |
543 |
|
542 |
|
Lines 675-681
$template->param(
Link Here
|
675 |
authority_types => $authority_types, |
674 |
authority_types => $authority_types, |
676 |
authtypecode => $authtypecode, |
675 |
authtypecode => $authtypecode, |
677 |
authid => $authid, |
676 |
authid => $authid, |
678 |
linkid => $linkid, |
|
|
679 |
authtypetext => $type ? $type->authtypetext : "", |
677 |
authtypetext => $type ? $type->authtypetext : "", |
680 |
hide_marc => C4::Context->preference('hide_marc'), |
678 |
hide_marc => C4::Context->preference('hide_marc'), |
681 |
); |
679 |
); |