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