|
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}, |