|
Lines 659-664
sub is_serial {
Link Here
|
| 659 |
return 0; |
659 |
return 0; |
| 660 |
} |
660 |
} |
| 661 |
|
661 |
|
|
|
662 |
=head3 custom_cover_image_url |
| 663 |
|
| 664 |
my $image_url = $biblio->custom_cover_image_url |
| 665 |
|
| 666 |
Return the specific url of the cover image for this bibliographic record. |
| 667 |
It is built regaring the value of the system preference CustomCoverImagesURL |
| 668 |
|
| 669 |
=cut |
| 670 |
|
| 671 |
sub custom_cover_image_url { |
| 672 |
my ( $self ) = @_; |
| 673 |
my $url = C4::Context->preference('CustomCoverImagesURL'); |
| 674 |
if ( $url =~ m|%isbn%| ) { |
| 675 |
my $isbn = $self->biblioitem->isbn; |
| 676 |
$url =~ s|%isbn%|$isbn|g; |
| 677 |
} |
| 678 |
if ( $url =~ m|%issn%| ) { |
| 679 |
my $issn = $self->biblioitem->issn; |
| 680 |
$url =~ s|%issn%|$issn|g; |
| 681 |
} |
| 682 |
return $url; |
| 683 |
} |
| 684 |
|
| 662 |
=head3 type |
685 |
=head3 type |
| 663 |
|
686 |
|
| 664 |
=cut |
687 |
=cut |
| 665 |
- |
|
|