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

(-)a/admin/auth_tag_structure.pl (-5 / +5 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 = $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
- 

Return to bug 18376