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