|
Lines 108-114
BEGIN {
Link Here
|
| 108 |
&GetReservesForBranch |
108 |
&GetReservesForBranch |
| 109 |
&GetReservesToBranch |
109 |
&GetReservesToBranch |
| 110 |
&GetReserveCount |
110 |
&GetReserveCount |
| 111 |
&GetReserveInfo |
|
|
| 112 |
&GetReserveStatus |
111 |
&GetReserveStatus |
| 113 |
|
112 |
|
| 114 |
&GetOtherReserves |
113 |
&GetOtherReserves |
|
Lines 1231-1289
sub ModReserveMinusPriority {
Link Here
|
| 1231 |
_FixPriority({ reserve_id => $reserve_id, rank => '0' }); |
1230 |
_FixPriority({ reserve_id => $reserve_id, rank => '0' }); |
| 1232 |
} |
1231 |
} |
| 1233 |
|
1232 |
|
| 1234 |
=head2 GetReserveInfo |
|
|
| 1235 |
|
| 1236 |
&GetReserveInfo($reserve_id); |
| 1237 |
|
| 1238 |
Get item and borrower details for a current hold. |
| 1239 |
Current implementation this query should have a single result. |
| 1240 |
|
| 1241 |
=cut |
| 1242 |
|
| 1243 |
sub GetReserveInfo { |
| 1244 |
my ( $reserve_id ) = @_; |
| 1245 |
my $dbh = C4::Context->dbh; |
| 1246 |
my $strsth="SELECT |
| 1247 |
reserve_id, |
| 1248 |
reservedate, |
| 1249 |
reservenotes, |
| 1250 |
reserves.borrowernumber, |
| 1251 |
reserves.biblionumber, |
| 1252 |
reserves.branchcode, |
| 1253 |
reserves.waitingdate, |
| 1254 |
notificationdate, |
| 1255 |
reminderdate, |
| 1256 |
priority, |
| 1257 |
found, |
| 1258 |
firstname, |
| 1259 |
surname, |
| 1260 |
phone, |
| 1261 |
email, |
| 1262 |
address, |
| 1263 |
address2, |
| 1264 |
cardnumber, |
| 1265 |
city, |
| 1266 |
zipcode, |
| 1267 |
biblio.title, |
| 1268 |
biblio.author, |
| 1269 |
items.holdingbranch, |
| 1270 |
items.itemcallnumber, |
| 1271 |
items.itemnumber, |
| 1272 |
items.location, |
| 1273 |
barcode, |
| 1274 |
notes |
| 1275 |
FROM reserves |
| 1276 |
LEFT JOIN items USING(itemnumber) |
| 1277 |
LEFT JOIN borrowers USING(borrowernumber) |
| 1278 |
LEFT JOIN biblio ON (reserves.biblionumber=biblio.biblionumber) |
| 1279 |
WHERE reserves.reserve_id = ?"; |
| 1280 |
my $sth = $dbh->prepare($strsth); |
| 1281 |
$sth->execute($reserve_id); |
| 1282 |
|
| 1283 |
my $data = $sth->fetchrow_hashref; |
| 1284 |
return $data; |
| 1285 |
} |
| 1286 |
|
| 1287 |
=head2 IsAvailableForItemLevelRequest |
1233 |
=head2 IsAvailableForItemLevelRequest |
| 1288 |
|
1234 |
|
| 1289 |
my $is_available = IsAvailableForItemLevelRequest($item_record,$borrower_record); |
1235 |
my $is_available = IsAvailableForItemLevelRequest($item_record,$borrower_record); |
| 1290 |
- |
|
|