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 = $dbh->prepare("delete from auth_tag_structure where tagfield=? and authtypecode=?"); |
163 |
my $sth_tag = $dbh->prepare("delete from auth_tag_structure where tagfield=? and authtypecode=?"); |
164 |
$sth->execute($searchfield,$authtypecode); |
164 |
$sth_tag->execute($searchfield,$authtypecode); |
165 |
my $sth = $dbh->prepare("delete from auth_subfield_structure where tagfield=? and authtypecode=?"); |
165 |
my $sth_sub = $dbh->prepare("delete from auth_subfield_structure where tagfield=? and authtypecode=?"); |
166 |
$sth->execute($searchfield,$authtypecode); |
166 |
$sth_sub->execute($searchfield,$authtypecode); |
167 |
} |
167 |
} |
168 |
my $tagfield = $input->param('tagfield'); |
168 |
my $tagfield = $input->param('tagfield'); |
169 |
print $input->redirect("/cgi-bin/koha/admin/auth_tag_structure.pl?searchfield=$tagfield&authtypecode=$authtypecode"); |
169 |
print $input->redirect("/cgi-bin/koha/admin/auth_tag_structure.pl?searchfield=$tagfield&authtypecode=$authtypecode"); |
Lines 248-253
sub StringSearch {
Link Here
|
248 |
sub duplicate_auth_framework { |
248 |
sub duplicate_auth_framework { |
249 |
my ($newauthtype,$oldauthtype) = @_; |
249 |
my ($newauthtype,$oldauthtype) = @_; |
250 |
# warn "TO $newauthtype FROM $oldauthtype"; |
250 |
# warn "TO $newauthtype FROM $oldauthtype"; |
|
|
251 |
my $dbh = C4::Context->dbh; |
251 |
my $sth = $dbh->prepare("select tagfield,liblibrarian,libopac,repeatable,mandatory,authorised_value from auth_tag_structure where authtypecode=?"); |
252 |
my $sth = $dbh->prepare("select tagfield,liblibrarian,libopac,repeatable,mandatory,authorised_value from auth_tag_structure where authtypecode=?"); |
252 |
$sth->execute($oldauthtype); |
253 |
$sth->execute($oldauthtype); |
253 |
my $sth_insert = $dbh->prepare("insert into auth_tag_structure (tagfield, liblibrarian, libopac, repeatable, mandatory, authorised_value, authtypecode) values (?,?,?,?,?,?,?)"); |
254 |
my $sth_insert = $dbh->prepare("insert into auth_tag_structure (tagfield, liblibrarian, libopac, repeatable, mandatory, authorised_value, authtypecode) values (?,?,?,?,?,?,?)"); |
254 |
- |
|
|