Continuing fixing license and metadata

[koha.git] / opac / opac-ISBDdetail.pl

diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl
index 4bea4e6..e2187fe 100755 (executable)
--- a/opac/opac-ISBDdetail.pl
+++ b/opac/opac-ISBDdetail.pl
@@ -17,22 +17,19 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 

-=head1 NAME

 
 

-MARCdetail.pl : script to show a biblio in MARC format
+=head1 NAME

 
 

-=head1 SYNOPSIS
+opac-ISBDdetail.pl : script to show a biblio in ISBD format

 
 
 =head1 DESCRIPTION
 
 
 
 =head1 DESCRIPTION
 

-This script needs a biblionumber in bib parameter (bibnumber
-from koha style DB.  Automaticaly maps to marc biblionumber).
+This script needs a biblionumber as parameter 

 
 

-It shows the biblio in a (nice) MARC format depending on MARC
-parameters tables.
+It shows the biblio

 
 

-The template is in <templates_dir>/catalogue/MARCdetail.tmpl.
+The template is in <templates_dir>/catalogue/ISBDdetail.tmpl.

 this template must be divided into 11 "tabs".
 
 The first 10 tabs present the biblio, the 11th one presents
 this template must be divided into 11 "tabs".
 
 The first 10 tabs present the biblio, the 11th one presents


@@ -44,60 +41,134 @@ the items attached to the biblio
 
 =cut
 
 
 =cut
 

-

 use strict;
 use strict;

-require Exporter;
+use warnings;
+

 use C4::Auth;
 use C4::Context;
 use C4::Output;
 use C4::Auth;
 use C4::Context;
 use C4::Output;

-use C4::Interface::CGI::Output;

 use CGI;
 use CGI;

-use C4::Search;

 use MARC::Record;
 use C4::Biblio;
 use MARC::Record;
 use C4::Biblio;

-use C4::Catalogue;
-use HTML::Template;
-
-my $query=new CGI;
-
-my $dbh=C4::Context->dbh;
-
-my $biblionumber=$query->param('bib');
-my $bibid = $query->param('bibid');
-$bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless $bibid;
-$biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless $biblionumber;
-my $itemtype = &MARCfind_itemtype($dbh,$bibid);
-my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
-
-my $record =MARCgetbiblio($dbh,$bibid);
-# open template
-my ($template, $loggedinuser, $cookie)
-               = get_template_and_user({template_name => "opac-ISBDdetail.tmpl",
-                            query => $query,
-                            type => "opac",
-                            authnotrequired => 1,
-                            debug => 1,
-                            });
-
-my $ISBD = C4::Context->preference('ISBD');
-warn "ISBD : $ISBD";
-my @fields = $record->fields();
-foreach my $field (@fields) {
-       my $tag = $field->tag();
-       if ($tag<10) {
-       } else {
-               my @subf = $field->subfields;
-               for my $i (0..$#subf) {
-                       my $subfieldcode = $subf[$i][0];
-                       my $subfieldvalue = $subf[$i][1];
-                       my $tagsubf = $tag.$subfieldcode;
-                       $ISBD =~ s/\[(.?.?.?)$tagsubf(.*?)]/$1$subfieldvalue\[$1$tagsubf$2]$2$3/g;
-               }
-       }
+use C4::Acquisition;
+use C4::External::Amazon;
+use C4::Review;
+use C4::Serials;    # uses getsubscriptionfrom biblionumber
+use C4::Koha;       # use getitemtypeinfo
+use C4::Members;    # GetMember
+
+my $query = CGI->new();
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+    {
+        template_name   => "opac-ISBDdetail.tmpl",
+        query           => $query,
+        type            => "opac",
+        authnotrequired => 1,
+        debug           => 1,
+    }
+);
+
+my $biblionumber = $query->param('biblionumber');
+
+my $marcflavour      = C4::Context->preference("marcflavour");
+my $record = GetMarcBiblio($biblionumber);
+
+#coping with subscriptions
+my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
+my $dbh = C4::Context->dbh;
+my $dat                 = TransformMarcToKoha( $dbh, $record );
+my @subscriptions       =
+  GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
+my @subs;
+foreach my $subscription (@subscriptions) {
+    my %cell;
+    $cell{subscriptionid}    = $subscription->{subscriptionid};
+    $cell{subscriptionnotes} = $subscription->{notes};
+    $cell{branchcode}        = $subscription->{branchcode};
+
+    #get the three latest serials.
+    $cell{latestserials} =
+      GetLatestSerials( $subscription->{subscriptionid}, 3 );
+    push @subs, \%cell;
+}
+
+$template->param(
+    subscriptions       => \@subs,
+    subscriptionsnumber => $subscriptionsnumber,
+);
+
+# my @blocs = split /\@/,$ISBD;
+# my @fields = $record->fields();
+my $res = GetISBDView($biblionumber);
+
+my $reviews = getreviews( $biblionumber, 1 );
+foreach ( @$reviews ) {
+    my $borrower_number_review = $_->{borrowernumber};
+    my $borrowerData           = GetMember($borrower_number_review,'borrowernumber');
+    # setting some borrower info into this hash
+    $_->{title}     = $borrowerData->{'title'};
+    $_->{surname}   = $borrowerData->{'surname'};
+    $_->{firstname} = $borrowerData->{'firstname'};

 }
 }

