|
Lines 29-72
$module->mock('GetHeaderAuthority', sub {
Link Here
|
| 29 |
$module->mock('AddAuthorityTrees', sub { |
29 |
$module->mock('AddAuthorityTrees', sub { |
| 30 |
return; |
30 |
return; |
| 31 |
}); |
31 |
}); |
| 32 |
$module->mock('GetAuthority', sub { |
32 |
$module->mock( |
| 33 |
my ($authid) = @_; |
33 |
'GetAuthority', |
| 34 |
my $record = MARC::Record->new(); |
34 |
sub { |
| 35 |
if ($authid eq '1') { |
35 |
my ($authid) = @_; |
| 36 |
$record->add_fields( |
36 |
my $record = MARC::Record->new(); |
| 37 |
[ '001', '1' ], |
37 |
if ( $authid eq '1' ) { |
| 38 |
[ '151', ' ', ' ', a => 'United States' ] |
38 |
$record->add_fields( |
|
|
39 |
[ '001', '1' ], |
| 40 |
[ '151', ' ', ' ', a => 'United States' ] |
| 41 |
); |
| 42 |
} elsif ( $authid eq '2' ) { |
| 43 |
$record->add_fields( |
| 44 |
[ '001', '2' ], |
| 45 |
[ '151', ' ', ' ', a => 'New York (State)' ], |
| 46 |
[ '551', ' ', ' ', a => 'United States', w => 'g', 9 => '1' ], |
| 47 |
[ '751', ' ', ' ', a => 'United States', w => 'g', 9 => '1' ], |
| 48 |
[ '781', ' ', ' ', a => 'New York', x => 'General subdivision', 9 => '1' ] |
| 39 |
); |
49 |
); |
| 40 |
} elsif ($authid eq '2') { |
50 |
} elsif ( $authid eq '3' ) { |
| 41 |
$record->add_fields( |
51 |
$record->add_fields( |
| 42 |
[ '001', '2' ], |
52 |
[ '001', '3' ], |
| 43 |
[ '151', ' ', ' ', a => 'New York (State)' ], |
53 |
[ '151', ' ', ' ', a => 'New York (City)' ], |
| 44 |
[ '551', ' ', ' ', a => 'United States', w => 'g', 9 => '1' ], |
54 |
[ '551', ' ', ' ', a => 'New York (State)', w => 'g', 9 => '2' ] |
| 45 |
[ '751', ' ', ' ', a => 'United States', w => 'g', 9 => '1' ], |
|
|
| 46 |
[ '781', ' ', ' ', a => 'New York', x => 'General subdivision', 9 => '1' ] |
| 47 |
); |
| 48 |
} elsif ($authid eq '3') { |
| 49 |
$record->add_fields( |
| 50 |
[ '001', '3' ], |
| 51 |
[ '151', ' ', ' ', a => 'New York (City)' ], |
| 52 |
[ '551', ' ', ' ', a => 'New York (State)', w => 'g', 9 => '2' ] |
| 53 |
); |
55 |
); |
| 54 |
} elsif ($authid eq '4') { |
56 |
} elsif ( $authid eq '4' ) { |
| 55 |
$record->add_fields( |
57 |
$record->add_fields( |
| 56 |
[ '001', '4' ], |
58 |
[ '001', '4' ], |
| 57 |
[ '151', ' ', ' ', a => 'New York (City)' ], |
59 |
[ '151', ' ', ' ', a => 'New York (City)' ], |
| 58 |
[ '551', ' ', ' ', a => 'New York (State)', w => 'g' ] |
60 |
[ '551', ' ', ' ', a => 'New York (State)', w => 'g' ] |
| 59 |
); |
61 |
); |
| 60 |
} elsif ($authid eq '5') { |
62 |
} elsif ( $authid eq '5' ) { |
| 61 |
$record->add_fields( |
63 |
$record->add_fields( |
| 62 |
[ '001', '5' ], |
64 |
[ '001', '5' ], |
| 63 |
[ '100', ' ', ' ', a => 'Lastname, Firstname', b => 'b', c => 'c', i => 'i' ] |
65 |
[ '100', ' ', ' ', a => 'Lastname, Firstname', b => 'b', c => 'c', i => 'i' ] |
| 64 |
); |
66 |
); |
| 65 |
} else { |
67 |
} else { |
| 66 |
undef $record; |
68 |
undef $record; |
|
|
69 |
} |
| 70 |
return $record; |
| 67 |
} |
71 |
} |
| 68 |
return $record; |
72 |
); |
| 69 |
}); |
73 |
|
| 70 |
|
74 |
|
| 71 |
my $schema = Koha::Database->new->schema; |
75 |
my $schema = Koha::Database->new->schema; |
| 72 |
$schema->storage->txn_begin; |
76 |
$schema->storage->txn_begin; |
| 73 |
- |
|
|