1 package C4::Labels::Batch;
6 use Sys::Syslog qw(syslog);
12 use version; our $VERSION = qv('1.0.0_1');
16 my $given_params = {};
18 my @valid_template_params = (
26 foreach my $key (keys %{$given_params}) {
27 if (!(grep m/$key/, @valid_template_params)) {
28 syslog("LOG_ERR", "C4::Labels::Batch : Unrecognized parameter type of \"%s\".", $key);
34 if (!(grep m/$_/, @valid_template_params)) {
35 syslog("LOG_ERR", "C4::Labels::Batch : Unrecognized parameter type of \"%s\".", $_);
43 my ($invocant) = shift;
44 my $type = ref($invocant) || $invocant;
49 batch_stat => 0, # False if any data has changed and the db has not been updated
52 my $sth = C4::Context->dbh->prepare("SELECT MAX(batch_id) FROM labels_batches;");
54 my $batch_id = $sth->fetchrow_array;
55 $self->{'batch_id'} = ++$batch_id unless $self->{'batch_id'} != 0; # this allows batch_id to be passed in for individual label printing
62 my $item_number = shift;
63 my $query = "INSERT INTO labels_batches (batch_id, item_number, branch_code) VALUES (?,?,?);";
64 my $sth = C4::Context->dbh->prepare($query);
65 # $sth->{'TraceLevel'} = 3;
66 $sth->execute($self->{'batch_id'}, $item_number, $self->{'branch_code'});
68 syslog("LOG_ERR", "C4::Labels::Batch->add_item : Database returned the following error on attempted INSERT: %s", $sth->errstr);
71 $query = "SELECT max(label_id) FROM labels_batches WHERE batch_id=? AND item_number=? AND branch_code=?;";
72 my $sth1 = C4::Context->dbh->prepare($query);
73 $sth1->execute($self->{'batch_id'}, $item_number, $self->{'branch_code'});
74 my $label_id = $sth1->fetchrow_array;
75 push (@{$self->{'items'}}, {item_number => $item_number, label_id => $label_id});
76 $self->{'batch_stat'} = 1;
82 return $self->{$_[0]};
88 my $query = "DELETE FROM labels_batches WHERE label_id=? AND batch_id=?;";
89 my $sth = C4::Context->dbh->prepare($query);
90 # $sth->{'TraceLevel'} = 3;
91 $sth->execute($label_id, $self->{'batch_id'});
93 syslog("LOG_ERR", "C4::Labels::Batch->remove_item : Database returned the following error on attempted DELETE: %s", $sth->errstr);
96 @{$self->{'items'}} = grep{$_->{'label_id'} != $label_id} @{$self->{'items'}};
97 $self->{'batch_stat'} = 1;
101 # FIXME: This method is effectively useless the way the current add_item method is written. Ideally, the items should be added to the object
102 # and then the save method called. This does not work well in practice due to the inability to pass objects accross cgi script calls.
103 # I'm leaving it here because it should be here and for consistency's sake. -cnighswonger
105 #=head2 $batch->save()
107 # Invoking the I<save> method attempts to insert the batch into the database. The method returns
108 # the new record batch_id upon success and -1 upon failure (This avoids conflicting with a record
109 # batch_id of 1). Errors are logged to the syslog.
112 # my $exitstat = $batch->save(); # to save the record behind the $batch object
118 # foreach my $item_number (@{$self->{'items'}}) {
119 # my $query = "INSERT INTO labels_batches (batch_id, item_number, branch_code) VALUES (?,?,?);";
120 # my $sth1 = C4::Context->dbh->prepare($query);
121 # $sth1->execute($self->{'batch_id'}, $item_number->{'item_number'}, $self->{'branch_code'});
123 # syslog("LOG_ERR", "C4::Labels::Batch->save : Database returned the following error on attempted INSERT: %s", $sth1->errstr);
126 # $self->{'batch_stat'} = 1;
127 # return $self->{'batch_id'};
132 my $invocant = shift;
134 my $type = ref($invocant) || $invocant;
136 my $query = "SELECT * FROM labels_batches WHERE batch_id = ? ORDER BY label_id";
137 my $sth = C4::Context->dbh->prepare($query);
138 # $sth->{'TraceLevel'} = 3;
139 $sth->execute($opts{'batch_id'});
141 batch_id => $opts{'batch_id'},
144 while (my $record = $sth->fetchrow_hashref) {
145 $self->{'branch_code'} = $record->{'branch_code'};
146 push (@{$self->{'items'}}, {item_number => $record->{'item_number'}, label_id => $record->{'label_id'}});
147 $record_flag = 1; # true if one or more rows were retrieved
149 return -2 if $record_flag == 0; # a hackish sort of way of indicating no such record exists
151 syslog("LOG_ERR", "C4::Labels::Batch->retrieve : Database returned the following error on attempted SELECT: %s", $sth->errstr);
154 $self->{'batch_stat'} = 1;
155 bless ($self, $type);
163 my @query_params = ();
165 $self = shift; # check to see if this is a method call
166 $call_type = 'C4::Labels::Batch->delete';
167 @query_params = ($self->{'batch_id'}, $self->{'branch_code'});
171 $call_type = 'C4::Labels::Batch::delete';
172 @query_params = ($opts{'batch_id'}, $opts{'branch_code'});
174 if ($query_params[0] eq '') { # If there is no template id then we cannot delete it
175 syslog("LOG_ERR", "%s : Cannot delete batch as the batch id is invalid or non-existant.", $call_type);
178 my $query = "DELETE FROM labels_batches WHERE batch_id = ? AND branch_code =?";
179 my $sth = C4::Context->dbh->prepare($query);
180 # $sth->{'TraceLevel'} = 3;
181 $sth->execute(@query_params);
183 syslog("LOG_ERR", "%s : Database returned the following error on attempted INSERT: %s", $call_type, $sth->errstr);
189 sub remove_duplicates {
192 my $query = "DELETE FROM labels_batches WHERE label_id = ?;"; # ORDER BY timestamp ASC LIMIT ?;";
193 my $sth = C4::Context->dbh->prepare($query);
194 my @duplicate_items = grep{$seen{$_->{'item_number'}}++} @{$self->{'items'}};
195 foreach my $item (@duplicate_items) {
196 $sth->execute($item->{'label_id'});
198 syslog("LOG_ERR", "C4::Labels::Batch->remove_duplicates() : Database returned the following error on attempted DELETE for label_id %s: %s", $item->{'label_id'}, $sth->errstr);
201 $sth->finish(); # Per DBI.pm docs: "If execute() is called on a statement handle that's still active ($sth->{Active} is true) then it should effectively call finish() to tidy up the previous execution results before starting this new execution."
202 @{$self->{'items'}} = grep{$_->{'label_id'} != $item->{'label_id'}} @{$self->{'items'}}; # the correct label/item must be removed from the current batch object as well; this should be done *after* each sql DELETE in case the DELETE fails
204 return scalar(@duplicate_items);
212 C4::Labels::Batch - A class for creating and manipulating batch objects in Koha
216 This module provides methods for creating, and otherwise manipulating batch objects used by Koha to create and export labels.
222 Invoking the I<new> method constructs a new batch object with no items. It is possible to pre-populate the batch with items and a branch code by passing them
223 as in the second example below.
225 B<NOTE:> The items list must be an arrayref pointing to an array of hashes containing a key/data pair after this fashion: {item_number => item_number}. The order of
226 the array elements determines the order of the items in the batch.
229 C<my $batch = C4::Labels::Batch->new(); # Creates and returns a new batch object>
231 C<my $batch = C4::Labels::Batch->new(items => $arrayref, branch_code => branch_code) # Creates and returns a new batch object containing the items passed in
232 with the branch code passed in.>
234 B<NOTE:> This batch is I<not> written to the database until C<$batch->save()> is invoked. You have been warned!
236 =head2 $batch->add_item(item_number => $item_number, branch_code => $branch_code)
238 Invoking the I<add_item> method will add the supplied item to the batch object.
241 $batch->add_item(item_number => $item_number, branch_code => $branch_code);
243 =head2 $batch->get_attr($attribute)
245 Invoking the I<get_attr> method will return the requested attribute.
248 my @items = $batch->get_attr('items');
250 =head2 $batch->remove_item($item_number)
252 Invoking the I<remove_item> method will remove the supplied item number from the batch object.
255 $batch->remove_item($item_number);
257 =head2 C4::Labels::Batch->retrieve(batch_id => $batch_id)
259 Invoking the I<retrieve> method constructs a new batch object containing the current values for batch_id. The method returns a new object upon success and 1 upon failure.
260 Errors are logged to the syslog.
264 my $batch = C4::Labels::Batch->retrieve(batch_id => 1); # Retrieves batch 1 and returns an object containing the record
268 Invoking the delete method attempts to delete the template from the database. The method returns -1 upon failure. Errors are logged to the syslog.
269 NOTE: This method may also be called as a function and passed a key/value pair simply deleteing that batch from the database. See the example below.
272 my $exitstat = $batch->delete(); # to delete the record behind the $batch object
273 my $exitstat = C4::Labels::Batch->delete(batch_id => 1); # to delete batch 1
275 =head2 remove_duplicates()
277 Invoking the remove_duplicates method attempts to remove duplicate items in the batch from the database. The method returns the count of duplicate records removed upon
278 success and -1 upon failure. Errors are logged to the syslog.
279 NOTE: This method may also be called as a function and passed a key/value pair removing duplicates in the batch passed in. See the example below.
282 my $remove_count = $batch->remove_duplicates(); # to remove duplicates the record behind the $batch object
283 my $remove_count = C4::Labels::Batch->remove_duplicates(batch_id => 1); # to remove duplicates in batch 1
287 Chris Nighswonger <cnighswonger AT foundations DOT edu>
291 Copyright 2009 Foundations Bible College.
295 This file is part of Koha.
297 Koha is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software
298 Foundation; either version 2 of the License, or (at your option) any later version.
300 You should have received a copy of the GNU General Public License along with Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
301 Suite 330, Boston, MA 02111-1307 USA
303 =head1 DISCLAIMER OF WARRANTY
305 Koha is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
306 A PARTICULAR PURPOSE. See the GNU General Public License for more details.