Lines 39-44
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLat
Link Here
|
39 |
use C4::XISBN qw( get_xisbns ); |
39 |
use C4::XISBN qw( get_xisbns ); |
40 |
use C4::External::Amazon qw( get_amazon_tld ); |
40 |
use C4::External::Amazon qw( get_amazon_tld ); |
41 |
use C4::Search qw( z3950_search_args enabled_staff_search_views new_record_from_zebra ); |
41 |
use C4::Search qw( z3950_search_args enabled_staff_search_views new_record_from_zebra ); |
|
|
42 |
use C4::External::BakerTaylor qw( image_url link_url ); |
42 |
use C4::Tags qw( get_tags ); |
43 |
use C4::Tags qw( get_tags ); |
43 |
use C4::XSLT qw( XSLTParse4Display ); |
44 |
use C4::XSLT qw( XSLTParse4Display ); |
44 |
use Koha::DateUtils qw( format_sqldatetime ); |
45 |
use Koha::DateUtils qw( format_sqldatetime ); |
Lines 427-432
foreach ( keys %{$dat} ) {
Link Here
|
427 |
# does not work: my %views_enabled = map { $_ => 1 } $template->query(loop => 'EnableViews'); |
428 |
# does not work: my %views_enabled = map { $_ => 1 } $template->query(loop => 'EnableViews'); |
428 |
# method query not found?!?! |
429 |
# method query not found?!?! |
429 |
$template->param( AmazonTld => get_amazon_tld() ) if ( C4::Context->preference("AmazonCoverImages")); |
430 |
$template->param( AmazonTld => get_amazon_tld() ) if ( C4::Context->preference("AmazonCoverImages")); |
|
|
431 |
|
432 |
if ( C4::Context->preference("BakerTaylorEnabled") ) { |
433 |
$template->param( |
434 |
BakerTaylorEnabled => 1, |
435 |
BakerTaylorImageURL => &image_url(), |
436 |
BakerTaylorLinkURL => &link_url(), |
437 |
BakerTaylorBookstoreURL => C4::Context->preference('BakerTaylorBookstoreURL'), |
438 |
); |
439 |
my ( $bt_user, $bt_pass ); |
440 |
if ( $isbn |
441 |
and $bt_user = C4::Context->preference('BakerTaylorUsername') |
442 |
and $bt_pass = C4::Context->preference('BakerTaylorPassword') ) |
443 |
{ |
444 |
$template->param( |
445 |
BakerTaylorContentURL => sprintf( |
446 |
"https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=%s&Password=%s&ItemKey=%s&Options=Y", |
447 |
$bt_user, $bt_pass, $isbn |
448 |
) |
449 |
); |
450 |
} |
451 |
} |
452 |
|
430 |
$template->param( |
453 |
$template->param( |
431 |
biblionumber => $biblionumber, |
454 |
biblionumber => $biblionumber, |
432 |
($analyze? 'analyze':'detailview') =>1, |
455 |
($analyze? 'analyze':'detailview') =>1, |