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