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