-$ISBD =~ s/\[(.*?)]//g;
-$ISBD =~ s/\n/<br>/g;
-$template->param(ISBD => $ISBD);

 
 

-output_html_with_http_headers $query, $cookie, $template->output;

 
 

+$template->param(
+    ISBD         => $res,
+    biblionumber => $biblionumber,
+    reviews             => $reviews,
+);
+    my @services;
+       my $amazon_reviews  = C4::Context->preference("AmazonReviews");
+       my $amazon_similars = C4::Context->preference("AmazonSimilarItems");
+               
+    if ( $amazon_reviews ) {
+        $template->param( AmazonReviews => 1 );
+        push( @services, 'EditorialReview' );
+    }
+    if ( $amazon_similars ) {
+        $template->param( AmazonSimilarItems => 1 );
+        push( @services, 'Similarities' );
+    }
+
+## Amazon.com stuff
+#not used unless preference set
+if ( C4::Context->preference("AmazonContent") == 1 ) {
+    use C4::External::Amazon;
+    $dat->{'amazonisbn'} = $dat->{'isbn'};
+    $dat->{'amazonisbn'} =~ s|-||g;
+
+    $template->param( amazonisbn => $dat->{amazonisbn} );
+
+    my $amazon_details = &get_amazon_details( $dat->{amazonisbn}, $record, $marcflavour );
+
+    foreach my $result ( @{ $amazon_details->{Details} } ) {
+        $template->param( item_description => $result->{ProductDescription} );
+        $template->param( image            => $result->{ImageUrlMedium} );
+        $template->param( list_price       => $result->{ListPrice} );
+        $template->param( amazon_url       => $result->{url} );
+    }
+
+    my @products;
+    my @reviews;
+    for my $details ( @{ $amazon_details->{Details} } ) {
+        next unless $details->{SimilarProducts};
+        for my $product ( @{ $details->{SimilarProducts}->{Product} } ) {
+            push @products, +{ Product => $product };
+        }
+        next unless $details->{Reviews};
+        for my $product ( @{ $details->{Reviews}->{AvgCustomerRating} } ) {
+            $template->param( rating => $product * 20 );
+        }
+        for my $reviews ( @{ $details->{Reviews}->{CustomerReview} } ) {
+            push @reviews,
+              +{
+                Summary => $reviews->{Summary},
+                Comment => $reviews->{Comment},
+              };
+        }
+    }
+    $template->param( SIMILAR_PRODUCTS => \@products );
+    $template->param( AMAZONREVIEWS    => \@reviews );
+}
+
+output_html_with_http_headers $query, $cookie, $template->output;