From 6ffc27d72f9d123a964bbdb8813791618c1dafce Mon Sep 17 00:00:00 2001
From: tipaul <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.20.1