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

(-)a/C4/Reserves.pm (-29 lines)
Lines 106-112 BEGIN { Link Here
106
106
107
        &GetReserve
107
        &GetReserve
108
        &GetReservesForBranch
108
        &GetReservesForBranch
109
        &GetReservesToBranch
110
        &GetReserveCount
109
        &GetReserveCount
111
        &GetReserveInfo
110
        &GetReserveInfo
112
        &GetReserveStatus
111
        &GetReserveStatus
Lines 610-642 SELECT COUNT(*) FROM reserves WHERE biblionumber=? AND borrowernumber<>? Link Here
610
    return $fee;
609
    return $fee;
611
}
610
}
612
611
613
=head2 GetReservesToBranch
614
615
  @transreserv = GetReservesToBranch( $frombranch );
616
617
Get reserve list for a given branch
618
619
=cut
620
621
sub GetReservesToBranch {
622
    my ( $frombranch ) = @_;
623
    my $dbh = C4::Context->dbh;
624
    my $sth = $dbh->prepare(
625
        "SELECT reserve_id,borrowernumber,reservedate,itemnumber,timestamp
626
         FROM reserves
627
         WHERE priority='0'
628
           AND branchcode=?"
629
    );
630
    $sth->execute( $frombranch );
631
    my @transreserv;
632
    my $i = 0;
633
    while ( my $data = $sth->fetchrow_hashref ) {
634
        $transreserv[$i] = $data;
635
        $i++;
636
    }
637
    return (@transreserv);
638
}
639
640
=head2 GetReservesForBranch
612
=head2 GetReservesForBranch
641
613
642
  @transreserv = GetReservesForBranch($frombranch);
614
  @transreserv = GetReservesForBranch($frombranch);
643
- 

Return to bug 19055