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