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