Bug 6390: Implement 'see mine/my branches/all baskets'-syspref

[koha_gimpoz] / opac / opac-ISBDdetail.pl

diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl
index a417ea8..c80d41c 100755 (executable)
--- a/opac/opac-ISBDdetail.pl
+++ b/opac/opac-ISBDdetail.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 # Copyright 2000-2002 Katipo Communications
 #!/usr/bin/perl
 
 # Copyright 2000-2002 Katipo Communications

+# parts copyright 2010 BibLibre

 #
 # This file is part of Koha.
 #
 #
 # This file is part of Koha.
 #


@@ -13,26 +14,22 @@
 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
 #
 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
 #

-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

 
 

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

 
 

-=head1 SYNOPSIS
+=head1 NAME

 
 

+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


@@ -40,63 +37,172 @@ the items attached to the biblio
 
 =head1 FUNCTIONS
 
 
 =head1 FUNCTIONS
 

-=over 2
-

 =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::Items;

 use C4::Acquisition;
 use C4::Acquisition;

-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_frameworkcode($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');
-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::Review;
+use C4::Serials;    # uses getsubscriptionfrom biblionumber
+use C4::Koha;
+use C4::Members;    # GetMember
+use C4::External::Amazon;
+
+my $query = CGI->new();
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+    {
+        template_name   => "opac-ISBDdetail.tmpl",
+        query           => $query,
+        type            => "opac",
+        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
+        debug           => 1,
+    }
+);
+
+my $biblionumber = $query->param('biblionumber');
+
+$template->param( 'AllowOnShelfHolds' => C4::Context->preference('AllowOnShelfHolds') );
+$template->param( 'ItemsIssued' => CountItemsIssued( $biblionumber ) );
+
+my $marcflavour      = C4::Context->preference("marcflavour");
+my $record = GetMarcBiblio($biblionumber);
+if ( ! $record ) {
+    print $query->redirect("/cgi-bin/koha/errors/404.pl");
+    exit;
+}
+# some useful variables for enhanced content;
+# in each case, we're grabbing the first value we find in
+# the record and normalizing it
+my $upc = GetNormalizedUPC($record,$marcflavour);
+my $ean = GetNormalizedEAN($record,$marcflavour);
+my $oclc = GetNormalizedOCLCNumber($record,$marcflavour);
+my $isbn = GetNormalizedISBN(undef,$record,$marcflavour);
+my $content_identifier_exists;
+if ( $isbn or $ean or $oclc or $upc ) {
+    $content_identifier_exists = 1;
+}
+$template->param(
+    normalized_upc => $upc,
+    normalized_ean => $ean,
+    normalized_oclc => $oclc,
+    normalized_isbn => $isbn,
+       content_identifier_exists => $content_identifier_exists,
+);
+
+#coping with subscriptions
+my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
+my $dbh = C4::Context->dbh;
+my $dat                 = TransformMarcToKoha( $dbh, $record );
+my @subscriptions       = GetSubscriptions( undef, undef, $biblionumber );
+
+my @subs;
+foreach my $subscription (@subscriptions) {
+    my %cell;
+       my $serials_to_display;
+    $cell{subscriptionid}    = $subscription->{subscriptionid};
+    $cell{subscriptionnotes} = $subscription->{notes};
+    $cell{branchcode}        = $subscription->{branchcode};
+
+    #get the three latest serials.
+       $serials_to_display = $subscription->{opacdisplaycount};
+       $serials_to_display = C4::Context->preference('OPACSerialIssueDisplayCount') unless $serials_to_display;
+       $cell{opacdisplaycount} = $serials_to_display;
+    $cell{latestserials} =
+      GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
+    push @subs, \%cell;

 }
 }

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

 
 

-output_html_with_http_headers $query, $cookie, $template->output;
+$template->param(
+    subscriptions       => \@subs,
+    subscriptionsnumber => $subscriptionsnumber,
+);
+
+my $norequests = 1;
+my $res = GetISBDView($biblionumber, "opac");
+my @items = GetItemsInfo( $biblionumber );
+
+my $itemtypes = GetItemTypes();
+for my $itm (@items) {
+    $norequests = 0
+       if ( (not $itm->{'wthdrawn'} )
+         && (not $itm->{'itemlost'} )
+         && ($itm->{'itemnotforloan'}<0 || not $itm->{'itemnotforloan'} )
+                && (not $itemtypes->{$itm->{'itype'}}->{notforloan} )
+         && ($itm->{'itemnumber'} ) );
+}
+
+my $reviews = getreviews( $biblionumber, 1 );
+foreach ( @$reviews ) {
+    my $borrower_number_review = $_->{borrowernumber};
+    my $borrowerData           = GetMember('borrowernumber' =>$borrower_number_review);
+    # setting some borrower info into this hash
+    $_->{title}     = $borrowerData->{'title'};
+    $_->{surname}   = $borrowerData->{'surname'};
+    $_->{firstname} = $borrowerData->{'firstname'};
+}

 
 

+
+$template->param(
+    RequestOnOpac       => C4::Context->preference("RequestOnOpac"),
+    AllowOnShelfHolds   => C4::Context->preference('AllowOnShelfHolds'),
+    norequests   => $norequests,
+    ISBD         => $res,
+    biblionumber => $biblionumber,
+    reviews             => $reviews,
+);
+
+#Search for title in links
+if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
+    $dat->{author} ? $search_for_title =~ s/{AUTHOR}/$dat->{author}/g : $search_for_title =~ s/{AUTHOR}//g;
+    $dat->{title} =~ s/\/+$//; # remove trailing slash
+    $dat->{title} =~ s/\s+$//; # remove trailing space
+    $dat->{title} ? $search_for_title =~ s/{TITLE}/$dat->{title}/g : $search_for_title =~ s/{TITLE}//g;
+    $isbn ? $search_for_title =~ s/{ISBN}/$isbn/g : $search_for_title =~ s/{ISBN}//g;
+ $template->param('OPACSearchForTitleIn' => $search_for_title);
+}
+
+## Amazon.com stuff
+#not used unless preference set
+if ( C4::Context->preference("OPACAmazonEnabled") == 1 ) {
+
+    my $amazon_details = &get_amazon_details( $isbn, $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;