|
Lines 22-27
$dbh->{RaiseError} = 1;
Link Here
|
| 22 |
$dbh->do("DELETE FROM reserves"); |
22 |
$dbh->do("DELETE FROM reserves"); |
| 23 |
$dbh->do("DELETE FROM old_reserves"); |
23 |
$dbh->do("DELETE FROM old_reserves"); |
| 24 |
|
24 |
|
|
|
25 |
local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ }; |
| 25 |
*C4::Context::userenv = \&Mock_userenv; |
26 |
*C4::Context::userenv = \&Mock_userenv; |
| 26 |
|
27 |
|
| 27 |
sub Mock_userenv { |
28 |
sub Mock_userenv { |
| 28 |
- |
|
|