Lines 100-107
my $strsth =
Link Here
|
100 |
items.itemnumber, |
100 |
items.itemnumber, |
101 |
GROUP_CONCAT(DISTINCT items.itemcallnumber |
101 |
GROUP_CONCAT(DISTINCT items.itemcallnumber |
102 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as listcall, |
102 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as listcall, |
|
|
103 |
GROUP_CONCAT(DISTINCT homebranch |
104 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as homebranch_list, |
103 |
GROUP_CONCAT(DISTINCT holdingbranch |
105 |
GROUP_CONCAT(DISTINCT holdingbranch |
104 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as listbranch, |
106 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as holdingbranch_list, |
105 |
GROUP_CONCAT(DISTINCT items.location |
107 |
GROUP_CONCAT(DISTINCT items.location |
106 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as l_location, |
108 |
ORDER BY items.itemnumber SEPARATOR '<br/>') as l_location, |
107 |
GROUP_CONCAT(DISTINCT items.itype |
109 |
GROUP_CONCAT(DISTINCT items.itype |
Lines 142-167
while ( my $data = $sth->fetchrow_hashref ) {
Link Here
|
142 |
push( |
144 |
push( |
143 |
@reservedata, |
145 |
@reservedata, |
144 |
{ |
146 |
{ |
145 |
reservedate => format_date( $data->{reservedate} ), |
147 |
reservedate => format_date( $data->{reservedate} ), |
146 |
priority => $data->{priority}, |
148 |
priority => $data->{priority}, |
147 |
name => $data->{borrower}, |
149 |
name => $data->{borrower}, |
148 |
title => $data->{title}, |
150 |
title => $data->{title}, |
149 |
subtitle => $data->{subtitle}, |
151 |
subtitle => $data->{subtitle}, |
150 |
author => $data->{author}, |
152 |
author => $data->{author}, |
151 |
itemnum => $data->{itemnumber}, |
153 |
itemnum => $data->{itemnumber}, |
152 |
biblionumber => $data->{biblionumber}, |
154 |
biblionumber => $data->{biblionumber}, |
153 |
holdingbranch => $data->{holdingbranch}, |
155 |
holdingbranch => $data->{holdingbranch}, |
154 |
listbranch => $data->{listbranch}, |
156 |
homebranch_list => $data->{homebranch_list}, |
155 |
branch => $data->{branch}, |
157 |
holdingbranch_list => $data->{holdingbranch_list}, |
156 |
itemcallnumber => $data->{itemcallnumber}, |
158 |
branch => $data->{branch}, |
157 |
location => $data->{l_location}, |
159 |
itemcallnumber => $data->{itemcallnumber}, |
158 |
itype => $data->{l_itype}, |
160 |
location => $data->{l_location}, |
159 |
reservecount => $data->{reservecount}, |
161 |
itype => $data->{l_itype}, |
160 |
itemcount => $data->{itemcount}, |
162 |
reservecount => $data->{reservecount}, |
161 |
ratiocalc => sprintf("%.0d", $ratio_atleast1 ? ($thisratio / $ratio) : $thisratio), |
163 |
itemcount => $data->{itemcount}, |
162 |
thisratio => sprintf("%.2f", $thisratio), |
164 |
ratiocalc => sprintf( "%.0d", $ratio_atleast1 ? ( $thisratio / $ratio ) : $thisratio ), |
163 |
thisratio_atleast1 => ($thisratio >= 1) ? 1 : 0, |
165 |
thisratio => sprintf( "%.2f", $thisratio ), |
164 |
listcall => $data->{listcall} |
166 |
thisratio_atleast1 => ( $thisratio >= 1 ) ? 1 : 0, |
|
|
167 |
listcall => $data->{listcall} |
165 |
} |
168 |
} |
166 |
); |
169 |
); |
167 |
} |
170 |
} |