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

(-)a/C4/Items.pm (-1 / +5 lines)
Lines 1165-1171 If this is set, it is set to C<One Order>. Link Here
1165
=cut
1165
=cut
1166
1166
1167
sub GetItemsInfo {
1167
sub GetItemsInfo {
1168
    my ( $biblionumber ) = @_;
1168
    my ( $biblionumber, $opac ) = @_;
1169
    my $dbh   = C4::Context->dbh;
1169
    my $dbh   = C4::Context->dbh;
1170
    # note biblioitems.* must be avoided to prevent large marc and marcxml fields from killing performance.
1170
    # note biblioitems.* must be avoided to prevent large marc and marcxml fields from killing performance.
1171
    my $query = "
1171
    my $query = "
Lines 1260-1265 sub GetItemsInfo { Link Here
1260
            $data->{notforloanvalue} = $lib;
1260
            $data->{notforloanvalue} = $lib;
1261
        }
1261
        }
1262
1262
1263
        # get itemnotes authorised value if applicable
1264
        my ($authorised_valuecode) = C4::Koha::GetAuthValCode('items.itemnotes', $data->{frameworkcode});
1265
        $data->{itemnotes} = C4::Koha::GetKohaAuthorisedValueLib($authorised_valuecode, $data->{itemnotes}, $opac);
1266
1263
        # get restricted status and description if applicable
1267
        # get restricted status and description if applicable
1264
        my $restrictedstatus = $dbh->prepare(
1268
        my $restrictedstatus = $dbh->prepare(
1265
            'SELECT authorised_value
1269
            'SELECT authorised_value
(-)a/opac/opac-ISBDdetail.pl (-1 / +1 lines)
Lines 127-133 $template->param( Link Here
127
127
128
my $norequests = 1;
128
my $norequests = 1;
129
my $res = GetISBDView($biblionumber, "opac");
129
my $res = GetISBDView($biblionumber, "opac");
130
my @items = GetItemsInfo( $biblionumber );
130
my @items = GetItemsInfo( $biblionumber, 1 );
131
131
132
my $itemtypes = GetItemTypes();
132
my $itemtypes = GetItemTypes();
133
for my $itm (@items) {
133
for my $itm (@items) {
(-)a/opac/opac-detail.pl (-2 / +2 lines)
Lines 373-379 $template->param( 'ItemsIssued' => CountItemsIssued( $biblionumber ) ); Link Here
373
373
374
$template->param('OPACShowCheckoutName' => C4::Context->preference("OPACShowCheckoutName") ); 
374
$template->param('OPACShowCheckoutName' => C4::Context->preference("OPACShowCheckoutName") ); 
375
# change back when ive fixed request.pl
375
# change back when ive fixed request.pl
376
my @all_items = GetItemsInfo( $biblionumber );
376
my @all_items = GetItemsInfo( $biblionumber, 1 );
377
377
378
# adding items linked via host biblios
378
# adding items linked via host biblios
379
my $marcflavour  = C4::Context->preference("marcflavour");
379
my $marcflavour  = C4::Context->preference("marcflavour");
Lines 387-393 if ($marcflavour eq 'MARC21' || $marcflavour eq 'NORMARC'){ Link Here
387
foreach my $hostfield ( $record->field($analyticfield)) {
387
foreach my $hostfield ( $record->field($analyticfield)) {
388
    my $hostbiblionumber = $hostfield->subfield("0");
388
    my $hostbiblionumber = $hostfield->subfield("0");
389
    my $linkeditemnumber = $hostfield->subfield("9");
389
    my $linkeditemnumber = $hostfield->subfield("9");
390
    my @hostitemInfos = GetItemsInfo($hostbiblionumber);
390
    my @hostitemInfos = GetItemsInfo( $hostbiblionumber, 1);
391
    foreach my $hostitemInfo (@hostitemInfos){
391
    foreach my $hostitemInfo (@hostitemInfos){
392
        if ($hostitemInfo->{itemnumber} eq $linkeditemnumber){
392
        if ($hostitemInfo->{itemnumber} eq $linkeditemnumber){
393
            push(@all_items, $hostitemInfo);
393
            push(@all_items, $hostitemInfo);
(-)a/opac/opac-reserve.pl (-1 / +1 lines)
Lines 123-129 foreach my $biblioNumber (@biblionumbers) { Link Here
123
    my $biblioData = GetBiblioData($biblioNumber);
123
    my $biblioData = GetBiblioData($biblioNumber);
124
    $biblioDataHash{$biblioNumber} = $biblioData;
124
    $biblioDataHash{$biblioNumber} = $biblioData;
125
125
126
    my @itemInfos = GetItemsInfo($biblioNumber);
126
    my @itemInfos = GetItemsInfo($biblioNumber,1);
127
127
128
    my $marcrecord= GetMarcBiblio($biblioNumber);
128
    my $marcrecord= GetMarcBiblio($biblioNumber);
129
129
(-)a/opac/opac-sendbasket.pl (-1 / +1 lines)
Lines 81-87 if ( $email_add ) { Link Here
81
        my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
81
        my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
82
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
82
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
83
83
84
        my @items = GetItemsInfo( $biblionumber );
84
        my @items = GetItemsInfo( $biblionumber, 1 );
85
85
86
        my $hasauthors = 0;
86
        my $hasauthors = 0;
87
        if($dat->{'author'} || @$marcauthorsarray) {
87
        if($dat->{'author'} || @$marcauthorsarray) {
(-)a/opac/opac-sendshelf.pl (-2 / +1 lines)
Lines 89-95 if ( $email ) { Link Here
89
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
89
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
90
        my $subtitle         = GetRecordValue('subtitle', $record, $fw);
90
        my $subtitle         = GetRecordValue('subtitle', $record, $fw);
91
91
92
        my @items = GetItemsInfo( $biblionumber );
92
        my @items = GetItemsInfo( $biblionumber, 1 );
93
93
94
        $dat->{MARCNOTES}      = $marcnotesarray;
94
        $dat->{MARCNOTES}      = $marcnotesarray;
95
        $dat->{MARCSUBJCTS}    = $marcsubjctsarray;
95
        $dat->{MARCSUBJCTS}    = $marcsubjctsarray;
96
- 

Return to bug 7515