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