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

Return to bug 19055