[Koha-cvs] koha/misc marc_into_authority.pl

[Tumer Garip]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Tumer Garip <tgarip1957 at savannah.gnu.org>	06/05/20 00:13:31

Modified files:
	misc           : marc_into_authority.pl 

Log message:
	Lock tables was repeated twice --fixed

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/misc/marc_into_authority.pl.diff?tr1=1.4&tr2=1.5&r1=text&r2=text

Patches:
Index: koha/misc/marc_into_authority.pl
diff -u koha/misc/marc_into_authority.pl:1.4 koha/misc/marc_into_authority.pl:1.5
--- koha/misc/marc_into_authority.pl:1.4	Sat May 20 00:03:14 2006
+++ koha/misc/marc_into_authority.pl	Sat May 20 00:13:31 2006
@@ -41,7 +41,6 @@
 $columns{$cols}=1;
 }
 ##Update the database if missing fields;
- $dbh->do("LOCK TABLES auth_header WRITE, auth_subfield_structure WRITE , auth_subfield_table READ");
 unless ($columns{'link'}){
 my $sth=$dbh->prepare("ALTER TABLE auth_subfield_structure ADD COLUMN `link` TINYINT(1) UNSIGNED NOT NULL DEFAULT 0 ");
 $sth->execute();
@@ -58,6 +57,7 @@
 my $sth=$dbh->prepare("ALTER TABLE auth_subfield_structure  ADD COLUMN `kohafield` VARCHAR(45)  NOT NULL  ");
 $sth->execute();
 }
+$dbh->do("UNLOCK TABLES ");
 my $sth=$dbh->prepare("select authid,authtypecode from auth_header  ");
 	$sth->execute();
  
@@ -78,7 +78,7 @@
 	print "." unless ($i % 500);
 	$i++;
 }
-$dbh->do("UNLOCK TABLES ");
+
 
 sub AUTHgetauthorityold {
 # Returns MARC::Record of the biblio passed in parameter.