[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/acqui.simple bulkmarcimport.pl,1.7.2.1,1.7.2.2
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha/acqui.simple bulkmarcimport.pl,1.7.2.1,1.7.2.2 |
Date: |
Fri, 04 Oct 2002 23:16:14 -0700 |
Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv698
Modified Files:
Tag: arensb-context
bulkmarcimport.pl
Log Message:
Added a whole mess of FIXME comments.
Index: bulkmarcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/bulkmarcimport.pl,v
retrieving revision 1.7.2.1
retrieving revision 1.7.2.2
diff -C2 -r1.7.2.1 -r1.7.2.2
*** bulkmarcimport.pl 4 Oct 2002 02:29:04 -0000 1.7.2.1
--- bulkmarcimport.pl 5 Oct 2002 06:16:11 -0000 1.7.2.2
***************
*** 114,118 ****
- my $dbh = C4::Context->dbh;
if ($file) {
open (F, "$file");
--- 114,117 ----
***************
*** 144,151 ****
my $itemcounter=1;
$counter=0;
! while ($item=substr($directory,0,12)) {
$tag=substr($directory,0,3);
! $length=substr($directory,3,4);
! $start=substr($directory,7,6);
$directory=substr($directory,12);
$tag{$counter}=$tag;
--- 143,150 ----
my $itemcounter=1;
$counter=0;
! while ($item=substr($directory,0,12)) { # FIXME - $item never
used
$tag=substr($directory,0,3);
! $length=substr($directory,3,4); # FIXME - Unused
! $start=substr($directory,7,6); # FIXME - Unused
$directory=substr($directory,12);
$tag{$counter}=$tag;
***************
*** 455,461 ****
my $q_subclass=$dbh->quote($subclass);
my $q_publicationyear=$dbh->quote($publicationyear);
! my $q_publishercode=$dbh->quote($publishercode);
! my $q_volumedate=$dbh->quote($volumedate);
! my $q_volumeddesc=$dbh->quote($volumeddesc);
my $q_illus=$dbh->quote($illustrator);
my $q_pages=$dbh->quote($pages);
--- 454,460 ----
my $q_subclass=$dbh->quote($subclass);
my $q_publicationyear=$dbh->quote($publicationyear);
! my $q_publishercode=$dbh->quote($publishercode); # FIXME -
$publishercode undefined
! my $q_volumedate=$dbh->quote($volumedate); # FIXME - $volumedate
undefined
! my $q_volumeddesc=$dbh->quote($volumeddesc); # FIXME -
$volumeddesc undefined
my $q_illus=$dbh->quote($illustrator);
my $q_pages=$dbh->quote($pages);
***************
*** 496,499 ****
--- 495,499 ----
my $q_notes="''";
#my $replacementprice=0;
+ # FIXME - There's already a $sth in this scope.
my $sth=$dbh->prepare("select max(itemnumber) from items");
$sth->execute;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/acqui.simple bulkmarcimport.pl,1.7.2.1,1.7.2.2,
Andrew Arensburger <=