$dbh->{RaiseError} = 1;
$dbh->do("TRUNCATE TABLE reserves");
$dbh->do("TRUNCATE TABLE old_reserves");
*C4::Context::userenv = \&Mock_userenv;
sub Mock_userenv {
-