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 |
- |
|
|