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

(-)a/C4/Serials.pm (-21 lines)
Lines 2520-2545 sub _numeration { Link Here
2520
    return $string;
2520
    return $string;
2521
}
2521
}
2522
2522
2523
=head2 is_barcode_in_use
2524
2525
Returns number of occurrences of the barcode in the items table
2526
Can be used as a boolean test of whether the barcode has
2527
been deployed as yet
2528
2529
=cut
2530
2531
sub is_barcode_in_use {
2532
    my $barcode = shift;
2533
    my $dbh       = C4::Context->dbh;
2534
    my $occurrences = $dbh->selectall_arrayref(
2535
        'SELECT itemnumber from items where barcode = ?',
2536
        {}, $barcode
2537
2538
    );
2539
2540
    return @{$occurrences};
2541
}
2542
2543
=head2 CloseSubscription
2523
=head2 CloseSubscription
2544
2524
2545
Close a subscription given a subscriptionid
2525
Close a subscription given a subscriptionid
2546
- 

Return to bug 21171