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 |
- |
|
|