|
Lines 252-267
subtest 'put() tests' => sub {
Link Here
|
| 252 |
$patron->set_password( { password => $password, skip_validation => 1 } ); |
252 |
$patron->set_password( { password => $password, skip_validation => 1 } ); |
| 253 |
my $userid = $patron->userid; |
253 |
my $userid = $patron->userid; |
| 254 |
|
254 |
|
| 255 |
my $authority = $builder->build_object({ 'class' => 'Koha::Authorities', value => { |
255 |
my $authority_type = $builder->build_object( |
| 256 |
marcxml => q|<?xml version="1.0" encoding="UTF-8"?> |
256 |
{ |
|
|
257 |
'class' => 'Koha::Authority::Types', |
| 258 |
value => { |
| 259 |
auth_tag_to_report => '110', |
| 260 |
} |
| 261 |
} |
| 262 |
); |
| 263 |
my $authority = $builder->build_object( |
| 264 |
{ |
| 265 |
'class' => 'Koha::Authorities', |
| 266 |
value => { |
| 267 |
marcxml => q|<?xml version="1.0" encoding="UTF-8"?> |
| 257 |
<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.loc.gov/MARC21/slim" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"> |
268 |
<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.loc.gov/MARC21/slim" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"> |
| 258 |
<controlfield tag="001">1001</controlfield> |
269 |
<controlfield tag="001">1001</controlfield> |
| 259 |
<datafield tag="110" ind1=" " ind2=" "> |
270 |
<datafield tag="110" ind1=" " ind2=" "> |
| 260 |
<subfield code="9">102</subfield> |
271 |
<subfield code="9">102</subfield> |
| 261 |
<subfield code="a">My Corporation</subfield> |
272 |
<subfield code="a">My Corporation</subfield> |
| 262 |
</datafield> |
273 |
</datafield> |
| 263 |
</record>| |
274 |
</record>|, |
| 264 |
} }); |
275 |
authtypecode => $authority_type->authtypecode, |
|
|
276 |
} |
| 277 |
} |
| 278 |
); |
| 265 |
|
279 |
|
| 266 |
my $authid = $authority->id; |
280 |
my $authid = $authority->id; |
| 267 |
my $authtypecode = $authority->authtypecode; |
281 |
my $authtypecode = $authority->authtypecode; |
| 268 |
- |
|
|