|
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 |
- |
|
|