[Koha-devel] CVS: koha/acqui.simple marcimport.pl,1.1,1.2

[Steve Tonnesen]

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

Modified Files:
        marcimport.pl 
Log Message:
Use MARC controlnumber as a unique identifier for MARC records, in addition
to ISBN, ISSN, and LCCN.


Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** marcimport.pl       2001/10/05 21:27:46     1.1
--- marcimport.pl       2001/11/01 05:00:41     1.2
***************
*** 88,95 ****
      my $q_origissn=$dbh->quote($input->param('origissn'));
      my $q_origlccn=$dbh->quote($input->param('origlccn'));
      my $q_isbn=$dbh->quote((($isbn) || ('NIL')));
      my $q_issn=$dbh->quote((($issn) || ('NIL')));
      my $q_lccn=$dbh->quote((($lccn) || ('NIL')));
!     $sth=$dbh->prepare("insert into marcrecorddone values ($q_origisbn, 
$q_origissn, $q_origlccn)");
      $sth->execute;
      my $sth=$dbh->prepare("select biblionumber,biblioitemnumber from 
biblioitems where issn=$q_issn or isbn=$q_isbn or lccn=$q_lccn");
--- 88,96 ----
      my $q_origissn=$dbh->quote($input->param('origissn'));
      my $q_origlccn=$dbh->quote($input->param('origlccn'));
+     my $q_origcontrolnumber=$dbh->quote($input->param('origcontrolnumber'));
      my $q_isbn=$dbh->quote((($isbn) || ('NIL')));
      my $q_issn=$dbh->quote((($issn) || ('NIL')));
      my $q_lccn=$dbh->quote((($lccn) || ('NIL')));
!     $sth=$dbh->prepare("insert into marcrecorddone values ($q_origisbn, 
$q_origissn, $q_origlccn, $q_origcontrolnumber)");
      $sth->execute;
      my $sth=$dbh->prepare("select biblionumber,biblioitemnumber from 
biblioitems where issn=$q_issn or isbn=$q_isbn or lccn=$q_lccn");