[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.11,1.12

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv31883/acqui.simple

Modified Files:
	addbiblio.pl 
Log Message:
minor bugfix (for biblio modification)

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** addbiblio.pl	12 Dec 2002 16:34:41 -0000	1.11
--- addbiblio.pl	19 Dec 2002 14:20:27 -0000	1.12
***************
*** 89,96 ****
  my $is_a_modif=0;
  my ($oldbiblionumtagfield,$oldbiblionumtagsubfield);
  if ($bibid) {
  	$is_a_modif=1;
! ($oldbiblionumtagfield,$oldbiblionumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblionumber");
! warn "==>$oldbiblionumtagfield,$oldbiblionumtagsubfield";
  
  }
--- 89,104 ----
  my $is_a_modif=0;
  my ($oldbiblionumtagfield,$oldbiblionumtagsubfield);
+ my ($oldbiblioitemnumtagfield,$oldbiblioitemnumtagsubfield,$bibitem,$oldbiblioitemnumber);
  if ($bibid) {
  	$is_a_modif=1;
! 	# 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";
  
  }
***************
*** 292,296 ****
  							bibid => $bibid,
  							oldbiblionumtagfield => $oldbiblionumtagfield,
! 							oldbiblionumtagsubfield => $oldbiblionumtagsubfield);
  }
  print $input->header(-cookie => $cookie),$template->output;
--- 300,307 ----
  							bibid => $bibid,
  							oldbiblionumtagfield => $oldbiblionumtagfield,
! 							oldbiblionumtagsubfield => $oldbiblionumtagsubfield,
! 							oldbiblioitemnumtagfield => $oldbiblioitemnumtagfield,
! 							oldbiblioitemnumtagsubfield => $oldbiblioitemnumtagsubfield,
! 							oldbiblioitemnumber => $oldbiblioitemnumber);
  }
  print $input->header(-cookie => $cookie),$template->output;