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