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