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 1232-1241 sub GetItemsByBiblioitemnumber { Link Here
1232
1231
1233
=head2 GetItemsInfo
1232
=head2 GetItemsInfo
1234
1233
1235
  @results = GetItemsInfo($biblionumber);
1234
  @results = GetItemsInfo($biblionumber, $order_by);
1236
1235
1237
Returns information about items with the given biblionumber.
1236
Returns information about items with the given biblionumber.
1238
1237
1238
The list is ordered by home branch name and some complex criteria
1239
within it (see the code), unless $order_by is specified.
1240
Currently only "cn_sort" is supported.
1241
1239
C<GetItemsInfo> returns a list of references-to-hash. Each element
1242
C<GetItemsInfo> returns a list of references-to-hash. Each element
1240
contains a number of keys. Most of them are attributes from the
1243
contains a number of keys. Most of them are attributes from the
1241
C<biblio>, C<biblioitems>, C<items>, and C<itemtypes> tables in the
1244
C<biblio>, C<biblioitems>, C<items>, and C<itemtypes> tables in the
Lines 1273-1279 If this is set, it is set to C<One Order>. Link Here
1273
=cut
1276
=cut
1274
1277
1275
sub GetItemsInfo {
1278
sub GetItemsInfo {
1276
    my ( $biblionumber ) = @_;
1279
    my ( $biblionumber, $order_by ) = @_;
1280
1277
    my $dbh   = C4::Context->dbh;
1281
    my $dbh   = C4::Context->dbh;
1278
    # note biblioitems.* must be avoided to prevent large marc and marcxml fields from killing performance.
1282
    # note biblioitems.* must be avoided to prevent large marc and marcxml fields from killing performance.
1279
    my $query = "
1283
    my $query = "
Lines 1319-1325 sub GetItemsInfo { Link Here
1319
     LEFT JOIN serial USING (serialid)
1323
     LEFT JOIN serial USING (serialid)
1320
     LEFT JOIN itemtypes   ON   itemtypes.itemtype         = "
1324
     LEFT JOIN itemtypes   ON   itemtypes.itemtype         = "
1321
     . (C4::Context->preference('item-level_itypes') ? 'items.itype' : 'biblioitems.itemtype');
1325
     . (C4::Context->preference('item-level_itypes') ? 'items.itype' : 'biblioitems.itemtype');
1322
    $query .= " WHERE items.biblionumber = ? ORDER BY home.branchname, items.enumchron, LPAD( items.copynumber, 8, '0' ), items.dateaccessioned DESC" ;
1326
    $query .= " WHERE items.biblionumber = ? ORDER BY ";
1327
    my $order_by_cause = "home.branchname, items.enumchron, LPAD( items.copynumber, 8, '0' ), items.dateaccessioned DESC" ;
1328
    if ($order_by) {
1329
        if ($order_by eq 'cn_sort') {
1330
            $order_by_cause = "cn_sort ASC";
1331
        }
1332
        else {
1333
            warn qq{Unsupported order by "$order_by"};
1334
        }
1335
    }
1336
    $query .= $order_by_cause;
1337
1323
    my $sth = $dbh->prepare($query);
1338
    my $sth = $dbh->prepare($query);
1324
    $sth->execute($biblionumber);
1339
    $sth->execute($biblionumber);
1325
    my $i = 0;
1340
    my $i = 0;
Lines 1352-1357 sub GetItemsInfo { Link Here
1352
            $data->{stack}          = C4::Koha::GetKohaAuthorisedValueLib( $code, $data->{stack} );
1367
            $data->{stack}          = C4::Koha::GetKohaAuthorisedValueLib( $code, $data->{stack} );
1353
        }
1368
        }
1354
1369
1370
        $data->{location_intranet} = GetKohaAuthorisedValueLib('LOC', $data->{location});
1371
        $data->{location_opac}     = GetKohaAuthorisedValueLib('LOC', $data->{location}, 1);
1372
1355
        # Find the last 3 people who borrowed this item.
1373
        # Find the last 3 people who borrowed this item.
1356
        my $sth2 = $dbh->prepare("SELECT * FROM old_issues,borrowers
1374
        my $sth2 = $dbh->prepare("SELECT * FROM old_issues,borrowers
1357
                                    WHERE itemnumber = ?
1375
                                    WHERE itemnumber = ?
Lines 1376-1446 sub GetItemsInfo { Link Here
1376
        : @results;
1394
        : @results;
1377
}
1395
}
1378
1396
1379
=head2 GetItemsLocationInfo
1380
1381
  my @itemlocinfo = GetItemsLocationInfo($biblionumber);
1382
1383
Returns the branch names, shelving location and itemcallnumber for each item attached to the biblio in question
1384
1385
C<GetItemsInfo> returns a list of references-to-hash. Data returned:
1386
1387
=over 2
1388
1389
=item C<$data-E<gt>{homebranch}>
1390
1391
Branch Name of the item's homebranch
1392
1393
=item C<$data-E<gt>{holdingbranch}>
1394
1395
Branch Name of the item's holdingbranch
1396
1397
=item C<$data-E<gt>{location}>
1398
1399
Item's shelving location code
1400
1401
=item C<$data-E<gt>{location_intranet}>
1402
1403
The intranet description for the Shelving Location as set in authorised_values 'LOC'
1404
1405
=item C<$data-E<gt>{location_opac}>
1406
1407
The OPAC description for the Shelving Location as set in authorised_values 'LOC'.  Falls back to intranet description if no OPAC 
1408
description is set.
1409
1410
=item C<$data-E<gt>{itemcallnumber}>
1411
1412
Item's itemcallnumber
1413
1414
=item C<$data-E<gt>{cn_sort}>
1415
1416
Item's call number normalized for sorting
1417
1418
=back
1419
  
1420
=cut
1421
1422
sub GetItemsLocationInfo {
1423
        my $biblionumber = shift;
1424
        my @results;
1425
1426
	my $dbh = C4::Context->dbh;
1427
	my $query = "SELECT a.branchname as homebranch, b.branchname as holdingbranch, 
1428
			    location, itemcallnumber, cn_sort
1429
		     FROM items, branches as a, branches as b
1430
		     WHERE homebranch = a.branchcode AND holdingbranch = b.branchcode 
1431
		     AND biblionumber = ?
1432
		     ORDER BY cn_sort ASC";
1433
	my $sth = $dbh->prepare($query);
1434
        $sth->execute($biblionumber);
1435
1436
        while ( my $data = $sth->fetchrow_hashref ) {
1437
             $data->{location_intranet} = GetKohaAuthorisedValueLib('LOC', $data->{location});
1438
             $data->{location_opac}= GetKohaAuthorisedValueLib('LOC', $data->{location}, 1);
1439
	     push @results, $data;
1440
	}
1441
	return @results;
1442
}
1443
1444
=head2 GetHostItemsInfo
1397
=head2 GetHostItemsInfo
1445
1398
1446
	$hostiteminfo = GetHostItemsInfo($hostfield);
1399
	$hostiteminfo = GetHostItemsInfo($hostfield);
(-)a/C4/Search.pm (-14 / +5 lines)
Lines 2057-2063 sub searchResults { Link Here
2057
        my $items_count           = scalar(@fields);
2057
        my $items_count           = scalar(@fields);
2058
        my $maxitems_pref = C4::Context->preference('maxItemsinSearchResults');
2058
        my $maxitems_pref = C4::Context->preference('maxItemsinSearchResults');
2059
        my $maxitems = $maxitems_pref ? $maxitems_pref - 1 : 1;
2059
        my $maxitems = $maxitems_pref ? $maxitems_pref - 1 : 1;
2060
        my @hiddenitems; # hidden itemnumbers based on OpacHiddenItems syspref
2061
2060
2062
        # loop through every item
2061
        # loop through every item
2063
        foreach my $field (@fields) {
2062
        foreach my $field (@fields) {
Lines 2079-2085 sub searchResults { Link Here
2079
                # hidden based on OpacHiddenItems syspref
2078
                # hidden based on OpacHiddenItems syspref
2080
                my @hi = C4::Items::GetHiddenItemnumbers($item);
2079
                my @hi = C4::Items::GetHiddenItemnumbers($item);
2081
                if (scalar @hi) {
2080
                if (scalar @hi) {
2082
                    push @hiddenitems, @hi;
2083
                    $hideatopac_count++;
2081
                    $hideatopac_count++;
2084
                    next;
2082
                    next;
2085
                }
2083
                }
Lines 2096-2113 sub searchResults { Link Here
2096
                $item->{'branchname'} = $branches{$item->{$otherbranch}};
2094
                $item->{'branchname'} = $branches{$item->{$otherbranch}};
2097
            }
2095
            }
2098
2096
2099
			my $prefix = $item->{$hbranch} . '--' . $item->{location} . $item->{itype} . $item->{itemcallnumber};
2097
            my $prefix = $item->{$hbranch} . '--' . $item->{location} . $item->{itype} . $item->{itemcallnumber};
2100
# For each grouping of items (onloan, available, unavailable), we build a key to store relevant info about that item
2098
# For each grouping of items (onloan, available, unavailable), we build a key to store relevant info about that item
2101
            my $userenv = C4::Context->userenv;
2099
            my $userenv = C4::Context->userenv;
2102
            if ( $item->{onloan} && !(C4::Members::GetHideLostItemsPreference($userenv->{'number'}) && $item->{itemlost}) ) {
2100
            if ( $item->{onloan} && !(C4::Members::GetHideLostItemsPreference($userenv->{'number'}) && $item->{itemlost}) ) {
2103
                $onloan_count++;
2101
                $onloan_count++;
2104
				my $key = $prefix . $item->{onloan} . $item->{barcode};
2102
				my $key = $prefix . $item->{onloan} . $item->{barcode};
2103
                $onloan_items->{$key} = { %$item };
2105
				$onloan_items->{$key}->{due_date} = format_date($item->{onloan});
2104
				$onloan_items->{$key}->{due_date} = format_date($item->{onloan});
2106
				$onloan_items->{$key}->{count}++ if $item->{$hbranch};
2105
				$onloan_items->{$key}->{count}++ if $item->{$hbranch};
2107
				$onloan_items->{$key}->{branchname} = $item->{branchname};
2108
				$onloan_items->{$key}->{location} = $shelflocations->{ $item->{location} };
2106
				$onloan_items->{$key}->{location} = $shelflocations->{ $item->{location} };
2109
				$onloan_items->{$key}->{itemcallnumber} = $item->{itemcallnumber};
2110
				$onloan_items->{$key}->{description} = $item->{description};
2111
				$onloan_items->{$key}->{imageurl} = getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2107
				$onloan_items->{$key}->{imageurl} = getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2112
                # if something's checked out and lost, mark it as 'long overdue'
2108
                # if something's checked out and lost, mark it as 'long overdue'
2113
                if ( $item->{itemlost} ) {
2109
                if ( $item->{itemlost} ) {
Lines 2187-2211 sub searchResults { Link Here
2187
                    $other_count++;
2183
                    $other_count++;
2188
2184
2189
                    my $key = $prefix . $item->{status};
2185
                    my $key = $prefix . $item->{status};
2190
                    foreach (qw(withdrawn itemlost damaged branchname itemcallnumber)) {
2186
                    $other_items->{$key} = { %$item };
2191
                        $other_items->{$key}->{$_} = $item->{$_};
2192
                    }
2193
                    $other_items->{$key}->{intransit} = ( $transfertwhen ne '' ) ? 1 : 0;
2187
                    $other_items->{$key}->{intransit} = ( $transfertwhen ne '' ) ? 1 : 0;
2194
                    $other_items->{$key}->{onhold} = ($reservestatus) ? 1 : 0;
2188
                    $other_items->{$key}->{onhold} = ($reservestatus) ? 1 : 0;
2195
                    $other_items->{$key}->{notforloan} = GetAuthorisedValueDesc('','',$item->{notforloan},'','',$notforloan_authorised_value) if $notforloan_authorised_value and $item->{notforloan};
2189
                    $other_items->{$key}->{notforloan} = GetAuthorisedValueDesc('','',$item->{notforloan},'','',$notforloan_authorised_value) if $notforloan_authorised_value and $item->{notforloan};
2196
					$other_items->{$key}->{count}++ if $item->{$hbranch};
2190
					$other_items->{$key}->{count}++ if $item->{$hbranch};
2197
					$other_items->{$key}->{location} = $shelflocations->{ $item->{location} };
2191
					$other_items->{$key}->{location} = $shelflocations->{ $item->{location} };
2198
					$other_items->{$key}->{description} = $item->{description};
2199
					$other_items->{$key}->{imageurl} = getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2192
					$other_items->{$key}->{imageurl} = getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2200
                }
2193
                }
2201
                # item is available
2194
                # item is available
2202
                else {
2195
                else {
2203
                    $can_place_holds = 1;
2196
                    $can_place_holds = 1;
2204
                    $available_count++;
2197
                    $available_count++;
2198
                    $available_items->{$prefix} = { %$item };
2205
					$available_items->{$prefix}->{count}++ if $item->{$hbranch};
2199
					$available_items->{$prefix}->{count}++ if $item->{$hbranch};
2206
					foreach (qw(branchname itemcallnumber description)) {
2207
                    	$available_items->{$prefix}->{$_} = $item->{$_};
2208
					}
2209
					$available_items->{$prefix}->{location} = $shelflocations->{ $item->{location} };
2200
					$available_items->{$prefix}->{location} = $shelflocations->{ $item->{location} };
2210
					$available_items->{$prefix}->{imageurl} = getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2201
					$available_items->{$prefix}->{imageurl} = getitemtypeimagelocation( $search_context, $itemtypes{ $item->{itype} }->{imageurl} );
2211
                }
2202
                }
Lines 2234-2240 sub searchResults { Link Here
2234
        # XSLT processing of some stuff
2225
        # XSLT processing of some stuff
2235
        my $interface = $search_context eq 'opac' ? 'OPAC' : '';
2226
        my $interface = $search_context eq 'opac' ? 'OPAC' : '';
2236
        if (!$scan && C4::Context->preference($interface . "XSLTResultsDisplay")) {
2227
        if (!$scan && C4::Context->preference($interface . "XSLTResultsDisplay")) {
2237
            $oldbiblio->{XSLTResultsRecord} = XSLTParse4Display($oldbiblio->{biblionumber}, $marcrecord, $interface."XSLTResultsDisplay", 1, \@hiddenitems);
2228
            $oldbiblio->{XSLTResultsRecord} = XSLTParse4Display($oldbiblio->{biblionumber}, $marcrecord, $interface."XSLTResultsDisplay", [@available_items_loop, @onloan_items_loop, @other_items_loop], 1);
2238
        # the last parameter tells Koha to clean up the problematic ampersand entities that Zebra outputs
2229
        # the last parameter tells Koha to clean up the problematic ampersand entities that Zebra outputs
2239
        }
2230
        }
2240
2231
(-)a/C4/VirtualShelves/Page.pm (-4 / +4 lines)
Lines 261-271 sub shelfpage { Link Here
261
261
262
                for my $this_item (@$items) {
262
                for my $this_item (@$items) {
263
                    my $biblionumber = $this_item->{'biblionumber'};
263
                    my $biblionumber = $this_item->{'biblionumber'};
264
                    # Getting items infos for location display
265
                    my @items_infos = &GetItemsInfo( $this_item->{'biblionumber'}, "cn_sort" );
264
                    my $record = GetMarcBiblio($biblionumber);
266
                    my $record = GetMarcBiblio($biblionumber);
265
                    if (C4::Context->preference("OPACXSLTResultsDisplay") && $type eq 'opac') {
267
                    if (C4::Context->preference("OPACXSLTResultsDisplay") && $type eq 'opac') {
266
                        $this_item->{XSLTBloc} = XSLTParse4Display($biblionumber, $record, "OPACXSLTResultsDisplay");
268
                        $this_item->{XSLTBloc} = XSLTParse4Display($biblionumber, $record, "OPACXSLTResultsDisplay", \@items_infos);
267
                    } elsif (C4::Context->preference("XSLTResultsDisplay") && $type eq 'intranet') {
269
                    } elsif (C4::Context->preference("XSLTResultsDisplay") && $type eq 'intranet') {
268
                        $this_item->{XSLTBloc} = XSLTParse4Display($biblionumber, $record, "XSLTResultsDisplay");
270
                        $this_item->{XSLTBloc} = XSLTParse4Display($biblionumber, $record, "XSLTResultsDisplay", \@items_infos);
269
                    }
271
                    }
270
272
271
                    # the virtualshelfcontents table does not store these columns nor are they retrieved from the items
273
                    # the virtualshelfcontents table does not store these columns nor are they retrieved from the items
Lines 281-288 sub shelfpage { Link Here
281
                    $this_item->{'normalized_oclc'} = GetNormalizedOCLCNumber($record,$marcflavour);
283
                    $this_item->{'normalized_oclc'} = GetNormalizedOCLCNumber($record,$marcflavour);
282
                    $this_item->{'normalized_isbn'} = GetNormalizedISBN(undef,$record,$marcflavour);
284
                    $this_item->{'normalized_isbn'} = GetNormalizedISBN(undef,$record,$marcflavour);
283
                    if(!defined($this_item->{'size'})) { $this_item->{'size'} = "" }; #TT has problems with size
285
                    if(!defined($this_item->{'size'})) { $this_item->{'size'} = "" }; #TT has problems with size
284
                    # Getting items infos for location display
285
                    my @items_infos = &GetItemsLocationInfo( $this_item->{'biblionumber'});
286
                    $this_item->{'itemsissued'} = CountItemsIssued( $this_item->{'biblionumber'} );
286
                    $this_item->{'itemsissued'} = CountItemsIssued( $this_item->{'biblionumber'} );
287
                    $this_item->{'ITEM_RESULTS'} = \@items_infos;
287
                    $this_item->{'ITEM_RESULTS'} = \@items_infos;
288
                    if ( grep {$_ eq $biblionumber} @cart_list) {
288
                    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 140-150 SetUTF8Flag($record); Link Here
140
my $marcflavour      = C4::Context->preference("marcflavour");
140
my $marcflavour      = C4::Context->preference("marcflavour");
141
my $ean = GetNormalizedEAN( $record, $marcflavour );
141
my $ean = GetNormalizedEAN( $record, $marcflavour );
142
142
143
# XSLT processing of some stuff
144
if (C4::Context->preference("OPACXSLTDetailsDisplay") ) {
145
    $template->param( 'XSLTBloc' => XSLTParse4Display($biblionumber, $record, "OPACXSLTDetailsDisplay" ) );
146
}
147
148
my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults");
143
my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults");
149
$template->{VARS}->{'OpacBrowseResults'} = $OpacBrowseResults;
144
$template->{VARS}->{'OpacBrowseResults'} = $OpacBrowseResults;
150
145
Lines 480-485 if ($hideitems) { Link Here
480
    @items = @all_items;
475
    @items = @all_items;
481
}
476
}
482
477
478
# XSLT processing of some stuff
479
if (C4::Context->preference("OPACXSLTDetailsDisplay") ) {
480
    $template->param( 'XSLTBloc' => XSLTParse4Display($biblionumber, $record, "OPACXSLTDetailsDisplay", \@items) );
481
}
482
483
my $branches = GetBranches();
483
my $branches = GetBranches();
484
my $branch = '';
484
my $branch = '';
485
if (C4::Context->userenv){
485
if (C4::Context->userenv){
486
- 

Return to bug 11213