|
Lines 34-46
use C4::Output qw( output_html_with_http_headers );
Link Here
|
| 34 |
use C4::Biblio qw( GetBiblioData GetFrameworkCode ); |
34 |
use C4::Biblio qw( GetBiblioData GetFrameworkCode ); |
| 35 |
use C4::Items qw( GetAnalyticsCount ); |
35 |
use C4::Items qw( GetAnalyticsCount ); |
| 36 |
use C4::Reserves; |
36 |
use C4::Reserves; |
| 37 |
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); |
37 |
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); |
| 38 |
use C4::XISBN qw( get_xisbns ); |
38 |
use C4::XISBN qw( get_xisbns ); |
| 39 |
use C4::External::Amazon qw( get_amazon_tld ); |
39 |
use C4::External::Amazon qw( get_amazon_tld ); |
| 40 |
use C4::Search qw( z3950_search_args enabled_staff_search_views new_record_from_zebra ); |
40 |
use C4::Search qw( z3950_search_args enabled_staff_search_views new_record_from_zebra ); |
| 41 |
use C4::Tags qw( get_tags ); |
41 |
use C4::External::BakerTaylor qw( image_url link_url ); |
| 42 |
use C4::XSLT qw( XSLTParse4Display ); |
42 |
use C4::Tags qw( get_tags ); |
| 43 |
use Koha::DateUtils qw( format_sqldatetime ); |
43 |
use C4::XSLT qw( XSLTParse4Display ); |
|
|
44 |
use Koha::DateUtils qw( format_sqldatetime ); |
| 44 |
use C4::HTML5Media; |
45 |
use C4::HTML5Media; |
| 45 |
use C4::CourseReserves qw( GetItemCourseReservesInfo ); |
46 |
use C4::CourseReserves qw( GetItemCourseReservesInfo ); |
| 46 |
use Koha::AuthorisedValues; |
47 |
use Koha::AuthorisedValues; |
|
Lines 435-440
foreach ( keys %{$dat} ) {
Link Here
|
| 435 |
# does not work: my %views_enabled = map { $_ => 1 } $template->query(loop => 'EnableViews'); |
436 |
# does not work: my %views_enabled = map { $_ => 1 } $template->query(loop => 'EnableViews'); |
| 436 |
# method query not found?!?! |
437 |
# method query not found?!?! |
| 437 |
$template->param( AmazonTld => get_amazon_tld() ) if ( C4::Context->preference("AmazonCoverImages") ); |
438 |
$template->param( AmazonTld => get_amazon_tld() ) if ( C4::Context->preference("AmazonCoverImages") ); |
|
|
439 |
|
| 440 |
if ( C4::Context->preference("BakerTaylorEnabled") ) { |
| 441 |
$template->param( |
| 442 |
BakerTaylorEnabled => 1, |
| 443 |
BakerTaylorImageURL => &image_url(), |
| 444 |
BakerTaylorLinkURL => &link_url(), |
| 445 |
BakerTaylorBookstoreURL => C4::Context->preference('BakerTaylorBookstoreURL'), |
| 446 |
); |
| 447 |
my ( $bt_user, $bt_pass ); |
| 448 |
if ( $isbn |
| 449 |
and $bt_user = C4::Context->preference('BakerTaylorUsername') |
| 450 |
and $bt_pass = C4::Context->preference('BakerTaylorPassword') ) |
| 451 |
{ |
| 452 |
$template->param( |
| 453 |
BakerTaylorContentURL => sprintf( |
| 454 |
"https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=%s&Password=%s&ItemKey=%s&Options=Y", |
| 455 |
$bt_user, $bt_pass, $isbn |
| 456 |
) |
| 457 |
); |
| 458 |
} |
| 459 |
} |
| 460 |
|
| 438 |
$template->param( |
461 |
$template->param( |
| 439 |
biblionumber => $biblionumber, |
462 |
biblionumber => $biblionumber, |
| 440 |
( $analyze ? 'analyze' : 'detailview' ) => 1, |
463 |
( $analyze ? 'analyze' : 'detailview' ) => 1, |