From a39e9a34c00e813b5a51ba942ab2cb1cc04715a1 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Tue, 25 Jun 2002 16:59:27 +0000
Subject: [PATCH] Fixed bug.  $sth->execute after $sti->prepare.

---
 updater/updatedatabase | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/updater/updatedatabase b/updater/updatedatabase
index 87673e1253..5d4f6eee89 100755
--- a/updater/updatedatabase
+++ b/updater/updatedatabase
@@ -201,9 +201,9 @@ while (my ($column, $type, $null, $key, $default, $extra) = $sth->fetchrow) {
 unless ($branchcategories{'categorycode'} eq 'varchar(4)') {
     print "Setting type of categorycode in branchcategories to varchar(4),\n and making the primary key.\n";
     my $sti=$dbh->prepare("alter table branchcategories change categorycode categorycode varchar(4) not null");
-    $sth->execute;
-    $sth=$dbh->prepare("alter table branchcategories add primary key (categorycode)");
-    $sth->execute;
+    $sti->execute;
+    $sti=$dbh->prepare("alter table branchcategories add primary key (categorycode)");
+    $sti->execute;
 }
 
 unless ($branchcategories{'branchcode'} eq 'varchar(4)') {
-- 
2.39.2