[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.12,1.13
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.12,1.13 |
Date: |
Tue, 14 Jan 2003 08:44:01 -0800 |
Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv2476/acqui.simple
Modified Files:
addbiblio.pl
Log Message:
warn removing
Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** addbiblio.pl 19 Dec 2002 14:20:27 -0000 1.12
--- addbiblio.pl 14 Jan 2003 16:43:50 -0000 1.13
***************
*** 86,89 ****
--- 86,90 ----
my $record=-1;
$record = MARCgetbiblio($dbh,$bibid) if ($bibid);
+ #warn "1= ".$record->as_formatted;
$record = MARCfindbreeding($dbh,$isbn) if ($isbn);
my $is_a_modif=0;
***************
*** 99,105 ****
$sth->execute($oldbiblionumber);
($oldbiblioitemnumber) = $sth->fetchrow;
- warn "==>$oldbiblionumtagfield,$oldbiblionumtagsubfield";
- warn "==>$oldbiblioitemnumtagfield,$oldbiblioitemnumtagsubfield =>
$oldbiblioitemnumber";
-
}
#------------------------------------------------------------------------------------------------------------------------------
--- 100,103 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.12,1.13,
Paul POULAIN <=