minor bugfix (for biblio modification)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index 3175d45..ca013f1 100755 (executable)
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -88,10 +88,18 @@ $record = MARCgetbiblio($dbh,$bibid) if ($bibid);
 $record = MARCfindbreeding($dbh,$isbn) if ($isbn);
 my $is_a_modif=0;
 my ($oldbiblionumtagfield,$oldbiblionumtagsubfield);
+my ($oldbiblioitemnumtagfield,$oldbiblioitemnumtagsubfield,$bibitem,$oldbiblioitemnumber);
 if ($bibid) {
        $is_a_modif=1;
-($oldbiblionumtagfield,$oldbiblionumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblionumber");
-warn "==>$oldbiblionumtagfield,$oldbiblionumtagsubfield";
+       # if it's a modif, retrieve old biblio and bibitem numbers for the future modification of old-DB.
+       ($oldbiblionumtagfield,$oldbiblionumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblionumber");
+       ($oldbiblioitemnumtagfield,$oldbiblioitemnumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblioitems.biblioitemnumber");
+       # search biblioitems value
+       my $sth=$dbh->prepare("select biblioitemnumber from biblioitems where biblionumber=?");
+       $sth->execute($oldbiblionumber);
+       ($oldbiblioitemnumber) = $sth->fetchrow;
+       warn "==>$oldbiblionumtagfield,$oldbiblionumtagsubfield";
+       warn "==>$oldbiblioitemnumtagfield,$oldbiblioitemnumtagsubfield => $oldbiblioitemnumber";
 
 }
 #------------------------------------------------------------------------------------------------------------------------------
@@ -291,6 +299,9 @@ if ($op eq "addbiblio") {
                                                        oldbiblionumber => $oldbiblionumber,
                                                        bibid => $bibid,
                                                        oldbiblionumtagfield => $oldbiblionumtagfield,
-                                                       oldbiblionumtagsubfield => $oldbiblionumtagsubfield);
+                                                       oldbiblionumtagsubfield => $oldbiblionumtagsubfield,
+                                                       oldbiblioitemnumtagfield => $oldbiblioitemnumtagfield,
+                                                       oldbiblioitemnumtagsubfield => $oldbiblioitemnumtagsubfield,
+                                                       oldbiblioitemnumber => $oldbiblioitemnumber);
 }
 print $input->header(-cookie => $cookie),$template->output;