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

(-)a/C4/Biblio.pm (-6 / +3 lines)
Lines 1104-1123 sub GetXmlBiblio { Link Here
1104
1104
1105
=head2 GetCOinSBiblio
1105
=head2 GetCOinSBiblio
1106
1106
1107
  my $coins = GetCOinSBiblio($biblionumber);
1107
  my $coins = GetCOinSBiblio($record);
1108
1108
1109
Returns the COinS(a span) which can be included in a biblio record
1109
Returns the COinS (a span) which can be included in a biblio record
1110
1110
1111
=cut
1111
=cut
1112
1112
1113
sub GetCOinSBiblio {
1113
sub GetCOinSBiblio {
1114
    my ($biblionumber) = @_;
1114
    my $record = shift;
1115
    my $record = GetMarcBiblio($biblionumber);
1116
1115
1117
    # get the coin format
1116
    # get the coin format
1118
    if ( ! $record ) {
1117
    if ( ! $record ) {
1119
	# can't get a valid MARC::Record object, bail out at this point
1120
	warn "We called GetMarcBiblio with a biblionumber that doesn't exist biblionumber=$biblionumber";
1121
	return;
1118
	return;
1122
    }
1119
    }
1123
    my $pos7 = substr $record->leader(), 7, 1;
1120
    my $pos7 = substr $record->leader(), 7, 1;
(-)a/C4/VirtualShelves/Page.pm (-1 / +1 lines)
Lines 217-223 sub shelfpage ($$$$$) { Link Here
217
                    #$this_item->{'description'} = $itemtypes->{ $this_item->{itemtype} }->{'description'};
217
                    #$this_item->{'description'} = $itemtypes->{ $this_item->{itemtype} }->{'description'};
218
                    $this_item->{'dateadded'} = format_date( $this_item->{'dateadded'} );
218
                    $this_item->{'dateadded'} = format_date( $this_item->{'dateadded'} );
219
                    $this_item->{'imageurl'}  = getitemtypeinfo( $this_item->{'itemtype'} )->{'imageurl'};
219
                    $this_item->{'imageurl'}  = getitemtypeinfo( $this_item->{'itemtype'} )->{'imageurl'};
220
                    $this_item->{'coins'}     = GetCOinSBiblio( $this_item->{'biblionumber'} );
220
                    $this_item->{'coins'}     = GetCOinSBiblio( $record );
221
                    $this_item->{'subtitle'} = GetRecordValue('subtitle', $record, GetFrameworkCode($this_item->{'biblionumber'}));
221
                    $this_item->{'subtitle'} = GetRecordValue('subtitle', $record, GetFrameworkCode($this_item->{'biblionumber'}));
222
                    $this_item->{'normalized_upc'}  = GetNormalizedUPC(       $record,$marcflavour);
222
                    $this_item->{'normalized_upc'}  = GetNormalizedUPC(       $record,$marcflavour);
223
                    $this_item->{'normalized_ean'}  = GetNormalizedEAN(       $record,$marcflavour);
223
                    $this_item->{'normalized_ean'}  = GetNormalizedEAN(       $record,$marcflavour);
(-)a/opac/opac-detail.pl (-1 / +1 lines)
Lines 599-605 $template->param( Link Here
599
599
600
# COinS format FIXME: for books Only
600
# COinS format FIXME: for books Only
601
$template->param(
601
$template->param(
602
    ocoins => GetCOinSBiblio($biblionumber),
602
    ocoins => GetCOinSBiblio($record),
603
);
603
);
604
604
605
my $libravatar_enabled = 0;
605
my $libravatar_enabled = 0;
(-)a/opac/opac-search.pl (-2 / +2 lines)
Lines 506-512 for (my $i=0;$i<@servers;$i++) { Link Here
506
		}
506
		}
507
                if (C4::Context->preference('COinSinOPACResults')) {
507
                if (C4::Context->preference('COinSinOPACResults')) {
508
		    foreach (@newresults) {
508
		    foreach (@newresults) {
509
		      $_->{coins} = GetCOinSBiblio($_->{'biblionumber'});
509
                      my $record = GetMarcBiblio($_->{'biblionumber'});
510
		      $_->{coins} = GetCOinSBiblio($record);
510
		    }
511
		    }
511
                }
512
                }
512
      
513
      
513
- 

Return to bug 7073