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