[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin koha2marclinks.pl,1.8,1.8.2.1
From: |
MJ Ray |
Subject: |
[Koha-cvs] CVS: koha/admin koha2marclinks.pl,1.8,1.8.2.1 |
Date: |
Tue, 23 Dec 2003 09:52:07 -0800 |
Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv22063/admin
Modified Files:
Tag: rel_2_0
koha2marclinks.pl
Log Message:
DBI call fix for bug 662
Index: koha2marclinks.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/koha2marclinks.pl,v
retrieving revision 1.8
retrieving revision 1.8.2.1
diff -C2 -r1.8 -r1.8.2.1
*** koha2marclinks.pl 2 Jul 2003 13:51:31 -0000 1.8
--- koha2marclinks.pl 23 Dec 2003 17:52:04 -0000 1.8.2.1
***************
*** 64,69 ****
for (my $i=0;$i<=9;$i++) {
! my $sth2=$dbh->prepare("select
tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where
tagfield like '$i%'");
! $sth2->execute;
my @marcarray;
push @marcarray," ";
--- 64,69 ----
for (my $i=0;$i<=9;$i++) {
! my $sth2=$dbh->prepare("select
tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where
tagfield like ?");
! $sth2->execute("$i%");
my @marcarray;
push @marcarray," ";
***************
*** 106,111 ****
$fields{$kohafield}->{liblibrarian} = $liblibrarian;
}
! my $sth2=$dbh->prepare("SHOW COLUMNS from $tablename");
! $sth2->execute;
my $toggle="white";
--- 106,112 ----
$fields{$kohafield}->{liblibrarian} = $liblibrarian;
}
! #XXX: This might not work. Maybe should use a DBI call instead of SHOW
COLUMNS
! my $sth2=$dbh->prepare("SHOW COLUMNS from ?");
! $sth2->execute($tablename);
my $toggle="white";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin koha2marclinks.pl,1.8,1.8.2.1,
MJ Ray <=