=cut
sub checkoverdues {
my $borrowernumber = shift or return;
my $borrowernumber = shift or return (0,{});
my $sth = C4::Context->dbh->prepare(
"SELECT biblio.*, items.*, issues.*,
biblioitems.volume,
-