Lines 398-403
sub ModBiblioframework {
Link Here
|
398 |
return 1; |
398 |
return 1; |
399 |
} |
399 |
} |
400 |
|
400 |
|
|
|
401 |
=head2 Exists |
402 |
|
403 |
my $exists = C4::Biblio::Exists($biblionumber); |
404 |
if ($exists == 2) { |
405 |
print "Biblionumber $biblionumber exists in koha.biblio and koha.biblioitems"; |
406 |
} |
407 |
elsif ($exists == 1) { |
408 |
print "Biblionumber $biblionumber exists in koha.deletedbiblio and koha.deletedbiblioitems"; |
409 |
} |
410 |
else { |
411 |
print "Biblionumber $biblionumber doesn't exist in Koha DB"; |
412 |
} |
413 |
|
414 |
Finds out if the given biblionumber exists as an active Biblio or a deleted Biblio in Koha, or if it is no longer available. |
415 |
=cut |
416 |
|
417 |
sub Exists { |
418 |
my ( $biblionumber ) = @_; |
419 |
my $dbh = C4::Context->dbh; |
420 |
my $sth = $dbh->prepare( "SELECT 1 FROM biblio WHERE biblionumber=?" ); |
421 |
$sth->execute( $biblionumber ); |
422 |
my $exists = $sth->fetchrow(); |
423 |
|
424 |
unless ($exists) { |
425 |
my $deleted = C4::Biblio::IsDeleted($biblionumber); |
426 |
return $deleted; |
427 |
} |
428 |
return 2; |
429 |
} |
430 |
|
431 |
=head IsDeleted |
432 |
|
433 |
my $deleted = C4::Biblio::IsDeleted($biblionumber); |
434 |
|
435 |
@RETURNS Integer 1, if the given biblionumber exists in the koha.deletedbiblio-table. |
436 |
otherwise undef. |
437 |
|
438 |
=cut |
439 |
|
440 |
sub IsDeleted { |
441 |
my ( $biblionumber ) = @_; |
442 |
my $dbh = C4::Context->dbh; |
443 |
my $sth = $dbh->prepare( "SELECT 1 FROM deletedbiblio WHERE biblionumber=?" ); |
444 |
$sth->execute( $biblionumber ); |
445 |
my $deleted = $sth->fetchrow(); |
446 |
return $deleted if $deleted; |
447 |
return undef; |
448 |
} |
449 |
|
401 |
=head2 DelBiblio |
450 |
=head2 DelBiblio |
402 |
|
451 |
|
403 |
my $error = &DelBiblio($biblionumber); |
452 |
my $error = &DelBiblio($biblionumber); |
404 |
- |
|
|