13 my ( $template, $borrowernumber, $cookie ) = get_template_and_user
(
15 template_name
=> "svc/shelfbrowser.tt",
18 authnotrequired
=> ( C4
::Context
->preference("OpacPublic") ?
1 : 0 ),
19 flagsrequired
=> { borrow
=> 1 },
24 if (C4
::Context
->preference("OPACShelfBrowser")) {
25 my $starting_itemnumber = $cgi->param('shelfbrowse_itemnumber');
26 if (defined($starting_itemnumber)) {
27 my $nearby = GetNearbyItems
($starting_itemnumber);
30 starting_homebranch
=> $nearby->{starting_homebranch
}->{description
},
31 starting_location
=> $nearby->{starting_location
}->{description
},
32 starting_ccode
=> $nearby->{starting_ccode
}->{description
},
33 shelfbrowser_prev_item
=> $nearby->{prev_item
},
34 shelfbrowser_next_item
=> $nearby->{next_item
},
35 shelfbrowser_items
=> $nearby->{items
},
36 OpenOPACShelfBrowser
=> 1,
41 output_html_with_http_headers
$cgi, $cookie, $template->output;