Lines 1924-1929
sub GetLateOrders {
Link Here
|
1924 |
$from .= ' AND borrowers.branchcode LIKE ? '; |
1924 |
$from .= ' AND borrowers.branchcode LIKE ? '; |
1925 |
push @query_params, C4::Context->userenv->{branch}; |
1925 |
push @query_params, C4::Context->userenv->{branch}; |
1926 |
} |
1926 |
} |
|
|
1927 |
$from .= " AND orderstatus <> 4 "; |
1927 |
my $query = "$select $from $having\nORDER BY latesince, basketno, borrowers.branchcode, supplier"; |
1928 |
my $query = "$select $from $having\nORDER BY latesince, basketno, borrowers.branchcode, supplier"; |
1928 |
$debug and print STDERR "GetLateOrders query: $query\nGetLateOrders args: " . join(" ",@query_params); |
1929 |
$debug and print STDERR "GetLateOrders query: $query\nGetLateOrders args: " . join(" ",@query_params); |
1929 |
my $sth = $dbh->prepare($query); |
1930 |
my $sth = $dbh->prepare($query); |
1930 |
- |
|
|