Lines 197-202
my $strsth =
Link Here
|
197 |
ORDER BY items.itemnumber SEPARATOR '|') l_enumchron, |
197 |
ORDER BY items.itemnumber SEPARATOR '|') l_enumchron, |
198 |
GROUP_CONCAT(DISTINCT items.copynumber |
198 |
GROUP_CONCAT(DISTINCT items.copynumber |
199 |
ORDER BY items.itemnumber SEPARATOR '|') l_copynumber, |
199 |
ORDER BY items.itemnumber SEPARATOR '|') l_copynumber, |
|
|
200 |
GROUP_CONCAT(DISTINCT items.barcode |
201 |
ORDER BY items.itemnumber SEPARATOR '|') l_barcode, |
200 |
biblio.title, |
202 |
biblio.title, |
201 |
biblio.subtitle, |
203 |
biblio.subtitle, |
202 |
biblio.medium, |
204 |
biblio.medium, |
Lines 259-264
while ( my $data = $sth->fetchrow_hashref ) {
Link Here
|
259 |
itemcallnumber => [split('\|', $data->{l_itemcallnumber})], |
261 |
itemcallnumber => [split('\|', $data->{l_itemcallnumber})], |
260 |
enumchron => [split('\|', $data->{l_enumchron})], |
262 |
enumchron => [split('\|', $data->{l_enumchron})], |
261 |
copyno => [split('\|', $data->{l_copynumber})], |
263 |
copyno => [split('\|', $data->{l_copynumber})], |
|
|
264 |
barcode => [split('\|', $data->{l_barcode})], |
262 |
count => $data->{icount}, |
265 |
count => $data->{icount}, |
263 |
rcount => $data->{rcount}, |
266 |
rcount => $data->{rcount}, |
264 |
pullcount => $data->{icount} <= $data->{rcount} ? $data->{icount} : $data->{rcount}, |
267 |
pullcount => $data->{icount} <= $data->{rcount} ? $data->{icount} : $data->{rcount}, |