|
Lines 81-87
elsif ($op eq 'cud-delete') {
Link Here
|
| 81 |
$err = C4::Labels::Batch::delete(batch_id => $batch_id, branch_code => $branch_code); |
81 |
$err = C4::Labels::Batch::delete(batch_id => $batch_id, branch_code => $branch_code); |
| 82 |
$errtype = 'BATCH_NOT_DELETED' if $err; |
82 |
$errtype = 'BATCH_NOT_DELETED' if $err; |
| 83 |
} |
83 |
} |
| 84 |
elsif ($op eq 'cud-add') { |
84 |
elsif ($op eq 'cud-add' || $op eq 'add') { |
| 85 |
if ($number_list) { |
85 |
if ($number_list) { |
| 86 |
my @numbers_list = split /\n/, $number_list; # Entries are effectively passed in as a <cr> separated list |
86 |
my @numbers_list = split /\n/, $number_list; # Entries are effectively passed in as a <cr> separated list |
| 87 |
foreach my $number (@numbers_list) { |
87 |
foreach my $number (@numbers_list) { |
| 88 |
- |
|
|