|
Lines 93-107
my $strsth =
Link Here
|
| 93 |
items.itemcallnumber, |
93 |
items.itemcallnumber, |
| 94 |
items.itemnumber, |
94 |
items.itemnumber, |
| 95 |
GROUP_CONCAT(DISTINCT items.itemcallnumber |
95 |
GROUP_CONCAT(DISTINCT items.itemcallnumber |
| 96 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as listcall, |
96 |
ORDER BY items.itemnumber SEPARATOR '|') as listcall, |
| 97 |
GROUP_CONCAT(DISTINCT homebranch |
97 |
GROUP_CONCAT(DISTINCT homebranch |
| 98 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as homebranch_list, |
98 |
ORDER BY items.itemnumber SEPARATOR '|') as homebranch_list, |
| 99 |
GROUP_CONCAT(DISTINCT holdingbranch |
99 |
GROUP_CONCAT(DISTINCT holdingbranch |
| 100 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as holdingbranch_list, |
100 |
ORDER BY items.itemnumber SEPARATOR '|') as holdingbranch_list, |
| 101 |
GROUP_CONCAT(DISTINCT items.location |
101 |
GROUP_CONCAT(DISTINCT items.location |
| 102 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as l_location, |
102 |
ORDER BY items.itemnumber SEPARATOR '|') as l_location, |
| 103 |
GROUP_CONCAT(DISTINCT items.itype |
103 |
GROUP_CONCAT(DISTINCT items.itype |
| 104 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as l_itype, |
104 |
ORDER BY items.itemnumber SEPARATOR '|') as l_itype, |
| 105 |
|
105 |
|
| 106 |
reserves.found, |
106 |
reserves.found, |
| 107 |
biblio.title, |
107 |
biblio.title, |
|
Lines 147-164
while ( my $data = $sth->fetchrow_hashref ) {
Link Here
|
| 147 |
itemnum => $data->{itemnumber}, |
147 |
itemnum => $data->{itemnumber}, |
| 148 |
biblionumber => $data->{biblionumber}, |
148 |
biblionumber => $data->{biblionumber}, |
| 149 |
holdingbranch => $data->{holdingbranch}, |
149 |
holdingbranch => $data->{holdingbranch}, |
| 150 |
homebranch_list => $data->{homebranch_list}, |
150 |
homebranch_list => [split('\|', $data->{homebranch_list})], |
| 151 |
holdingbranch_list => $data->{holdingbranch_list}, |
151 |
holdingbranch_list => [split('\|', $data->{holdingbranch_list})], |
| 152 |
branch => $data->{branch}, |
152 |
branch => $data->{branch}, |
| 153 |
itemcallnumber => $data->{itemcallnumber}, |
153 |
itemcallnumber => $data->{itemcallnumber}, |
| 154 |
location => $data->{l_location}, |
154 |
location => => [split('\|', $data->{l_location})], |
| 155 |
itype => $data->{l_itype}, |
155 |
itype => => [split('\|', $data->{l_itype})], |
| 156 |
reservecount => $data->{reservecount}, |
156 |
reservecount => $data->{reservecount}, |
| 157 |
itemcount => $data->{itemcount}, |
157 |
itemcount => $data->{itemcount}, |
| 158 |
ratiocalc => sprintf( "%.0d", $ratio_atleast1 ? ( $thisratio / $ratio ) : $thisratio ), |
158 |
ratiocalc => sprintf( "%.0d", $ratio_atleast1 ? ( $thisratio / $ratio ) : $thisratio ), |
| 159 |
thisratio => sprintf( "%.2f", $thisratio ), |
159 |
thisratio => sprintf( "%.2f", $thisratio ), |
| 160 |
thisratio_atleast1 => ( $thisratio >= 1 ) ? 1 : 0, |
160 |
thisratio_atleast1 => ( $thisratio >= 1 ) ? 1 : 0, |
| 161 |
listcall => $data->{listcall} |
161 |
listcall => [split('\|', $data->{listcall})] |
| 162 |
} |
162 |
} |
| 163 |
); |
163 |
); |
| 164 |
} |
164 |
} |