From f2b3acaf7dea8c76d4393bc1de7b697915a58497 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 6 May 2004 14:56:51 +0000
Subject: [PATCH] adding table issuingrules (previously called categoryitem

---
 updater/updatedatabase | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/updater/updatedatabase b/updater/updatedatabase
index c449ac1ef9..348045ad2b 100755
--- a/updater/updatedatabase
+++ b/updater/updatedatabase
@@ -251,7 +251,7 @@ my %requirefields = (
     marc_subfield_structure =>{'seealso'  => 'char(255)'},
     bookshelf => {'owner' => 'char(80)',
     					'category' => 'char(1)',
-				}
+				},
 );
 
 my %dropable_table = (
@@ -713,6 +713,11 @@ unless ( $existingtables{'z3950servers'} ) {
     );
     $sti->execute;
 }
+unless ( $existingtables{'issuingrules'} ) {
+	$dbh->do("alter table categoryitem rename issuingrules");
+	print "renaming categoryitem\n";
+}
+
 
 #---------------------------------
 # Columns
@@ -995,6 +1000,22 @@ if ($items{'bulk'} eq "varchar(30)") {
     $sti->execute;
 }
 
+#
+# creating  index in issuingrules if needed
+#
+$sth = $dbh->prepare("show index from issuingrules");
+$sth->execute;
+my $exists=0;
+while ( my ( $table, $non_unique, $key_name, $Seq_in_index, $Column_name, $Collation, $cardinality, $sub_part, $Packed, $comment ) = $sth->fetchrow )
+{
+	if ($key_name eq 'PRIMARY') {
+		$exists=1;
+	}
+}
+print "Creating  index on z3950results\n" unless $exists;
+$dbh->do('ALTER TABLE issuingrules ADD PRIMARY KEY ( branchcode, categorycode, itemtype )') unless $exists;
+
+
 # Populate tables with required data
 
 foreach my $table ( keys %tabledata ) {
@@ -1046,6 +1067,9 @@ $sth->finish;
 exit;
 
 # $Log$
+# Revision 1.77  2004/05/06 14:56:51  tipaul
+# adding table issuingrules (previously called categoryitem
+#
 # Revision 1.76  2004/05/03 09:32:25  tipaul
 # adding printcirculationsplit parameter (already existed, but was not in systempref by defaul)
 #
-- 
2.39.5