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