[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/misc marc_into_authority.pl
From: |
Tumer Garip |
Subject: |
[Koha-cvs] koha/misc marc_into_authority.pl |
Date: |
Sat, 20 May 2006 00:13:31 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Tumer Garip <address@hidden> 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.