|
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 |
- |
|
|