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

(-)a/admin/marctagstructure.pl (-3 / +2 lines)
Lines 149-155 if ($op eq 'add_form') { Link Here
149
	my $repeatable       = $input->param('repeatable') ? 1 : 0;
149
	my $repeatable       = $input->param('repeatable') ? 1 : 0;
150
	my $mandatory        = $input->param('mandatory')  ? 1 : 0;
150
	my $mandatory        = $input->param('mandatory')  ? 1 : 0;
151
	my $authorised_value = $input->param('authorised_value');
151
	my $authorised_value = $input->param('authorised_value');
152
    unless (C4::Context->config('demo') == 1) {
152
    unless (C4::Context->config('demo')) {
153
        if ($input->param('modif')) {
153
        if ($input->param('modif')) {
154
            $sth = $dbh->prepare(
154
            $sth = $dbh->prepare(
155
            "UPDATE marc_tag_structure SET liblibrarian=? ,libopac=? ,repeatable=? ,mandatory=? ,authorised_value=? WHERE frameworkcode=? AND tagfield=?"
155
            "UPDATE marc_tag_structure SET liblibrarian=? ,libopac=? ,repeatable=? ,mandatory=? ,authorised_value=? WHERE frameworkcode=? AND tagfield=?"
Lines 194-200 if ($op eq 'add_form') { Link Here
194
################## DELETE_CONFIRMED ##################################
194
################## DELETE_CONFIRMED ##################################
195
# called by delete_confirm, used to effectively confirm deletion of data in DB
195
# called by delete_confirm, used to effectively confirm deletion of data in DB
196
} elsif ($op eq 'delete_confirmed') {
196
} elsif ($op eq 'delete_confirmed') {
197
	unless (C4::Context->config('demo') == 1) {
197
	unless (C4::Context->config('demo')) {
198
        my $sth1 = $dbh->prepare("DELETE FROM marc_tag_structure      WHERE tagfield=? AND frameworkcode=?");
198
        my $sth1 = $dbh->prepare("DELETE FROM marc_tag_structure      WHERE tagfield=? AND frameworkcode=?");
199
        my $sth2 = $dbh->prepare("DELETE FROM marc_subfield_structure WHERE tagfield=? AND frameworkcode=?");
199
        my $sth2 = $dbh->prepare("DELETE FROM marc_subfield_structure WHERE tagfield=? AND frameworkcode=?");
200
        $sth1->execute($searchfield, $frameworkcode);
200
        $sth1->execute($searchfield, $frameworkcode);
201
- 

Return to bug 8849