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

(-)a/admin/auth_tag_structure.pl (-5 / +2 lines)
Lines 160-169 if ($op eq 'add_form') { Link Here
160
# called by delete_confirm, used to effectively confirm deletion of data in DB
160
# called by delete_confirm, used to effectively confirm deletion of data in DB
161
} elsif ($op eq 'delete_confirmed') {
161
} elsif ($op eq 'delete_confirmed') {
162
    unless (C4::Context->config('demo') eq 1) {
162
    unless (C4::Context->config('demo') eq 1) {
163
        my $sth_tag = $dbh->prepare("delete from auth_tag_structure where tagfield=? and authtypecode=?");
163
        $dbh->do(q|delete from auth_tag_structure where tagfield=? and authtypecode=?|, undef, $searchfield, $authtypecode);
164
        $sth_tag->execute($searchfield,$authtypecode);
164
        $dbh->do(q|delete from auth_subfield_structure where tagfield=? and authtypecode=?|, undef, $searchfield, $authtypecode);
165
        my $sth_sub = $dbh->prepare("delete from auth_subfield_structure where tagfield=? and authtypecode=?");
166
        $sth_sub->execute($searchfield,$authtypecode);
167
    }
165
    }
168
    my $tagfield = $input->param('tagfield');
166
    my $tagfield = $input->param('tagfield');
169
    print $input->redirect("/cgi-bin/koha/admin/auth_tag_structure.pl?searchfield=$tagfield&authtypecode=$authtypecode");
167
    print $input->redirect("/cgi-bin/koha/admin/auth_tag_structure.pl?searchfield=$tagfield&authtypecode=$authtypecode");
170
- 

Return to bug 18376