View | Details | Raw Unified | Return to bug 19025
Collapse All | Expand All

(-)a/C4/Reserves.pm (-55 lines)
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
- 

Return to bug 19025