[Koha-cvs] CVS: koha/C4 Biblio.pm,1.66,1.67 Breeding.pm,1.3,1.4

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv32447/C4

Modified Files:
        Biblio.pm Breeding.pm 
Log Message:
minor fixes for bilbio deletion (still buggy)

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.66
retrieving revision 1.67
diff -C2 -r1.66 -r1.67
*** Biblio.pm   17 Oct 2003 10:02:56 -0000      1.66
--- Biblio.pm   25 Oct 2003 08:46:27 -0000      1.67
***************
*** 2,5 ****
--- 2,8 ----
  # $Id$
  # $Log$
+ # Revision 1.67  2003/10/25 08:46:27  tipaul
+ # minor fixes for bilbio deletion (still buggy)
+ #
  # Revision 1.66  2003/10/17 10:02:56  tipaul
  # Indexing only words longer than 2 letters. Was >=2 before, & 2 letters 
words usually means nothing.
***************
*** 1827,1831 ****
  sub OLDdelbiblio{
    my ($dbh,$biblio)address@hidden;
- #  my $dbh=C4Connect;
    my $query="select * from biblio where biblionumber=$biblio";
    my $sth=$dbh->prepare($query);
--- 1830,1833 ----
***************
*** 1839,1843 ****
      }
      $query=~ s/\,$/\)/;
- #   print $query;
      $sth=$dbh->prepare($query);
      $sth->execute;
--- 1841,1844 ----
***************
*** 1849,1853 ****
    }
    $sth->finish;
- #  $dbh->disconnect;
  }
  
--- 1850,1853 ----
***************
*** 2126,2129 ****
--- 2126,2131 ----
    my $dbh = C4::Context->dbh;
    &OLDdelbiblio($dbh,$biblio);
+  my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblio);
+  &MARCdelbiblio($dbh,$bibid,0);
  }
  

Index: Breeding.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Breeding.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** Breeding.pm 8 Sep 2003 08:42:40 -0000       1.3
--- Breeding.pm 25 Oct 2003 08:46:28 -0000      1.4
***************
*** 72,75 ****
--- 72,76 ----
        for (my $i=0;$i<=$#marcarray;$i++) {
                my $marcrecord = 
MARC::File::USMARC::decode($marcarray[$i]."\x1D");
+               my @warnings = $marcrecord->warnings();
                if (ref($marcrecord) eq undef) {
                        $notmarcrecord++;