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