@@ -, +, @@ --- admin/auth_tag_structure.pl | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) --- a/admin/auth_tag_structure.pl +++ a/admin/auth_tag_structure.pl @@ -160,10 +160,8 @@ if ($op eq 'add_form') { # called by delete_confirm, used to effectively confirm deletion of data in DB } elsif ($op eq 'delete_confirmed') { unless (C4::Context->config('demo') eq 1) { - my $sth_tag = $dbh->prepare("delete from auth_tag_structure where tagfield=? and authtypecode=?"); - $sth_tag->execute($searchfield,$authtypecode); - my $sth_sub = $dbh->prepare("delete from auth_subfield_structure where tagfield=? and authtypecode=?"); - $sth_sub->execute($searchfield,$authtypecode); + $dbh->do(q|delete from auth_tag_structure where tagfield=? and authtypecode=?|, undef, $searchfield, $authtypecode); + $dbh->do(q|delete from auth_subfield_structure where tagfield=? and authtypecode=?|, undef, $searchfield, $authtypecode); } my $tagfield = $input->param('tagfield'); print $input->redirect("/cgi-bin/koha/admin/auth_tag_structure.pl?searchfield=$tagfield&authtypecode=$authtypecode"); --