Lines 200-205
my $strsth =
Link Here
|
200 |
ORDER BY items.itemnumber SEPARATOR '|') l_enumchron, |
200 |
ORDER BY items.itemnumber SEPARATOR '|') l_enumchron, |
201 |
GROUP_CONCAT(DISTINCT items.copynumber |
201 |
GROUP_CONCAT(DISTINCT items.copynumber |
202 |
ORDER BY items.itemnumber SEPARATOR '|') l_copynumber, |
202 |
ORDER BY items.itemnumber SEPARATOR '|') l_copynumber, |
|
|
203 |
GROUP_CONCAT(DISTINCT items.barcode |
204 |
ORDER BY items.itemnumber SEPARATOR '|') l_barcode, |
203 |
biblio.title, |
205 |
biblio.title, |
204 |
biblio.copyrightdate, |
206 |
biblio.copyrightdate, |
205 |
biblioitems.publicationyear, |
207 |
biblioitems.publicationyear, |
Lines 266-271
while ( my $data = $sth->fetchrow_hashref ) {
Link Here
|
266 |
itemcallnumber => [split('\|', $data->{l_itemcallnumber})], |
268 |
itemcallnumber => [split('\|', $data->{l_itemcallnumber})], |
267 |
enumchron => [split('\|', $data->{l_enumchron})], |
269 |
enumchron => [split('\|', $data->{l_enumchron})], |
268 |
copyno => [split('\|', $data->{l_copynumber})], |
270 |
copyno => [split('\|', $data->{l_copynumber})], |
|
|
271 |
barcode => [split('\|', $data->{l_barcode})], |
269 |
count => $data->{icount}, |
272 |
count => $data->{icount}, |
270 |
rcount => $data->{rcount}, |
273 |
rcount => $data->{rcount}, |
271 |
pullcount => $data->{icount} <= $data->{rcount} ? $data->{icount} : $data->{rcount}, |
274 |
pullcount => $data->{icount} <= $data->{rcount} ? $data->{icount} : $data->{rcount}, |