Bug 19618: Add tests
[koha.git] / catalogue / labeledMARCdetail.pl
blob7c3b77bc9a5249a78c47f46369d87f67f6e226ac
1 #!/usr/bin/perl
3 # Copyright 2008-2009 LibLime
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
20 use Modern::Perl;
21 use CGI qw ( -utf8 );
22 use HTML::Entities;
23 use MARC::Record;
24 use C4::Auth;
25 use C4::Context;
26 use C4::Output;
27 use C4::Biblio;
28 use C4::Items;
29 use C4::Search; # enabled_staff_search_views
30 use C4::Serials;
31 use C4::Acquisition qw(GetOrdersByBiblionumber);
33 use Koha::Biblios;
34 use Koha::BiblioFrameworks;
35 use Koha::Patrons;
37 my $query = new CGI;
38 my $dbh = C4::Context->dbh;
39 my $biblionumber = $query->param('biblionumber');
40 $biblionumber = HTML::Entities::encode($biblionumber);
41 my $frameworkcode = $query->param('frameworkcode') // GetFrameworkCode( $biblionumber );
42 my $popup =
43 $query->param('popup')
44 ; # if set to 1, then don't insert links, it's just to show the biblio
46 # open template
47 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
49 template_name => "catalogue/labeledMARCdetail.tt",
50 query => $query,
51 type => "intranet",
52 authnotrequired => 0,
53 flagsrequired => { catalogue => 1 },
54 debug => 1,
58 my $record = GetMarcBiblio({ biblionumber => $biblionumber });
59 if ( not defined $record ) {
60 # biblionumber invalid -> report and exit
61 $template->param( unknownbiblionumber => 1,
62 biblionumber => $biblionumber
64 output_html_with_http_headers $query, $cookie, $template->output;
65 exit;
68 my $biblio_object = Koha::Biblios->find( $biblionumber ); # FIXME Should replace $biblio
69 my $tagslib = GetMarcStructure(1,$frameworkcode);
70 my $biblio = GetBiblioData($biblionumber);
72 if($query->cookie("holdfor")){
73 my $holdfor_patron = Koha::Patrons->find( $query->cookie("holdfor") );
74 $template->param(
75 holdfor => $query->cookie("holdfor"),
76 holdfor_surname => $holdfor_patron->surname,
77 holdfor_firstname => $holdfor_patron->firstname,
78 holdfor_cardnumber => $holdfor_patron->cardnumber,
82 #count of item linked
83 my $itemcount = $biblio_object->items->count;
84 $template->param( count => $itemcount,
85 bibliotitle => $biblio->{title}, );
87 my $frameworks = Koha::BiblioFrameworks->search({}, { order_by => ['frameworktext'] });
88 $template->param(
89 frameworks => $frameworks,
90 frameworkcode => $frameworkcode,
93 my @marc_data;
94 my $prevlabel = '';
95 for my $field ($record->fields)
97 my $tag = $field->tag;
98 next if ! exists $tagslib->{$tag}->{lib};
99 my $label = $tagslib->{$tag}->{lib};
100 if ($label eq $prevlabel)
102 $label = '';
104 else
106 $prevlabel = $label;
108 my $value = $tag < 10
109 ? $field->data
110 : join ' ', map { $_->[1] } $field->subfields;
111 push @marc_data, {
112 label => $label,
113 value => $value,
117 $template->param (
118 marc_data => \@marc_data,
119 biblionumber => $biblionumber,
120 popup => $popup,
121 labeledmarcview => 1,
122 z3950_search_params => C4::Search::z3950_search_args($biblio),
123 C4::Search::enabled_staff_search_views,
124 subscriptionsnumber => CountSubscriptionFromBiblionumber($biblionumber),
125 searchid => scalar $query->param('searchid'),
128 my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
129 my @deletedorders_using_biblio;
130 my @orders_using_biblio;
131 my @baskets_orders;
132 my @baskets_deletedorders;
134 foreach my $myorder (@allorders_using_biblio) {
135 my $basket = $myorder->{'basketno'};
136 if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
137 push @deletedorders_using_biblio, $myorder;
138 unless (grep(/^$basket$/, @baskets_deletedorders)){
139 push @baskets_deletedorders,$myorder->{'basketno'};
142 else {
143 push @orders_using_biblio, $myorder;
144 unless (grep(/^$basket$/, @baskets_orders)){
145 push @baskets_orders,$myorder->{'basketno'};
150 my $count_orders_using_biblio = scalar @orders_using_biblio ;
151 $template->param (countorders => $count_orders_using_biblio);
153 my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
154 $template->param (countdeletedorders => $count_deletedorders_using_biblio);
156 $biblio = Koha::Biblios->find( $biblionumber );
157 my $holds = $biblio->holds;
158 $template->param( holdcount => $holds->count );
160 output_html_with_http_headers $query, $cookie, $template->output;