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