+ # 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;