[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.8,1.9

[Alan Millar]

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

Modified Files:
        marcimport.pl 
Log Message:


Add biblio using C4::Acquisitions newbiblio


Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** marcimport.pl       21 May 2002 06:17:48 -0000      1.8
--- marcimport.pl       22 May 2002 06:45:30 -0000      1.9
***************
*** 261,283 ****
  EOF
      } else {
!       my $q_title=$dbh->quote($input->param('title'));
!       my $q_subtitle=$dbh->quote($input->param('subtitle'));
!       my $q_author=$dbh->quote($input->param('author'));
!       my $q_copyrightdate=$dbh->quote($input->param('copyrightdate'));
!       my $q_seriestitle=$dbh->quote($input->param('seriestitle'));
!       $sth=$dbh->prepare("select biblionumber from biblio where 
title=$q_title and author=$q_author and copyrightdate=$q_copyrightdate and 
seriestitle=$q_seriestitle");
!       $sth->execute;
!       if ($sth->rows) {
!           ($biblionumber) = $sth->fetchrow;
!       } else {
!           $sth=$dbh->prepare("select max(biblionumber) from biblio");
!           $sth->execute;
!           ($biblionumber) = $sth->fetchrow;
!           $biblionumber++;
!           $sth=$dbh->prepare("insert into biblio (biblionumber, title, 
author, copyrightdate, seriestitle) values ($biblionumber, $q_title, $q_author, 
$q_copyrightdate, $q_seriestitle)");
!           $sth->execute;
!           $sth=$dbh->prepare("insert into bibliosubtitle 
(biblionumber,subtitle) values ($biblionumber, $q_subtitle)");
!           $sth->execute;
!       }
        $sth=$dbh->prepare("select max(biblioitemnumber) from biblioitems");
        $sth->execute;
--- 261,279 ----
  EOF
      } else {
!       use strict;
! 
!       # It doesn't exist; add it.
! 
!       $biblionumber=GetOrAddBiblio($dbh,
!               { title         =>$input->param('title'),
!                author         =>$input->param('author'),
!                copyright      =>$input->param('copyrightdate'),
!                seriestitle    =>$input->param('seriestitle'),
!                notes          =>$input->param('notes'),
!                abstract       =>$input->param('abstract'),
!                subtitle       =>$input->param('subtitle'),
!               }
!       );
! 
        $sth=$dbh->prepare("select max(biblioitemnumber) from biblioitems");
        $sth->execute;
***************
*** 395,398 ****
--- 391,430 ----
  }
  
+ #---------------------------------------
+ # Find a biblio entry, or create a new one if it doesn't exist.
+ sub GetOrAddBiblio {
+       use strict;             # in here until rest cleaned up
+       # input params
+       my (
+         $dbh,         # db handle
+         $biblio,      # hash ref to fields
+       )address@hidden;
+ 
+       # return
+       my $biblionumber;
+ 
+       my $sth;
+       
+       #-----
+       $sth=$dbh->prepare("select biblionumber 
+               from biblio 
+               where title=? and author=? 
+                 and copyrightdate=? and seriestitle=?");
+       $sth->execute(
+               $biblio->{title}, $biblio->{author}, 
+               $biblio->{copyright}, $biblio->{seriestitle} );
+       if ($sth->rows) {
+           ($biblionumber) = $sth->fetchrow;
+       } else {
+           # Doesn't exist.  Add new one.
+           $biblionumber=&newbiblio($biblio);
+           &newsubtitle($biblionumber,$biblio->{subtitle} );
+       }
+ 
+       return $biblionumber;
+ 
+ } # sub GetOrAddBiblio
+ #---------------------------------------
+ 
  if ($input->param('newitem')) {
      use strict;
***************
*** 420,423 ****
--- 452,459 ----
              if ( $error ) {
                print "<font color=red>Error: $error </font><p>\n";
+           } else {
+ 
+               print "<font color=green>Item added with barcode $barcode
+                       </font><P>\n";
              } # if error
      } # if barcode exists