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

(-)a/C4/Bookseller.pm (-2 / +2 lines)
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
(-)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