|
Lines 540-546
my $error = $input->param('error');
Link Here
|
| 540 |
my $authid = $input->param('authid') =~ s/\D//gr |
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 weird characters like spaces |
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 weird characters like spaces |
| 542 |
my $op = $input->param('op'); |
542 |
my $op = $input->param('op'); |
| 543 |
my $nonav = $input->param('nonav'); |
|
|
| 544 |
my $myindex = $input->param('index'); |
543 |
my $myindex = $input->param('index'); |
| 545 |
my $linkid=$input->param('linkid'); |
544 |
my $linkid=$input->param('linkid'); |
| 546 |
my $authtypecode = $input->param('authtypecode'); |
545 |
my $authtypecode = $input->param('authtypecode'); |
|
Lines 570-576
my ($template, $loggedinuser, $cookie)
Link Here
|
| 570 |
type => "intranet", |
569 |
type => "intranet", |
| 571 |
flagsrequired => {editauthorities => 1}, |
570 |
flagsrequired => {editauthorities => 1}, |
| 572 |
}); |
571 |
}); |
| 573 |
$template->param(nonav => $nonav,index=>$myindex,authtypecode=>$authtypecode,breedingid=>$breedingid, count=>$count); |
572 |
$template->param(index=>$myindex,authtypecode=>$authtypecode,breedingid=>$breedingid, count=>$count); |
| 574 |
|
573 |
|
| 575 |
$tagslib = GetTagsLabels(1,$authtypecode); |
574 |
$tagslib = GetTagsLabels(1,$authtypecode); |
| 576 |
$mandatory_z3950 = GetMandatoryFieldZ3950($authtypecode); |
575 |
$mandatory_z3950 = GetMandatoryFieldZ3950($authtypecode); |
|
Lines 631-646
if ($op eq "cud-add") {
Link Here
|
| 631 |
duplicateauthid => $duplicateauthid, |
630 |
duplicateauthid => $duplicateauthid, |
| 632 |
duplicateauthvalue => $duplicateauthvalue->{'authorized'}->[0]->{'heading'}, |
631 |
duplicateauthvalue => $duplicateauthvalue->{'authorized'}->[0]->{'heading'}, |
| 633 |
); |
632 |
); |
| 634 |
} |
633 |
} |
| 635 |
} elsif ($op eq "cud-delete") { |
|
|
| 636 |
#------------------------------------------------------------------------------------------------------------------------------ |
| 637 |
DelAuthority({ authid => $authid }); |
| 638 |
if ($nonav){ |
| 639 |
print $input->redirect("auth_finder.pl"); |
| 640 |
}else{ |
| 641 |
print $input->redirect("authorities-home.pl?authid=0"); |
| 642 |
} |
| 643 |
exit; |
| 644 |
} else { |
634 |
} else { |
| 645 |
if ( $op eq "duplicate" ) { |
635 |
if ( $op eq "duplicate" ) { |
| 646 |
$authid = ""; |
636 |
$authid = ""; |
| 647 |
- |
|
|