View | Details | Raw Unified | Return to bug 38200
Collapse All | Expand All

(-)a/authorities/authorities.pl (-12 / +1 lines)
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 632-646 if ($op eq "cud-add") { Link Here
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
- 

Return to bug 38200