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