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