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 |