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

(-)a/C4/ShelfBrowser.pm (-19 / +12 lines)
Lines 25-30 use warnings; Link Here
25
use C4::Biblio;
25
use C4::Biblio;
26
use C4::Context;
26
use C4::Context;
27
use C4::Koha;
27
use C4::Koha;
28
use Koha::Biblios;
28
use Koha::Libraries;
29
use Koha::Libraries;
29
30
30
use vars qw(@ISA @EXPORT @EXPORT_OK);
31
use vars qw(@ISA @EXPORT @EXPORT_OK);
Lines 220-233 sub GetShelfInfo { Link Here
220
    my $marcflavour = C4::Context->preference("marcflavour");
221
    my $marcflavour = C4::Context->preference("marcflavour");
221
    my @valid_items;
222
    my @valid_items;
222
    for my $item ( @items ) {
223
    for my $item ( @items ) {
223
        my $this_biblio = GetBibData($item->{biblionumber});
224
        my $biblio = Koha::Biblios->find( $item->{biblionumber} );
224
        next unless defined $this_biblio;
225
        next unless defined $biblio;
225
        $item->{'title'} = $this_biblio->{'title'};
226
226
        $item->{'subtitle'} = $this_biblio->{'subtitle'},
227
        $item->{biblio_object} = $biblio;
227
        $item->{'medium'} = $this_biblio->{'medium'};
228
        $item->{biblionumber}  = $biblio->biblionumber;
228
        $item->{'part_number'} = $this_biblio->{'part_number'};
229
        $item->{title}         = $biblio->title;
229
        $item->{'part_name'} = $this_biblio->{'part_name'};
230
        $item->{subtitle}      = $biblio->subtitle;
230
        my $this_record = GetMarcBiblio({ biblionumber => $this_biblio->{'biblionumber'} });
231
        $item->{medium}        = $biblio->medium;
232
        $item->{part_number}   = $biblio->part_number;
233
        $item->{part_name}     = $biblio->part_name;
234
        my $this_record = GetMarcBiblio({ biblionumber => $biblio->biblionumber });
231
        $item->{'browser_normalized_upc'} = GetNormalizedUPC($this_record,$marcflavour);
235
        $item->{'browser_normalized_upc'} = GetNormalizedUPC($this_record,$marcflavour);
232
        $item->{'browser_normalized_oclc'} = GetNormalizedOCLCNumber($this_record,$marcflavour);
236
        $item->{'browser_normalized_oclc'} = GetNormalizedOCLCNumber($this_record,$marcflavour);
233
        $item->{'browser_normalized_isbn'} = GetNormalizedISBN(undef,$this_record,$marcflavour);
237
        $item->{'browser_normalized_isbn'} = GetNormalizedISBN(undef,$this_record,$marcflavour);
Lines 237-251 sub GetShelfInfo { Link Here
237
    return @valid_items;
241
    return @valid_items;
238
}
242
}
239
243
240
# Fetches some basic biblio data needed by the shelf stuff
241
sub GetBibData {
242
	my ($bibnum) = @_;
243
244
    my $dbh         = C4::Context->dbh;
245
    my $sth = $dbh->prepare("SELECT biblionumber, title, subtitle, medium, part_number, part_name FROM biblio WHERE biblionumber=?");
246
    $sth->execute($bibnum);
247
    my $bib = $sth->fetchrow_hashref();
248
    return $bib;
249
}
250
251
1;
244
1;
(-)a/koha-tmpl/opac-tmpl/bootstrap/en/includes/shelfbrowser.inc (-1 / +4 lines)
Lines 61-66 Link Here
61
                                        <span class="no-image">No cover image available</span>
61
                                        <span class="no-image">No cover image available</span>
62
                                    [% END %]
62
                                    [% END %]
63
                                [% END %]
63
                                [% END %]
64
                                [% IF Koha.Preference('OPACCustomCoverImages') AND Koha.Preference('CustomCoverImagesURL') %]
65
                                    <img alt="Cover image" src="[% item.biblio_object.custom_cover_image_url | url %]" />
66
                                [% END %]
67
64
                            </a>
68
                            </a>
65
                        </td>
69
                        </td>
66
                    [% END %]
70
                    [% END %]
67
- 

Return to bug 22445