Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Use MARC controlnumber as a unique identifier for MARC records, in addition

Browse source 
to ISBN, ISSN, and LCCN.
This commit is contained in:
tonnesen 2001-11-01 05:00:41 +00:00
parent aa97d73b39
commit d89391dbd8
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
acqui.simple/marcimport.pl
View file

@ -87,10 +87,11 @@ if ($input->param('insertnewrecord')) {
my $q_origisbn=$dbh->quote($input->param('origisbn'));
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)");
$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");
$sth->execute;