From 6ffc27d72f9d123a964bbdb8813791618c1dafce Mon Sep 17 00:00:00 2001 From: tipaul Date: Thu, 17 Jun 2004 08:18:42 +0000 Subject: [PATCH] bugfixes --- admin/marctagstructure.pl | 4 ++-- admin/systempreferences.pl | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/admin/marctagstructure.pl b/admin/marctagstructure.pl index 495901f2f8..5c805eaf49 100755 --- a/admin/marctagstructure.pl +++ b/admin/marctagstructure.pl @@ -286,9 +286,9 @@ sub duplicate_framework { $sth_insert->execute($tagfield,$liblibrarian,$libopac,$repeatable,$mandatory,$authorised_value,$newframeworkcode); } - $sth = $dbh->prepare("select frameworkcode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder,seealso from marc_subfield_structure where frameworkcode=?"); + $sth = $dbh->prepare("select frameworkcode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,authtypecode,value_builder,seealso from marc_subfield_structure where frameworkcode=?"); $sth->execute($oldframeworkcode); - $sth_insert = $dbh->prepare("insert into marc_subfield_structure (frameworkcode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder,seealso) values (?,?,?,?,?,?,?,?,?,?,?,?,?)"); + $sth_insert = $dbh->prepare("insert into marc_subfield_structure (frameworkcode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,authtypecode,value_builder,seealso) values (?,?,?,?,?,?,?,?,?,?,?,?,?)"); while ( my ($frameworkcode, $tagfield, $tagsubfield, $liblibrarian, $libopac, $repeatable, $mandatory, $kohafield, $tab, $authorised_value, $thesaurus_category, $value_builder, $seealso) = $sth->fetchrow) { $sth_insert->execute($newframeworkcode, $tagfield, $tagsubfield, $liblibrarian, $libopac, $repeatable, $mandatory, $kohafield, $tab, $authorised_value, $thesaurus_category, $value_builder, $seealso); } diff --git a/admin/systempreferences.pl b/admin/systempreferences.pl index 36a0c448ec..c9d2b6a428 100755 --- a/admin/systempreferences.pl +++ b/admin/systempreferences.pl @@ -246,7 +246,7 @@ if ($op eq 'add_form') { } } else { unless (C4::Context->config('demo') eq 1) { - my $sth=$dbh->prepare("insert into systempreferences (variable,value,explanation,type,options) values (?,?,?)"); + my $sth=$dbh->prepare("insert into systempreferences (variable,value,explanation,type,options) values (?,?,?,?,?)"); $sth->execute($input->param('variable'), $input->param('value'), $input->param('explanation'), $input->param('preftype'), $input->param('prefoptions')); $sth->finish; } -- 2.39.5