Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

minor bugfix (for biblio modification)

Browse source
This commit is contained in:
tipaul 2002-12-19 14:20:27 +00:00
parent 747a71aa67
commit d9fa74c37e
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
acqui.simple/addbiblio.pl
View file

@ -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;