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

(-)a/C4/Items.pm (-69 / +22 lines)
Lines 69-75 BEGIN { Link Here
69
        GetItemInfosOf
69
        GetItemInfosOf
70
        GetItemsByBiblioitemnumber
70
        GetItemsByBiblioitemnumber
71
        GetItemsInfo
71
        GetItemsInfo
72
	GetItemsLocationInfo
73
	GetHostItemsInfo
72
	GetHostItemsInfo
74
        GetItemnumbersForBiblio
73
        GetItemnumbersForBiblio
75
        get_itemnumbers_of
74
        get_itemnumbers_of
Lines 1257-1266 sub GetItemsByBiblioitemnumber { Link Here
1257
1256
1258
=head2 GetItemsInfo
1257
=head2 GetItemsInfo
1259
1258
1260
  @results = GetItemsInfo($biblionumber);
1259
  @results = GetItemsInfo($biblionumber, $order_by);
1261
1260
1262
Returns information about items with the given biblionumber.
1261
Returns information about items with the given biblionumber.
1263
1262
1263
The list is ordered by home branch name and some complex criteria
1264
within it (see the code), unless $order_by is specified.
1265
Currently only "cn_sort" is supported.
1266
1264
C<GetItemsInfo> returns a list of references-to-hash. Each element
1267
C<GetItemsInfo> returns a list of references-to-hash. Each element
1265
contains a number of keys. Most of them are attributes from the
1268
contains a number of keys. Most of them are attributes from the
1266
C<biblio>, C<biblioitems>, C<items>, and C<itemtypes> tables in the
1269
C<biblio>, C<biblioitems>, C<items>, and C<itemtypes> tables in the
Lines 1298-1304 If this is set, it is set to C<One Order>. Link Here
1298
=cut
1301
=cut
1299
1302
1300
sub GetItemsInfo {
1303
sub GetItemsInfo {
1301
    my ( $biblionumber ) = @_;
1304
    my ( $biblionumber, $order_by ) = @_;
1305
1302
    my $dbh   = C4::Context->dbh;
1306
    my $dbh   = C4::Context->dbh;
1303
    # note biblioitems.* must be avoided to prevent large marc and marcxml fields from killing performance.
1307
    # note biblioitems.* must be avoided to prevent large marc and marcxml fields from killing performance.
1304
    my $query = "
1308
    my $query = "
Lines 1344-1350 sub GetItemsInfo { Link Here
1344
     LEFT JOIN serial USING (serialid)
1348
     LEFT JOIN serial USING (serialid)
1345
     LEFT JOIN itemtypes   ON   itemtypes.itemtype         = "
1349
     LEFT JOIN itemtypes   ON   itemtypes.itemtype         = "
1346
     . (C4::Context->preference('item-level_itypes') ? 'items.itype' : 'biblioitems.itemtype');
1350
     . (C4::Context->preference('item-level_itypes') ? 'items.itype' : 'biblioitems.itemtype');
1347
    $query .= " WHERE items.biblionumber = ? ORDER BY home.branchname, items.enumchron, LPAD( items.copynumber, 8, '0' ), items.dateaccessioned DESC" ;
1351
    $query .= " WHERE items.biblionumber = ? ORDER BY ";
1352
    my $order_by_cause = "home.branchname, items.enumchron, LPAD( items.copynumber, 8, '0' ), items.dateaccessioned DESC" ;
1353
    if ($order_by) {
1354
        if ($order_by eq 'cn_sort') {
1355
            $order_by_cause = "cn_sort ASC";
1356
        }
1357
        else {
1358
            warn qq{Unsupported order by "$order_by"};
1359
        }
1360
    }
1361
    $query .= $order_by_cause;
1362
1348
    my $sth = $dbh->prepare($query);
1363
    my $sth = $dbh->prepare($query);
1349
    $sth->execute($biblionumber);
1364
    $sth->execute($biblionumber);
1350
    my $i = 0;
1365
    my $i = 0;
Lines 1377-1382 sub GetItemsInfo { Link Here
1377
            $data->{stack}          = C4::Koha::GetKohaAuthorisedValueLib( $code, $data->{stack} );
1392
            $data->{stack}          = C4::Koha::GetKohaAuthorisedValueLib( $code, $data->{stack} );
1378
        }
1393
        }
1379
1394
1395
        $data->{location_intranet} = GetKohaAuthorisedValueLib('LOC', $data->{location});
1396
        $data->{location_opac}     = GetKohaAuthorisedValueLib('LOC', $data->{location}, 1);
1397
1380
        # Find the last 3 people who borrowed this item.
1398
        # Find the last 3 people who borrowed this item.
1381
        my $sth2 = $dbh->prepare("SELECT * FROM old_issues,borrowers
1399
        my $sth2 = $dbh->prepare("SELECT * FROM old_issues,borrowers
1382
                                    WHERE itemnumber = ?
1400
                                    WHERE itemnumber = ?
Lines 1401-1471 sub GetItemsInfo { Link Here
1401
        : @results;
1419
        : @results;
1402
}
1420
}
1403
1421
1404
=head2 GetItemsLocationInfo
1405
1406
  my @itemlocinfo = GetItemsLocationInfo($biblionumber);
1407
1408
Returns the branch names, shelving location and itemcallnumber for each item attached to the biblio in question
1409
1410
C<GetItemsInfo> returns a list of references-to-hash. Data returned:
1411
1412
=over 2
1413
1414
=item C<$data-E<gt>{homebranch}>
1415
1416
Branch Name of the item's homebranch
1417
1418
=item C<$data-E<gt>{holdingbranch}>
1419
1420
Branch Name of the item's holdingbranch
1421
1422
=item C<$data-E<gt>{location}>
1423
1424
Item's shelving location code
1425
1426
=item C<$data-E<gt>{location_intranet}>
1427
1428
The intranet description for the Shelving Location as set in authorised_values 'LOC'
1429
1430
=item C<$data-E<gt>{location_opac}>
1431
1432
The OPAC description for the Shelving Location as set in authorised_values 'LOC'.  Falls back to intranet description if no OPAC 
1433
description is set.
1434
1435
=item C<$data-E<gt>{itemcallnumber}>
1436
1437
Item's itemcallnumber
1438
1439
=item C<$data-E<gt>{cn_sort}>
1440
1441
Item's call number normalized for sorting
1442
1443
=back
1444
  
1445
=cut
1446
1447
sub GetItemsLocationInfo {
1448
        my $biblionumber = shift;
1449
        my @results;
1450
1451
	my $dbh = C4::Context->dbh;
1452
	my $query = "SELECT a.branchname as homebranch, b.branchname as holdingbranch, 
1453
			    location, itemcallnumber, cn_sort
1454
		     FROM items, branches as a, branches as b
1455
		     WHERE homebranch = a.branchcode AND holdingbranch = b.branchcode 
1456
		     AND biblionumber = ?
1457
		     ORDER BY cn_sort ASC";
1458
	my $sth = $dbh->prepare($query);
1459
        $sth->execute($biblionumber);
1460
1461
        while ( my $data = $sth->fetchrow_hashref ) {
1462
             $data->{location_intranet} = GetKohaAuthorisedValueLib('LOC', $data->{location});
1463
             $data->{location_opac}= GetKohaAuthorisedValueLib('LOC', $data->{location}, 1);
1464
	     push @results, $data;
1465
	}
1466
	return @results;
1467
}
1468
1469
=head2 GetHostItemsInfo
1422
=head2 GetHostItemsInfo
1470
1423
1471
	$hostiteminfo = GetHostItemsInfo($hostfield);
1424
	$hostiteminfo = GetHostItemsInfo($hostfield);
(-)a/C4/Search.pm (-14 / +5 lines)
Lines 2058-2064 sub searchResults { Link Here
2058
        my $items_count           = scalar(@fields);
2058
        my $items_count           = scalar(@fields);
2059
        my $maxitems_pref = C4::Context->preference('maxItemsinSearchResults');
2059
        my $maxitems_pref = C4::Context->preference('maxItemsinSearchResults');
2060
        my $maxitems = $maxitems_pref ? $maxitems_pref - 1 : 1;
2060
        my $maxitems = $maxitems_pref ? $maxitems_pref - 1 : 1;
2061
        my @hiddenitems; # hidden itemnumbers based on OpacHiddenItems syspref
2062
2061
2063
        # loop through every item
2062
        # loop through every item
2064
        foreach my $field (@fields) {
2063
        foreach my $field (@fields) {
Lines 2080-2086 sub searchResults { Link Here
2080
                # hidden based on OpacHiddenItems syspref
2079
                # hidden based on OpacHiddenItems syspref
2081
                my @hi = C4::Items::GetHiddenItemnumbers($item);
2080
                my @hi = C4::Items::GetHiddenItemnumbers($item);
2082
                if (scalar @hi) {
2081
                if (scalar @hi) {
2083
                    push @hiddenitems, @hi;
2084
                    $hideatopac_count++;
2082
                    $hideatopac_count++;
2085
                    next;
2083
                    next;
2086
                }
2084
                }
Lines 2097-2103 sub searchResults { Link Here
2097
                $item->{'branchname'} = $branches{$item->{$otherbranch}};
2095
                $item->{'branchname'} = $branches{$item->{$otherbranch}};
2098
            }
2096
            }
2099
2097
2100
			my $prefix = $item->{$hbranch} . '--' . $item->{location} . $item->{itype} . $item->{itemcallnumber};
2098
            my $prefix = $item->{$hbranch} . '--' . $item->{location} . $item->{itype} . $item->{itemcallnumber};
2101
# For each grouping of items (onloan, available, unavailable), we build a key to store relevant info about that item
2099
# For each grouping of items (onloan, available, unavailable), we build a key to store relevant info about that item
2102
            my $userenv = C4::Context->userenv;
2100
            my $userenv = C4::Context->userenv;
2103
            if ( $item->{onloan}
2101
            if ( $item->{onloan}
Lines 2105-2116 sub searchResults { Link Here
2105
            {
2103
            {
2106
                $onloan_count++;
2104
                $onloan_count++;
2107
                my $key = $prefix . $item->{onloan} . $item->{barcode};
2105
                my $key = $prefix . $item->{onloan} . $item->{barcode};
2106
                $onloan_items->{$key} = { %$item };
2108
                $onloan_items->{$key}->{due_date} = format_date( $item->{onloan} );
2107
                $onloan_items->{$key}->{due_date} = format_date( $item->{onloan} );
2109
                $onloan_items->{$key}->{count}++ if $item->{$hbranch};
2108
                $onloan_items->{$key}->{count}++ if $item->{$hbranch};
2110
                $onloan_items->{$key}->{branchname}     = $item->{branchname};
2111
                $onloan_items->{$key}->{location}       = $shelflocations->{ $item->{location} };
2109
                $onloan_items->{$key}->{location}       = $shelflocations->{ $item->{location} };
2112
                $onloan_items->{$key}->{itemcallnumber} = $item->{itemcallnumber};
2113
                $onloan_items->{$key}->{description}    = $item->{description};
2114
                $onloan_items->{$key}->{imageurl} =
2110
                $onloan_items->{$key}->{imageurl} =
2115
                  getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2111
                  getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2116
2112
Lines 2195-2219 sub searchResults { Link Here
2195
                    $other_count++;
2191
                    $other_count++;
2196
2192
2197
                    my $key = $prefix . $item->{status};
2193
                    my $key = $prefix . $item->{status};
2198
                    foreach (qw(withdrawn itemlost damaged branchname itemcallnumber)) {
2194
                    $other_items->{$key} = { %$item };
2199
                        $other_items->{$key}->{$_} = $item->{$_};
2200
                    }
2201
                    $other_items->{$key}->{intransit} = ( $transfertwhen ne '' ) ? 1 : 0;
2195
                    $other_items->{$key}->{intransit} = ( $transfertwhen ne '' ) ? 1 : 0;
2202
                    $other_items->{$key}->{onhold} = ($reservestatus) ? 1 : 0;
2196
                    $other_items->{$key}->{onhold} = ($reservestatus) ? 1 : 0;
2203
                    $other_items->{$key}->{notforloan} = GetAuthorisedValueDesc('','',$item->{notforloan},'','',$notforloan_authorised_value) if $notforloan_authorised_value and $item->{notforloan};
2197
                    $other_items->{$key}->{notforloan} = GetAuthorisedValueDesc('','',$item->{notforloan},'','',$notforloan_authorised_value) if $notforloan_authorised_value and $item->{notforloan};
2204
					$other_items->{$key}->{count}++ if $item->{$hbranch};
2198
					$other_items->{$key}->{count}++ if $item->{$hbranch};
2205
					$other_items->{$key}->{location} = $shelflocations->{ $item->{location} };
2199
					$other_items->{$key}->{location} = $shelflocations->{ $item->{location} };
2206
					$other_items->{$key}->{description} = $item->{description};
2207
					$other_items->{$key}->{imageurl} = getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2200
					$other_items->{$key}->{imageurl} = getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2208
                }
2201
                }
2209
                # item is available
2202
                # item is available
2210
                else {
2203
                else {
2211
                    $can_place_holds = 1;
2204
                    $can_place_holds = 1;
2212
                    $available_count++;
2205
                    $available_count++;
2206
                    $available_items->{$prefix} = { %$item };
2213
					$available_items->{$prefix}->{count}++ if $item->{$hbranch};
2207
					$available_items->{$prefix}->{count}++ if $item->{$hbranch};
2214
					foreach (qw(branchname itemcallnumber description)) {
2215
                    	$available_items->{$prefix}->{$_} = $item->{$_};
2216
					}
2217
					$available_items->{$prefix}->{location} = $shelflocations->{ $item->{location} };
2208
					$available_items->{$prefix}->{location} = $shelflocations->{ $item->{location} };
2218
					$available_items->{$prefix}->{imageurl} = getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2209
					$available_items->{$prefix}->{imageurl} = getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2219
                }
2210
                }
Lines 2242-2248 sub searchResults { Link Here
2242
        # XSLT processing of some stuff
2233
        # XSLT processing of some stuff
2243
        my $interface = $search_context eq 'opac' ? 'OPAC' : '';
2234
        my $interface = $search_context eq 'opac' ? 'OPAC' : '';
2244
        if (!$scan && C4::Context->preference($interface . "XSLTResultsDisplay")) {
2235
        if (!$scan && C4::Context->preference($interface . "XSLTResultsDisplay")) {
2245
            $oldbiblio->{XSLTResultsRecord} = XSLTParse4Display($oldbiblio->{biblionumber}, $marcrecord, $interface."XSLTResultsDisplay", 1, \@hiddenitems);
2236
            $oldbiblio->{XSLTResultsRecord} = XSLTParse4Display($oldbiblio->{biblionumber}, $marcrecord, $interface."XSLTResultsDisplay", [@available_items_loop, @onloan_items_loop, @other_items_loop], 1);
2246
        # the last parameter tells Koha to clean up the problematic ampersand entities that Zebra outputs
2237
        # the last parameter tells Koha to clean up the problematic ampersand entities that Zebra outputs
2247
        }
2238
        }
2248
2239
(-)a/C4/VirtualShelves/Page.pm (-4 / +4 lines)
Lines 265-275 sub shelfpage { Link Here
265
265
266
                for my $this_item (@$items) {
266
                for my $this_item (@$items) {
267
                    my $biblionumber = $this_item->{'biblionumber'};
267
                    my $biblionumber = $this_item->{'biblionumber'};
268
                    # Getting items infos for location display
269
                    my @items_infos = &GetItemsInfo( $this_item->{'biblionumber'}, "cn_sort" );
268
                    my $record = GetMarcBiblio($biblionumber);
270
                    my $record = GetMarcBiblio($biblionumber);
269
                    if (C4::Context->preference("OPACXSLTResultsDisplay") && $type eq 'opac') {
271
                    if (C4::Context->preference("OPACXSLTResultsDisplay") && $type eq 'opac') {
270
                        $this_item->{XSLTBloc} = XSLTParse4Display($biblionumber, $record, "OPACXSLTResultsDisplay");
272
                        $this_item->{XSLTBloc} = XSLTParse4Display($biblionumber, $record, "OPACXSLTResultsDisplay", \@items_infos);
271
                    } elsif (C4::Context->preference("XSLTResultsDisplay") && $type eq 'intranet') {
273
                    } elsif (C4::Context->preference("XSLTResultsDisplay") && $type eq 'intranet') {
272
                        $this_item->{XSLTBloc} = XSLTParse4Display($biblionumber, $record, "XSLTResultsDisplay");
274
                        $this_item->{XSLTBloc} = XSLTParse4Display($biblionumber, $record, "XSLTResultsDisplay", \@items_infos);
273
                    }
275
                    }
274
276
275
                    # the virtualshelfcontents table does not store these columns nor are they retrieved from the items
277
                    # the virtualshelfcontents table does not store these columns nor are they retrieved from the items
Lines 285-292 sub shelfpage { Link Here
285
                    $this_item->{'normalized_oclc'} = GetNormalizedOCLCNumber($record,$marcflavour);
287
                    $this_item->{'normalized_oclc'} = GetNormalizedOCLCNumber($record,$marcflavour);
286
                    $this_item->{'normalized_isbn'} = GetNormalizedISBN(undef,$record,$marcflavour);
288
                    $this_item->{'normalized_isbn'} = GetNormalizedISBN(undef,$record,$marcflavour);
287
                    if(!defined($this_item->{'size'})) { $this_item->{'size'} = "" }; #TT has problems with size
289
                    if(!defined($this_item->{'size'})) { $this_item->{'size'} = "" }; #TT has problems with size
288
                    # Getting items infos for location display
289
                    my @items_infos = &GetItemsLocationInfo( $this_item->{'biblionumber'});
290
                    $this_item->{'itemsissued'} = CountItemsIssued( $this_item->{'biblionumber'} );
290
                    $this_item->{'itemsissued'} = CountItemsIssued( $this_item->{'biblionumber'} );
291
                    $this_item->{'ITEM_RESULTS'} = \@items_infos;
291
                    $this_item->{'ITEM_RESULTS'} = \@items_infos;
292
                    if ( grep {$_ eq $biblionumber} @cart_list) {
292
                    if ( grep {$_ eq $biblionumber} @cart_list) {
(-)a/C4/XSLT.pm (-10 / +13 lines)
Lines 156-163 sub _get_best_default_xslt_filename { Link Here
156
    return $xslfilename;
156
    return $xslfilename;
157
}
157
}
158
158
159
=head2 XSLTParse4Display( $biblionumber, $orig_record, $xslsyspref, $items, $fixamps )
160
161
  $items => an array of items rerords, as returned from eg. GetItemsInfo
162
163
Returns XSLT block
164
165
=cut
166
159
sub XSLTParse4Display {
167
sub XSLTParse4Display {
160
    my ( $biblionumber, $orig_record, $xslsyspref, $fixamps, $hidden_items ) = @_;
168
    my ( $biblionumber, $orig_record, $xslsyspref, $items, $fixamps ) = @_;
169
161
    my $xslfilename = C4::Context->preference($xslsyspref);
170
    my $xslfilename = C4::Context->preference($xslsyspref);
162
    if ( $xslfilename =~ /^\s*"?default"?\s*$/i ) {
171
    if ( $xslfilename =~ /^\s*"?default"?\s*$/i ) {
163
        my $htdocs;
172
        my $htdocs;
Lines 195-201 sub XSLTParse4Display { Link Here
195
204
196
    # grab the XML, run it through our stylesheet, push it out to the browser
205
    # grab the XML, run it through our stylesheet, push it out to the browser
197
    my $record = transformMARCXML4XSLT($biblionumber, $orig_record);
206
    my $record = transformMARCXML4XSLT($biblionumber, $orig_record);
198
    my $itemsxml  = buildKohaItemsNamespace($biblionumber, $hidden_items);
207
    my $itemsxml  = $items ? buildKohaItemsNamespace($biblionumber, $items) : "";
199
    my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour'));
208
    my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour'));
200
    my $sysxml = "<sysprefs>\n";
209
    my $sysxml = "<sysprefs>\n";
201
    foreach my $syspref ( qw/ hidelostitems OPACURLOpenInNewWindow
210
    foreach my $syspref ( qw/ hidelostitems OPACURLOpenInNewWindow
Lines 236-248 Is only used in this module currently. Link Here
236
=cut
245
=cut
237
246
238
sub buildKohaItemsNamespace {
247
sub buildKohaItemsNamespace {
239
    my ($biblionumber, $hidden_items) = @_;
248
    my ($biblionumber, $items) = @_;
240
241
    my @items = C4::Items::GetItemsInfo($biblionumber);
242
    if ($hidden_items && @$hidden_items) {
243
        my %hi = map {$_ => 1} @$hidden_items;
244
        @items = grep { !$hi{$_->{itemnumber}} } @items;
245
    }
246
249
247
    my $shelflocations = GetKohaAuthorisedValues('items.location',GetFrameworkCode($biblionumber), 'opac');
250
    my $shelflocations = GetKohaAuthorisedValues('items.location',GetFrameworkCode($biblionumber), 'opac');
248
    my $ccodes         = GetKohaAuthorisedValues('items.ccode',GetFrameworkCode($biblionumber), 'opac');
251
    my $ccodes         = GetKohaAuthorisedValues('items.ccode',GetFrameworkCode($biblionumber), 'opac');
Lines 252-258 sub buildKohaItemsNamespace { Link Here
252
    my $location = "";
255
    my $location = "";
253
    my $ccode = "";
256
    my $ccode = "";
254
    my $xml = '';
257
    my $xml = '';
255
    for my $item (@items) {
258
    for my $item (@$items) {
256
        my $status;
259
        my $status;
257
260
258
        my ( $transfertwhen, $transfertfrom, $transfertto ) = C4::Circulation::GetTransfers($item->{itemnumber});
261
        my ( $transfertwhen, $transfertfrom, $transfertto ) = C4::Circulation::GetTransfers($item->{itemnumber});
(-)a/catalogue/detail.pl (-6 / +6 lines)
Lines 84-95 my $fw = GetFrameworkCode($biblionumber); Link Here
84
my $showallitems = $query->param('showallitems');
84
my $showallitems = $query->param('showallitems');
85
my $marcflavour  = C4::Context->preference("marcflavour");
85
my $marcflavour  = C4::Context->preference("marcflavour");
86
86
87
# XSLT processing of some stuff
88
if (C4::Context->preference("XSLTDetailsDisplay") ) {
89
    $template->param('XSLTDetailsDisplay' =>'1',
90
        'XSLTBloc' => XSLTParse4Display($biblionumber, $record, "XSLTDetailsDisplay") );
91
}
92
93
$template->param( 'SpineLabelShowPrintOnBibDetails' => C4::Context->preference("SpineLabelShowPrintOnBibDetails") );
87
$template->param( 'SpineLabelShowPrintOnBibDetails' => C4::Context->preference("SpineLabelShowPrintOnBibDetails") );
94
$template->param( ocoins => GetCOinSBiblio($record) );
88
$template->param( ocoins => GetCOinSBiblio($record) );
95
89
Lines 137-142 if (@hostitems){ Link Here
137
	push (@items,@hostitems);
131
	push (@items,@hostitems);
138
}
132
}
139
133
134
# XSLT processing of some stuff
135
if (C4::Context->preference("XSLTDetailsDisplay") ) {
136
    $template->param('XSLTDetailsDisplay' =>'1',
137
        'XSLTBloc' => XSLTParse4Display($biblionumber, $record, "XSLTDetailsDisplay", \@all_items) );
138
}
139
140
my $dat = &GetBiblioData($biblionumber);
140
my $dat = &GetBiblioData($biblionumber);
141
141
142
#coping with subscriptions
142
#coping with subscriptions
(-)a/opac/opac-detail.pl (-6 / +5 lines)
Lines 139-149 SetUTF8Flag($record); Link Here
139
my $marcflavour      = C4::Context->preference("marcflavour");
139
my $marcflavour      = C4::Context->preference("marcflavour");
140
my $ean = GetNormalizedEAN( $record, $marcflavour );
140
my $ean = GetNormalizedEAN( $record, $marcflavour );
141
141
142
# XSLT processing of some stuff
143
if (C4::Context->preference("OPACXSLTDetailsDisplay") ) {
144
    $template->param( 'XSLTBloc' => XSLTParse4Display($biblionumber, $record, "OPACXSLTDetailsDisplay" ) );
145
}
146
147
my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults");
142
my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults");
148
$template->{VARS}->{'OpacBrowseResults'} = $OpacBrowseResults;
143
$template->{VARS}->{'OpacBrowseResults'} = $OpacBrowseResults;
149
144
Lines 479-484 if ($hideitems) { Link Here
479
    @items = @all_items;
474
    @items = @all_items;
480
}
475
}
481
476
477
# XSLT processing of some stuff
478
if (C4::Context->preference("OPACXSLTDetailsDisplay") ) {
479
    $template->param( 'XSLTBloc' => XSLTParse4Display($biblionumber, $record, "OPACXSLTDetailsDisplay", \@items) );
480
}
481
482
my $branches = GetBranches();
482
my $branches = GetBranches();
483
my $branch = '';
483
my $branch = '';
484
if (C4::Context->userenv){
484
if (C4::Context->userenv){
485
- 

Return to bug 11213