|
Lines 56-61
sub new {
Link Here
|
| 56 |
my $batch_id = $sth->fetchrow_array; |
56 |
my $batch_id = $sth->fetchrow_array; |
| 57 |
$self->{'batch_id'} = ++$batch_id unless $self->{'batch_id'} != 0; # this allows batch_id to be passed in for individual label printing |
57 |
$self->{'batch_id'} = ++$batch_id unless $self->{'batch_id'} != 0; # this allows batch_id to be passed in for individual label printing |
| 58 |
bless ($self, $type); |
58 |
bless ($self, $type); |
|
|
59 |
|
| 60 |
#Delete previous placeholders to clean up data |
| 61 |
my $query = "DELETE FROM creator_batches WHERE creator = 'PLACEHOLDER';"; |
| 62 |
my $sth = C4::Context->dbh->prepare($query); |
| 63 |
$sth->execute(); |
| 64 |
|
| 65 |
#Make a placeholder to ensure the batch number is reserved and not assigned to multople clients |
| 66 |
my $query = "INSERT INTO creator_batches (batch_id, branch_code, creator) VALUES (?, ?, ?);"; |
| 67 |
my $sth = C4::Context->dbh->prepare($query); |
| 68 |
$sth->execute($self->{'batch_id'}, $self->{'branch_code'}, "PLACEHOLDER"); |
| 59 |
return $self; |
69 |
return $self; |
| 60 |
} |
70 |
} |
| 61 |
|
71 |
|
|
Lines 139-145
sub retrieve {
Link Here
|
| 139 |
$type =~ m/C4::(.+)::.+$/; |
149 |
$type =~ m/C4::(.+)::.+$/; |
| 140 |
my $number_type = ($1 eq 'Patroncards' ? 'borrower_number' : 'item_number'); |
150 |
my $number_type = ($1 eq 'Patroncards' ? 'borrower_number' : 'item_number'); |
| 141 |
my $record_flag = 0; |
151 |
my $record_flag = 0; |
| 142 |
my $query = "SELECT * FROM creator_batches WHERE batch_id = ? ORDER BY label_id"; |
152 |
#Added check to query to exclude placeholder results |
|
|
153 |
my $query = "SELECT * FROM creator_batches WHERE batch_id = ? AND NOT creator = 'PLACEHOLDER' ORDER BY label_id;"; |
| 143 |
my $sth = C4::Context->dbh->prepare($query); |
154 |
my $sth = C4::Context->dbh->prepare($query); |
| 144 |
# $sth->{'TraceLevel'} = 3; |
155 |
# $sth->{'TraceLevel'} = 3; |
| 145 |
$sth->execute($opts{'batch_id'}); |
156 |
$sth->execute($opts{'batch_id'}); |
| 146 |
- |
|
|