my $borrower = GetMember( 'borrowernumber' => $loggedinuser );

                ( $items, $totitems ) = shelf_contents({

                    borrower => GetMember( 'borrowernumber' => $loggedinuser ),

                for my $this_item (@$items) {

                    shelfnumber => $shelfnumber,

                    my $biblionumber = $this_item->{'biblionumber'};

                    shelflimit => $shelflimit,

                    # Getting items infos for location display

                    shelfoffset => $shelfoffset,

                    my @items_infos = &GetItemsInfo( $this_item->{'biblionumber'}, "cn_sort" );

                    sortfield => $sortfield,

                    my $record = GetMarcBiblio($biblionumber);

                    direction => $direction,

                    if (C4::Context->preference("OPACXSLTResultsDisplay") && $type eq 'opac') {

                    type => $type,

                        $this_item->{XSLTBloc} = XSLTParse4Display($biblionumber, $record, "OPACXSLTResultsDisplay", \@items_infos);

                    cart_list => \@cart_list,

                    } elsif (C4::Context->preference("XSLTResultsDisplay") && $type eq 'intranet') {

                });

                        $this_item->{XSLTBloc} = XSLTParse4Display($biblionumber, $record, "XSLTResultsDisplay", \@items_infos);

                    }

                    # the virtualshelfcontents table does not store these columns nor are they retrieved from the items

                    # and itemtypes tables, so I'm commenting them out for now to quiet the log -crn

                    #$this_item->{imageurl} = $imgdir."/".$itemtypes->{ $this_item->{itemtype}  }->{'imageurl'};

                    #$this_item->{'description'} = $itemtypes->{ $this_item->{itemtype} }->{'description'};

                    $this_item->{'dateadded'} = format_date( $this_item->{'dateadded'} );

                    $this_item->{'imageurl'}  = getitemtypeinfo( $this_item->{'itemtype'}, $type )->{'imageurl'};

                    $this_item->{'coins'}     = GetCOinSBiblio( $record );

                    $this_item->{'subtitle'} = GetRecordValue('subtitle', $record, GetFrameworkCode($this_item->{'biblionumber'}));

                    $this_item->{'normalized_upc'}  = GetNormalizedUPC(       $record,$marcflavour);

                    $this_item->{'normalized_ean'}  = GetNormalizedEAN(       $record,$marcflavour);

                    $this_item->{'normalized_oclc'} = GetNormalizedOCLCNumber($record,$marcflavour);

                    $this_item->{'normalized_isbn'} = GetNormalizedISBN(undef,$record,$marcflavour);

                    if(!defined($this_item->{'size'})) { $this_item->{'size'} = "" }; #TT has problems with size

                    $this_item->{'itemsissued'} = CountItemsIssued( $this_item->{'biblionumber'} );

                    $this_item->{'ITEM_RESULTS'} = \@items_infos;

                    if ( grep {$_ eq $biblionumber} @cart_list) {

                        $this_item->{'incart'} = 1;

                    }

                    if (C4::Context->preference('TagsEnabled') and $tag_quantity = C4::Context->preference('TagsShowOnList')) {

                        $this_item->{'TagLoop'} = get_tags({

                            biblionumber=>$this_item->{'biblionumber'}, approved=>1, 'sort'=>'-weight',

                            limit=>$tag_quantity

                            });

                    }

                    $this_item->{'allow_onshelf_holds'} = C4::Reserves::OnShelfHoldsAllowed($this_item, $borrower);

                }

use Test::More tests => 1;

use Test::More tests => 3;

use C4::Context;

- 

my $dbh = C4::Context->dbh;

# Start transaction

$dbh->{AutoCommit} = 0;

$dbh->{RaiseError} = 1;

C4::Context->set_preference('XSLTResultsDisplay', 'default');

C4::Context->set_preference('OPACXSLTResultsDisplay', 'default');

C4::Context->clear_syspref_cache();

my $query = qq{

    SELECT vs.shelfnumber, vs.shelfname,vs.owner,

    bo.surname,bo.firstname,vs.category,vs.sortfield,

    count(vc.biblionumber) as count

    FROM virtualshelves vs

    JOIN borrowers bo ON vs.owner=bo.borrowernumber

    JOIN virtualshelfcontents vc USING (shelfnumber)

    GROUP BY vs.shelfnumber

    LIMIT 1

};

my $shelf = $dbh->selectrow_hashref($query);

my %params = (

    shelfnumber => $shelf->{shelfnumber},

    shelflimit => 1,

    shelfoffset => 0,

    sortfield => $shelf->{sortfield},

    direction => 'asc',

    type => 'opac',

    cart_list => [],

);

my ( $items, $totitems ) = C4::VirtualShelves::Page::shelf_contents(\%params);

ok( $items->[0]{XSLTBloc}, "opac items XSLT");

$params{type} = 'intranet';

( $items, $totitems ) = C4::VirtualShelves::Page::shelf_contents(\%params);

ok( $items->[0]{XSLTBloc}, "intranet items XSLT");

# Cleanup

$dbh->rollback;