Lines 32-38
use C4::Biblio;
Link Here
|
32 |
use C4::Items; |
32 |
use C4::Items; |
33 |
use C4::Circulation; |
33 |
use C4::Circulation; |
34 |
use C4::Tags qw(get_tags); |
34 |
use C4::Tags qw(get_tags); |
35 |
use C4::Dates qw/format_date/; |
|
|
36 |
use C4::XISBN qw(get_xisbns get_biblionumber_from_isbn); |
35 |
use C4::XISBN qw(get_xisbns get_biblionumber_from_isbn); |
37 |
use C4::External::Amazon; |
36 |
use C4::External::Amazon; |
38 |
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes ); |
37 |
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes ); |
Lines 453-460
foreach my $subscription (@subscriptions) {
Link Here
|
453 |
$cell{subscriptionnotes} = $subscription->{notes}; |
452 |
$cell{subscriptionnotes} = $subscription->{notes}; |
454 |
$cell{missinglist} = $subscription->{missinglist}; |
453 |
$cell{missinglist} = $subscription->{missinglist}; |
455 |
$cell{opacnote} = $subscription->{opacnote}; |
454 |
$cell{opacnote} = $subscription->{opacnote}; |
456 |
$cell{histstartdate} = format_date($subscription->{histstartdate}); |
455 |
$cell{histstartdate} = $subscription->{histstartdate}; |
457 |
$cell{histenddate} = format_date($subscription->{histenddate}); |
456 |
$cell{histenddate} = $subscription->{histenddate}; |
458 |
$cell{branchcode} = $subscription->{branchcode}; |
457 |
$cell{branchcode} = $subscription->{branchcode}; |
459 |
$cell{branchname} = GetBranchName($subscription->{branchcode}); |
458 |
$cell{branchname} = GetBranchName($subscription->{branchcode}); |
460 |
$cell{hasalert} = $subscription->{hasalert}; |
459 |
$cell{hasalert} = $subscription->{hasalert}; |
Lines 494-501
for my $itm (@items) {
Link Here
|
494 |
# I can't actually find any case in which this is defined. --amoore 2008-12-09 |
493 |
# I can't actually find any case in which this is defined. --amoore 2008-12-09 |
495 |
$itm->{ $itm->{'publictype'} } = 1; |
494 |
$itm->{ $itm->{'publictype'} } = 1; |
496 |
} |
495 |
} |
497 |
$itm->{datedue} = format_date($itm->{datedue}); |
|
|
498 |
$itm->{datelastseen} = format_date($itm->{datelastseen}); |
499 |
|
496 |
|
500 |
# get collection code description, too |
497 |
# get collection code description, too |
501 |
if ( my $ccode = $itm->{'ccode'} ) { |
498 |
if ( my $ccode = $itm->{'ccode'} ) { |
Lines 527-533
for my $itm (@items) {
Link Here
|
527 |
|
524 |
|
528 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber}); |
525 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber}); |
529 |
if ( defined( $transfertwhen ) && $transfertwhen ne '' ) { |
526 |
if ( defined( $transfertwhen ) && $transfertwhen ne '' ) { |
530 |
$itm->{transfertwhen} = format_date($transfertwhen); |
527 |
$itm->{transfertwhen} = $transfertwhen; |
531 |
$itm->{transfertfrom} = $branches->{$transfertfrom}{branchname}; |
528 |
$itm->{transfertfrom} = $branches->{$transfertfrom}{branchname}; |
532 |
$itm->{transfertto} = $branches->{$transfertto}{branchname}; |
529 |
$itm->{transfertto} = $branches->{$transfertto}{branchname}; |
533 |
} |
530 |
} |
Lines 641-647
foreach ( @$reviews ) {
Link Here
|
641 |
} |
638 |
} |
642 |
$_->{userid} = $borrowerData->{'userid'}; |
639 |
$_->{userid} = $borrowerData->{'userid'}; |
643 |
$_->{cardnumber} = $borrowerData->{'cardnumber'}; |
640 |
$_->{cardnumber} = $borrowerData->{'cardnumber'}; |
644 |
$_->{datereviewed} = format_date($_->{datereviewed}); |
|
|
645 |
if ($borrowerData->{'borrowernumber'} eq $borrowernumber) { |
641 |
if ($borrowerData->{'borrowernumber'} eq $borrowernumber) { |
646 |
$_->{your_comment} = 1; |
642 |
$_->{your_comment} = 1; |
647 |
$loggedincommenter = 1; |
643 |
$loggedincommenter = 1; |
Lines 723-731
if ( C4::Context->preference("OPACAmazonEnabled") ) {
Link Here
|
723 |
if ( $amazon_reviews ) { |
719 |
if ( $amazon_reviews ) { |
724 |
my $item = $amazon_details->{Items}->{Item}->[0]; |
720 |
my $item = $amazon_details->{Items}->{Item}->[0]; |
725 |
my $customer_reviews = \@{ $item->{CustomerReviews}->{Review} }; |
721 |
my $customer_reviews = \@{ $item->{CustomerReviews}->{Review} }; |
726 |
for my $one_review ( @$customer_reviews ) { |
|
|
727 |
$one_review->{Date} = format_date($one_review->{Date}); |
728 |
} |
729 |
my $editorial_reviews = \@{ $item->{EditorialReviews}->{EditorialReview} }; |
722 |
my $editorial_reviews = \@{ $item->{EditorialReviews}->{EditorialReview} }; |
730 |
my $average_rating = $item->{CustomerReviews}->{AverageRating} || 0; |
723 |
my $average_rating = $item->{CustomerReviews}->{AverageRating} || 0; |
731 |
$template->param( amazon_average_rating => $average_rating * 20); |
724 |
$template->param( amazon_average_rating => $average_rating * 20); |
732 |
- |
|
|