Lines 80-87
my $branch = $test_line->girfield('branch');
Link Here
|
80 |
is( $branch, 'ELIB', "branch returned" ); |
80 |
is( $branch, 'ELIB', "branch returned" ); |
81 |
my $fund_allocation = $test_line->girfield('fund_allocation'); |
81 |
my $fund_allocation = $test_line->girfield('fund_allocation'); |
82 |
is( $fund_allocation, '660BOO_2013', "fund_allocation returned" ); |
82 |
is( $fund_allocation, '660BOO_2013', "fund_allocation returned" ); |
83 |
my $collection_code = $test_line->girfield('collection_code'); |
83 |
my $sequence_code = $test_line->girfield('sequence_code'); |
84 |
is( $collection_code, 'EBOO', "collection_code returned" ); |
84 |
is( $sequence_code, 'EBOO', "sequence_code returned" ); |
85 |
|
85 |
|
86 |
#my $shelfmark = $test_line->girfield('shelfmark'); |
86 |
#my $shelfmark = $test_line->girfield('shelfmark'); |
87 |
#my $classification = $test_line->girfield('classification'); |
87 |
#my $classification = $test_line->girfield('classification'); |
Lines 118-125
is( $y, 'REF', 'Copy fund returned' );
Link Here
|
118 |
$y = $ol->girfield( 'branch', 4 ); |
118 |
$y = $ol->girfield( 'branch', 4 ); |
119 |
is( $y, 'SOU', 'Copy Branch returned' ); |
119 |
is( $y, 'SOU', 'Copy Branch returned' ); |
120 |
|
120 |
|
121 |
$y = $ol->girfield( 'collection_code', 4 ); |
121 |
$y = $ol->girfield( 'sequence_code', 4 ); |
122 |
is( $y, 'ANF', 'Collection code returned' ); |
122 |
is( $y, 'ANF', 'Sequence code returned' ); |
123 |
|
123 |
|
124 |
$y = $ol->girfield( 'stock_category', 4 ); |
124 |
$y = $ol->girfield( 'stock_category', 4 ); |
125 |
is( $y, 'RS', 'Copy stock category returned' ); |
125 |
is( $y, 'RS', 'Copy stock category returned' ); |
126 |
- |
|
|