View | Details | Raw Unified | Return to bug 32894
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Biblios.t (-10 / +13 lines)
Lines 27-33 use Test::MockModule; Link Here
27
use MARC::Field;
27
use MARC::Field;
28
28
29
use C4::Items;
29
use C4::Items;
30
use C4::Biblio qw( AddBiblio ModBiblio );
30
use C4::Biblio qw( AddBiblio ModBiblio GetMarcFromKohaField );
31
use C4::Reserves qw( AddReserve );
31
use C4::Reserves qw( AddReserve );
32
32
33
use Koha::DateUtils qw( dt_from_string output_pref );
33
use Koha::DateUtils qw( dt_from_string output_pref );
Lines 200-219 subtest 'custom_cover_image_url' => sub { Link Here
200
    my $isbn       = '0553573403 | 9780553573404 (pbk.).png';
200
    my $isbn       = '0553573403 | 9780553573404 (pbk.).png';
201
    my $issn       = 'my_issn';
201
    my $issn       = 'my_issn';
202
    my $cf_value   = 'from_control_field';
202
    my $cf_value   = 'from_control_field';
203
    my $marc_record = MARC::Record->new;
203
    my $biblio     = $builder->build_sample_biblio;
204
    my ( $biblionumber, undef ) = C4::Biblio::AddBiblio($marc_record, '');
204
    my $marc_record = $biblio->metadata->record;
205
    my ( $isbn_tag, $isbn_subfield ) =  GetMarcFromKohaField( 'biblioitems.isbn' );
206
    my ( $issn_tag, $issn_subfield ) =  GetMarcFromKohaField( 'biblioitems.issn' );
207
    $marc_record->append_fields(
208
        MARC::Field->new( $isbn_tag, '', '', $isbn_subfield => $isbn ),
209
        MARC::Field->new( $issn_tag, '', '', $issn_subfield => $issn ),
210
    );
211
    C4::Biblio::ModBiblio( $marc_record, $biblio->biblionumber );
205
212
206
    my $biblio = Koha::Biblios->find( $biblionumber );
213
    is( $biblio->get_from_storage->custom_cover_image_url, "https://my_url/${isbn}_${issn}.png" );
207
    my $biblioitem = $biblio->biblioitem->set(
208
        { isbn => $isbn, issn => $issn });
209
    is( $biblio->custom_cover_image_url, "https://my_url/${isbn}_${issn}.png" );
210
214
211
    my $marc_024a = '710347104926';
215
    my $marc_024a = '710347104926';
212
    $marc_record->append_fields( MARC::Field->new( '024', '', '', a => $marc_024a ) );
216
    $marc_record->append_fields( MARC::Field->new( '024', '', '', a => $marc_024a ) );
213
    C4::Biblio::ModBiblio( $marc_record, $biblio->biblionumber );
217
    C4::Biblio::ModBiblio( $marc_record, $biblio->biblionumber );
214
218
215
    t::lib::Mocks::mock_preference( 'CustomCoverImagesURL', 'https://my_url/{024$a}.png' );
219
    t::lib::Mocks::mock_preference( 'CustomCoverImagesURL', 'https://my_url/{024$a}.png' );
216
    is( $biblio->custom_cover_image_url, "https://my_url/$marc_024a.png" );
220
    is( $biblio->get_from_storage->custom_cover_image_url, "https://my_url/$marc_024a.png" );
217
221
218
    t::lib::Mocks::mock_preference( 'CustomCoverImagesURL', 'https://my_url/{normalized_isbn}.png' );
222
    t::lib::Mocks::mock_preference( 'CustomCoverImagesURL', 'https://my_url/{normalized_isbn}.png' );
219
    my $normalized_isbn = C4::Koha::GetNormalizedISBN($isbn);
223
    my $normalized_isbn = C4::Koha::GetNormalizedISBN($isbn);
Lines 226-232 subtest 'custom_cover_image_url' => sub { Link Here
226
    is( $biblio->custom_cover_image_url, undef, 'Record does not have 001' );
230
    is( $biblio->custom_cover_image_url, undef, 'Record does not have 001' );
227
    $marc_record->append_fields(MARC::Field->new('001', $cf_value));
231
    $marc_record->append_fields(MARC::Field->new('001', $cf_value));
228
    C4::Biblio::ModBiblio( $marc_record, $biblio->biblionumber );
232
    C4::Biblio::ModBiblio( $marc_record, $biblio->biblionumber );
229
    $biblio = Koha::Biblios->find( $biblionumber );
233
    $biblio = Koha::Biblios->find( $biblio->biblionumber );
230
    is( $biblio->get_from_storage->custom_cover_image_url, "https://my_url/$cf_value.png", 'URL generated using 001' );
234
    is( $biblio->get_from_storage->custom_cover_image_url, "https://my_url/$cf_value.png", 'URL generated using 001' );
231
};
235
};
232
236
233
- 

Return to bug 32894