Lines 192-202
my $strsth =
Link Here
|
192 |
GROUP_CONCAT(DISTINCT items.location |
192 |
GROUP_CONCAT(DISTINCT items.location |
193 |
ORDER BY items.itemnumber SEPARATOR '|') l_location, |
193 |
ORDER BY items.itemnumber SEPARATOR '|') l_location, |
194 |
GROUP_CONCAT(DISTINCT items.itemcallnumber |
194 |
GROUP_CONCAT(DISTINCT items.itemcallnumber |
195 |
ORDER BY items.itemnumber SEPARATOR '<br/>') l_itemcallnumber, |
195 |
ORDER BY items.itemnumber SEPARATOR '|') l_itemcallnumber, |
196 |
GROUP_CONCAT(DISTINCT items.enumchron |
196 |
GROUP_CONCAT(DISTINCT items.enumchron |
197 |
ORDER BY items.itemnumber SEPARATOR '<br/>') 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 '<br/>') l_copynumber, |
199 |
ORDER BY items.itemnumber SEPARATOR '|') l_copynumber, |
200 |
biblio.title, |
200 |
biblio.title, |
201 |
biblio.author, |
201 |
biblio.author, |
202 |
count(DISTINCT items.itemnumber) as icount, |
202 |
count(DISTINCT items.itemnumber) as icount, |
Lines 251-259
while ( my $data = $sth->fetchrow_hashref ) {
Link Here
|
251 |
biblionumber => $data->{biblionumber}, |
251 |
biblionumber => $data->{biblionumber}, |
252 |
holdingbranches => [split('\|', $data->{l_holdingbranch})], |
252 |
holdingbranches => [split('\|', $data->{l_holdingbranch})], |
253 |
branch => $data->{l_branch}, |
253 |
branch => $data->{l_branch}, |
254 |
itemcallnumber => $data->{l_itemcallnumber}, |
254 |
itemcallnumber => [split('\|', $data->{l_itemcallnumber})], |
255 |
enumchron => $data->{l_enumchron}, |
255 |
enumchron => [split('\|', $data->{l_enumchron})], |
256 |
copyno => $data->{l_copynumber}, |
256 |
copyno => [split('\|', $data->{l_copynumber})], |
257 |
count => $data->{icount}, |
257 |
count => $data->{icount}, |
258 |
rcount => $data->{rcount}, |
258 |
rcount => $data->{rcount}, |
259 |
pullcount => $data->{icount} <= $data->{rcount} ? $data->{icount} : $data->{rcount}, |
259 |
pullcount => $data->{icount} <= $data->{rcount} ? $data->{icount} : $data->{rcount}, |