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