Lines 22-32
my $builder = t::lib::TestBuilder->new;
Link Here
|
22 |
my $dbh = C4::Context->dbh; |
22 |
my $dbh = C4::Context->dbh; |
23 |
$dbh->{RaiseError} = 1; |
23 |
$dbh->{RaiseError} = 1; |
24 |
|
24 |
|
25 |
my $library = $builder->build({ |
25 |
my $branchcode = $builder->build({ source => 'Branch' })->{branchcode}; |
26 |
source => 'Branch', |
26 |
my $itemtype = $builder->build({ source => 'Itemtype' })->{itemtype}; |
27 |
}); |
|
|
28 |
|
27 |
|
29 |
my $branchcode = $library->{branchcode}; |
|
|
30 |
local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ }; |
28 |
local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ }; |
31 |
my $userenv->{branch} = $branchcode; |
29 |
my $userenv->{branch} = $branchcode; |
32 |
*C4::Context::userenv = \&Mock_userenv; |
30 |
*C4::Context::userenv = \&Mock_userenv; |
Lines 62-67
my (undef, undef, $itemnumber) = AddItem({
Link Here
|
62 |
homebranch => $branchcode, |
60 |
homebranch => $branchcode, |
63 |
holdingbranch => $branchcode, |
61 |
holdingbranch => $branchcode, |
64 |
barcode => $barcode, |
62 |
barcode => $barcode, |
|
|
63 |
itype => $itemtype |
65 |
} , $biblionumber); |
64 |
} , $biblionumber); |
66 |
|
65 |
|
67 |
# clear any holidays to avoid throwing off the suspension day |
66 |
# clear any holidays to avoid throwing off the suspension day |
Lines 102-107
is(
Link Here
|
102 |
); |
101 |
); |
103 |
DelDebarment( $debarments->[0]->{borrower_debarment_id} ); |
102 |
DelDebarment( $debarments->[0]->{borrower_debarment_id} ); |
104 |
|
103 |
|
|
|
104 |
$schema->storage->txn_rollback; |
105 |
|
105 |
|
106 |
# C4::Context->userenv |
106 |
# C4::Context->userenv |
107 |
sub Mock_userenv { |
107 |
sub Mock_userenv { |
108 |
- |
|
|