|
Lines 42-48
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
| 42 |
); |
42 |
); |
| 43 |
|
43 |
|
| 44 |
my $err = 0; |
44 |
my $err = 0; |
| 45 |
my $errstr = undef; |
45 |
my $errtype = undef; |
| 46 |
my $duplicate_count = undef; |
46 |
my $duplicate_count = undef; |
| 47 |
my $duplicate_message = undef; |
47 |
my $duplicate_message = undef; |
| 48 |
my $db_rows = {}; |
48 |
my $db_rows = {}; |
|
Lines 72-85
if ($op eq 'remove') {
Link Here
|
| 72 |
foreach my $label_id (@label_ids) { |
72 |
foreach my $label_id (@label_ids) { |
| 73 |
$err = $batch->remove_item($label_id); |
73 |
$err = $batch->remove_item($label_id); |
| 74 |
} |
74 |
} |
| 75 |
$errstr = "item(s) not removed from batch $batch_id." if $err; |
75 |
$errtype = 'ITEM_NOT_REMOVED' if $err; |
| 76 |
# Something like this would be nice to avoid problems with the browser's 'refresh' button, but it needs an error handling mechanism... |
76 |
# Something like this would be nice to avoid problems with the browser's 'refresh' button, but it needs an error handling mechanism... |
| 77 |
# print $cgi->redirect("label-edit-batch.pl?op=edit&batch_id=$batch_id"); |
77 |
# print $cgi->redirect("label-edit-batch.pl?op=edit&batch_id=$batch_id"); |
| 78 |
# exit; |
78 |
# exit; |
| 79 |
} |
79 |
} |
| 80 |
elsif ($op eq 'delete') { |
80 |
elsif ($op eq 'delete') { |
| 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 |
$errstr = "batch $batch_id was not deleted." if $err; |
82 |
$errtype = 'BATCH_NOT_DELETED' if $err; |
| 83 |
} |
83 |
} |
| 84 |
elsif ($op eq 'add') { |
84 |
elsif ($op eq 'add') { |
| 85 |
if ($number_list) { |
85 |
if ($number_list) { |
|
Lines 103-113
elsif ($op eq 'add') {
Link Here
|
| 103 |
$err = $batch->add_item($item_number); |
103 |
$err = $batch->add_item($item_number); |
| 104 |
} |
104 |
} |
| 105 |
$batch_id = $batch->get_attr('batch_id') if $batch_id == 0; #update batch_id if we added to a new batch |
105 |
$batch_id = $batch->get_attr('batch_id') if $batch_id == 0; #update batch_id if we added to a new batch |
| 106 |
$errstr = "item(s) not added to batch $batch_id." if $err; |
106 |
$errtype = 'ITEM_NOT_ADDED' if $err; |
| 107 |
} |
107 |
} |
| 108 |
else { |
108 |
else { |
| 109 |
$err = 1; |
109 |
$err = 1; |
| 110 |
$errstr = "items(s) not added, the error was: Branch is not set, you please set your branch before adding items to a batch"; |
110 |
$errtype = 'BRANCH_NOT_SET'; |
| 111 |
} |
111 |
} |
| 112 |
} |
112 |
} |
| 113 |
elsif ($op eq 'new') { |
113 |
elsif ($op eq 'new') { |
|
Lines 118-124
elsif ($op eq 'de_duplicate') {
Link Here
|
| 118 |
$batch = C4::Labels::Batch->retrieve(batch_id => $batch_id); |
118 |
$batch = C4::Labels::Batch->retrieve(batch_id => $batch_id); |
| 119 |
$duplicate_count = $batch->remove_duplicates(); |
119 |
$duplicate_count = $batch->remove_duplicates(); |
| 120 |
$duplicate_message = 1 if $duplicate_count != -1; |
120 |
$duplicate_message = 1 if $duplicate_count != -1; |
| 121 |
$errstr = "batch $batch_id not fully de-duplicated." if $duplicate_count == -1; |
121 |
$errtype = 'BATCH_NOT_DEDUP' if $duplicate_count == -1; |
| 122 |
} |
122 |
} |
| 123 |
else { # edit |
123 |
else { # edit |
| 124 |
$batch = C4::Labels::Batch->retrieve(batch_id => $batch_id); |
124 |
$batch = C4::Labels::Batch->retrieve(batch_id => $batch_id); |
|
Lines 131-137
my $table = html_table($display_columns, $db_rows);
Link Here
|
| 131 |
|
131 |
|
| 132 |
$template->param( |
132 |
$template->param( |
| 133 |
err => $err, |
133 |
err => $err, |
| 134 |
errstr => $errstr, |
134 |
errtype => $errtype, |
| 135 |
) if ($err ne 0); |
135 |
) if ($err ne 0); |
| 136 |
|
136 |
|
| 137 |
$template->param( |
137 |
$template->param( |
| 138 |
- |
|
|