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 |