Lines 123-146
subtest "AddReturn logging on statistics table (item-level_itypes=1)" => sub {
Link Here
|
123 |
MARC::Field->new($tagfield,'','', $tagsubfield => $blevel_itemtype ) |
123 |
MARC::Field->new($tagfield,'','', $tagsubfield => $blevel_itemtype ) |
124 |
); |
124 |
); |
125 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' ); |
125 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' ); |
126 |
my $item_with_itemtype = $builder->build({ |
126 |
my $item_with_itemtype = $builder->build( |
127 |
source => 'Item', |
127 |
{ |
128 |
value => { |
128 |
source => 'Item', |
129 |
biblionumber => $biblionumber, |
129 |
value => { |
130 |
homebranch => $branch, |
130 |
biblionumber => $biblionumber, |
131 |
holdingbranch => $branch, |
131 |
biblioitemnumber => $biblioitemnumber, |
132 |
itype => $ilevel_itemtype |
132 |
homebranch => $branch, |
|
|
133 |
holdingbranch => $branch, |
134 |
itype => $ilevel_itemtype |
135 |
} |
133 |
} |
136 |
} |
134 |
}); |
137 |
); |
135 |
my $item_without_itemtype = $builder->build({ |
138 |
my $item_without_itemtype = $builder->build( |
136 |
source => 'Item', |
139 |
{ |
137 |
value => { |
140 |
source => 'Item', |
138 |
biblionumber => $biblionumber, |
141 |
value => { |
139 |
homebranch => $branch, |
142 |
biblionumber => $biblionumber, |
140 |
holdingbranch => $branch, |
143 |
biblioitemnumber => $biblioitemnumber, |
141 |
itype => undef |
144 |
homebranch => $branch, |
|
|
145 |
holdingbranch => $branch, |
146 |
itype => undef |
147 |
} |
142 |
} |
148 |
} |
143 |
}); |
149 |
); |
144 |
|
150 |
|
145 |
my $borrower = GetMember( borrowernumber => $borrowernumber ); |
151 |
my $borrower = GetMember( borrowernumber => $borrowernumber ); |
146 |
AddIssue( $borrower, $item_with_itemtype->{ barcode } ); |
152 |
AddIssue( $borrower, $item_with_itemtype->{ barcode } ); |
147 |
- |
|
|