[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.2,1.6.2.3

[Alan Millar]

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

Modified Files:
      Tag: rel-1-2
        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.6.2.2
retrieving revision 1.6.2.3
diff -C2 -r1.6.2.2 -r1.6.2.3
*** marcimport.pl       28 May 2002 14:43:45 -0000      1.6.2.2
--- marcimport.pl       28 May 2002 14:45:20 -0000      1.6.2.3
***************
*** 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