View | Details | Raw Unified | Return to bug 10557
Collapse All | Expand All

(-)a/C4/Bookseller.pm (-2 / +2 lines)
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
(-)a/acqui/lateorders.pl (-2 / +1 lines)
Lines 118-124 if ($op and $op eq "send_alert"){ Link Here
118
    }
118
    }
119
}
119
}
120
120
121
my @parameters = ( $delay, $branch );
121
my @parameters = ( $delay );
122
push @parameters, $estimateddeliverydatefrom_dt
122
push @parameters, $estimateddeliverydatefrom_dt
123
    ? $estimateddeliverydatefrom_dt->ymd()
123
    ? $estimateddeliverydatefrom_dt->ymd()
124
    : undef;
124
    : undef;
125
- 

Return to bug 10557