View | Details | Raw Unified | Return to bug 13702
Collapse All | Expand All

(-)a/C4/Biblio.pm (-1 / +49 lines)
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
- 

Return to bug 13702