|
Lines 98-111
sub GetBookSellerFromId {
Link Here
|
| 98 |
|
98 |
|
| 99 |
=head2 GetBooksellersWithLateOrders |
99 |
=head2 GetBooksellersWithLateOrders |
| 100 |
|
100 |
|
| 101 |
%results = GetBooksellersWithLateOrders($delay); |
101 |
%results = GetBooksellersWithLateOrders( $delay, $estimateddeliverydatefrom, $estimateddeliverydateto ); |
| 102 |
|
102 |
|
| 103 |
Searches for suppliers with late orders. |
103 |
Searches for suppliers with late orders. |
| 104 |
|
104 |
|
| 105 |
=cut |
105 |
=cut |
| 106 |
|
106 |
|
| 107 |
sub GetBooksellersWithLateOrders { |
107 |
sub GetBooksellersWithLateOrders { |
| 108 |
my ( $delay, $branch, $estimateddeliverydatefrom, $estimateddeliverydateto ) = @_; # FIXME: Branch argument unused. |
108 |
my ( $delay, $estimateddeliverydatefrom, $estimateddeliverydateto ) = @_; |
| 109 |
my $dbh = C4::Context->dbh; |
109 |
my $dbh = C4::Context->dbh; |
| 110 |
|
110 |
|
| 111 |
# FIXME NOT quite sure that this operation is valid for DBMs different from Mysql, HOPING so |
111 |
# FIXME NOT quite sure that this operation is valid for DBMs different from Mysql, HOPING so |