Bug 11592: (QA followup) Simplify code
[koha.git] / opac / opac-MARCdetail.pl
1 #!/usr/bin/perl
2
3 # This file is part of Koha.
4 #
5 #       Copyright (C) 2000-2002 Katipo Communications
6 # Parts Copyright (C) 2010      BibLibre
7 # Parts Copyright (C) 2013      Mark Tompsett
8 #
9 # Koha is free software; you can redistribute it and/or modify it
10 # under the terms of the GNU General Public License as published by
11 # the Free Software Foundation; either version 3 of the License, or
12 # (at your option) any later version.
13 #
14 # Koha is distributed in the hope that it will be useful, but
15 # WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 # GNU General Public License for more details.
18 #
19 # You should have received a copy of the GNU General Public License
20 # along with Koha; if not, see <http://www.gnu.org/licenses>.
21
22
23 =head1 NAME
24
25 opac-MARCdetail.pl : script to show a biblio in MARC format
26
27 =head1 SYNOPSIS
28
29 =cut
30
31 =head1 DESCRIPTION
32
33 This script needs a biblionumber as  parameter
34
35 It shows the biblio in a (nice) MARC format depending on MARC
36 parameters tables.
37
38 The template is in <templates_dir>/catalogue/MARCdetail.tt.
39 this template must be divided into 11 "tabs".
40
41 The first 10 tabs present the biblio, the 11th one presents
42 the items attached to the biblio
43
44 =cut
45
46 use Modern::Perl;
47
48 use C4::Auth;
49 use C4::Context;
50 use C4::Output;
51 use CGI qw ( -utf8 );
52 use MARC::Record;
53 use C4::Biblio;
54 use C4::Items;
55 use C4::Reserves;
56 use C4::Members;
57 use C4::Acquisition;
58 use C4::Koha;
59 use List::MoreUtils qw( any uniq );
60 use Koha::RecordProcessor;
61
62 my $query = new CGI;
63
64 my $dbh = C4::Context->dbh;
65
66 my $biblionumber = $query->param('biblionumber');
67 if ( ! $biblionumber ) {
68     print $query->redirect("/cgi-bin/koha/errors/404.pl");
69     exit;
70 }
71
72 my @all_items = GetItemsInfo($biblionumber);
73 my @items2hide;
74 if (scalar @all_items >= 1) {
75     push @items2hide, GetHiddenItemnumbers(@all_items);
76
77     if (scalar @items2hide == scalar @all_items ) {
78         print $query->redirect("/cgi-bin/koha/errors/404.pl");
79         exit;
80     }
81 }
82
83 my $itemtype     = &GetFrameworkCode($biblionumber);
84 my $tagslib      = &GetMarcStructure( 0, $itemtype );
85 my ($tag_itemnumber,$subtag_itemnumber) = &GetMarcFromKohaField('items.itemnumber',$itemtype);
86 my $biblio = GetBiblioData($biblionumber);
87 $biblionumber = $biblio->{biblionumber};
88 my $record = GetMarcBiblio($biblionumber, 1);
89 if ( ! $record ) {
90     print $query->redirect("/cgi-bin/koha/errors/404.pl");
91     exit;
92 }
93 my $record_processor = Koha::RecordProcessor->new({ filters => 'ViewPolicy' });
94 $record_processor->process($record);
95
96 # open template
97 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
98     {
99         template_name   => "opac-MARCdetail.tt",
100         query           => $query,
101         type            => "opac",
102         authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
103         debug           => 1,
104     }
105 );
106
107 my ($bt_tag,$bt_subtag) = GetMarcFromKohaField('biblio.title',$itemtype);
108 $template->param(
109     bibliotitle => $biblio->{title},
110 ) if $tagslib->{$bt_tag}->{$bt_subtag}->{hidden} <= 0 && # <=0 OPAC visible.
111      $tagslib->{$bt_tag}->{$bt_subtag}->{hidden} > -8;   # except -8;
112
113 # get biblionumbers stored in the cart
114 if(my $cart_list = $query->cookie("bib_list")){
115     my @cart_list = split(/\//, $cart_list);
116     if ( grep {$_ eq $biblionumber} @cart_list) {
117         $template->param( incart => 1 );
118     }
119 }
120
121 my $allow_onshelf_holds;
122 my $borrower = GetMember( 'borrowernumber' => $loggedinuser );
123 for my $itm (@all_items) {
124     $allow_onshelf_holds = C4::Reserves::OnShelfHoldsAllowed($itm, $borrower);
125     last if $allow_onshelf_holds;
126 }
127
128 $template->param( 'AllowOnShelfHolds' => $allow_onshelf_holds );
129 $template->param( 'ItemsIssued' => CountItemsIssued( $biblionumber ) );
130
131 # adding the $RequestOnOpac param
132 my $RequestOnOpac;
133 if (C4::Context->preference("RequestOnOpac")) {
134         $RequestOnOpac = 1;
135 }
136
137 # fill arrays
138 my @loop_data = ();
139 my $tag;
140
141 # loop through each tab 0 through 9
142 for ( my $tabloop = 0 ; $tabloop <= 9 ; $tabloop++ ) {
143
144     # loop through each tag
145     my @loop_data = ();
146     my @subfields_data;
147
148     # deal with leader
149     unless ( $tagslib->{'000'}->{'@'}->{tab} ne $tabloop
150         or $tagslib->{'000'}->{'@'}->{hidden} > 0 )
151     {
152         my %subfield_data;
153         $subfield_data{marc_lib}      = $tagslib->{'000'}->{'@'}->{lib};
154         $subfield_data{marc_value}    = $record->leader();
155         $subfield_data{marc_subfield} = '@';
156         $subfield_data{marc_tag}      = '000';
157         push( @subfields_data, \%subfield_data );
158         my %tag_data;
159         $tag_data{tag} = '000 -' . $tagslib->{'000'}->{lib};
160         my @tmp = @subfields_data;
161         $tag_data{subfield} = \@tmp;
162         push( @loop_data, \%tag_data );
163         undef @subfields_data;
164     }
165     my @fields = $record->fields();
166     for ( my $x_i = 0 ; $x_i <= $#fields ; $x_i++ ) {
167
168         # if tag <10, there's no subfield, use the "@" trick
169         if ( $fields[$x_i]->tag() < 10 ) {
170             next
171               if (
172                 $tagslib->{ $fields[$x_i]->tag() }->{'@'}->{tab} ne $tabloop );
173             next if ( $tagslib->{ $fields[$x_i]->tag() }->{'@'}->{hidden} > 0 );
174             my %subfield_data;
175             $subfield_data{marc_lib} =
176               $tagslib->{ $fields[$x_i]->tag() }->{'@'}->{lib};
177             $subfield_data{marc_value}    = $fields[$x_i]->data();
178             $subfield_data{marc_subfield} = '@';
179             $subfield_data{marc_tag}      = $fields[$x_i]->tag();
180             push( @subfields_data, \%subfield_data );
181         }
182         else {
183             my @subf = $fields[$x_i]->subfields;
184             my $previous = '';
185             # loop through each subfield
186             for my $i ( 0 .. $#subf ) {
187                 $subf[$i][0] = "@" unless defined($subf[$i][0]);
188                 my $sf_def = $tagslib->{ $fields[$x_i]->tag() };
189                 $sf_def = $sf_def->{ $subf[$i][0] } if defined($sf_def);
190                 my ($tab,$hidden,$lib);
191                 $tab = $sf_def->{tab} if defined($sf_def);
192                 $tab = $tab // int($fields[$x_i]->tag()/100);
193                 $hidden = $sf_def->{hidden} if defined($sf_def);
194                 $hidden = $hidden // 0;
195                 next if ( $tab != $tabloop );
196                 next if ( $hidden > 0 );
197                 my %subfield_data;
198                 $lib = $sf_def->{lib} if defined($sf_def);
199                 $lib = $lib // '--';
200                 $subfield_data{marc_lib} = ($lib eq $previous) ?  '--' : $lib;
201                 $previous = $lib;
202                 $subfield_data{link} = $sf_def->{link};
203                 $subf[$i][1] =~ s/\n/<br\/>/g;
204                 if ( $sf_def->{isurl} ) {
205                     $subfield_data{marc_value} = "<a href=\"$subf[$i][1]\">$subf[$i][1]</a>";
206                 }
207                 elsif ( defined($sf_def->{kohafield}) && $sf_def->{kohafield} eq "biblioitems.isbn" ) {
208                     $subfield_data{marc_value} = $subf[$i][1];
209                 }
210                 else {
211                     if ( $sf_def->{authtypecode} ) {
212                         $subfield_data{authority} = $fields[$x_i]->subfield(9);
213                     }
214                     $subfield_data{marc_value} = GetAuthorisedValueDesc( $fields[$x_i]->tag(),
215                         $subf[$i][0], $subf[$i][1], '', $tagslib, '', 'opac' );
216                 }
217                 $subfield_data{marc_subfield} = $subf[$i][0];
218                 $subfield_data{marc_tag}      = $fields[$x_i]->tag();
219                 push( @subfields_data, \%subfield_data );
220             }
221         }
222         if ( $#subfields_data >= 0 ) {
223             my %tag_data;
224             if (   ( $fields[$x_i]->tag() eq $fields[ $x_i - 1 ]->tag() )
225                 && ( C4::Context->preference('LabelMARCView') eq 'economical' )
226               )
227             {
228                 $tag_data{tag} = "";
229             }
230             else {
231                 if ( C4::Context->preference('hide_marc') ) {
232                     $tag_data{tag} = $tagslib->{ $fields[$x_i]->tag() }->{lib};
233                 }
234                 else {
235                     my $sf_def = $tagslib->{ $fields[$x_i]->tag() };
236                     my $lib;
237                     $lib = $sf_def->{lib} if defined($sf_def);
238                     $lib = $lib // '';
239                     $tag_data{tag} = $fields[$x_i]->tag() . ' '
240                       . C4::Koha::display_marc_indicators($fields[$x_i])
241                       . " - $lib";
242                 }
243             }
244             my @tmp = @subfields_data;
245             $tag_data{subfield} = \@tmp;
246             push( @loop_data, \%tag_data );
247             undef @subfields_data;
248         }
249     }
250     $template->param( "tab" . $tabloop . "XX" => \@loop_data );
251 }
252
253
254 # now, build item tab !
255 # the main difference is that datas are in lines and not in columns : thus, we build the <th> first, then the values...
256 # loop through each tag
257 # warning : we may have differents number of columns in each row. Thus, we first build a hash, complete it if necessary
258 # then construct template.
259 my @fields = $record->fields();
260 my %witness
261   ; #---- stores the list of subfields used at least once, with the "meaning" of the code
262 my @item_subfield_codes;
263 my @item_loop;
264 foreach my $field (@fields) {
265     next if ( $field->tag() < 10 );
266     next if ( ( $field->tag() eq $tag_itemnumber ) &&
267               ( any { $field->subfield($subtag_itemnumber) eq $_ }
268                    @items2hide) );
269     my @subf = $field->subfields;
270     my $item;
271
272     # loop through each subfield
273     for my $i ( 0 .. $#subf ) {
274         my $sf_def = $tagslib->{ $field->tag() }->{ $subf[$i][0] };
275         next if ( ($sf_def->{tab}||0) != 10 );
276         next if ( ($sf_def->{hidden}||0) > 0 );
277         push @item_subfield_codes, $subf[$i][0];
278         $witness{ $subf[$i][0] } = $sf_def->{lib};
279
280         if ( $sf_def->{isurl} ) {
281             $item->{ $subf[$i][0] } = "<a href=\"$subf[$i][1]\">$subf[$i][1]</a>";
282         }
283         elsif ( $sf_def->{kohafield} eq "biblioitems.isbn" ) {
284             $item->{ $subf[$i][0] } = $subf[$i][1];
285         }
286         else {
287             $item->{ $subf[$i][0] } = GetAuthorisedValueDesc( $field->tag(), $subf[$i][0],
288                 $subf[$i][1], '', $tagslib, '', 'opac' );
289         }
290     }
291     push @item_loop, $item if $item;
292 }
293 my ( $holdingbrtagf, $holdingbrtagsubf ) =
294   &GetMarcFromKohaField( "items.holdingbranch", $itemtype );
295 @item_loop =
296   sort { ($a->{$holdingbrtagsubf}||'') cmp ($b->{$holdingbrtagsubf}||'') } @item_loop;
297
298 @item_subfield_codes = uniq @item_subfield_codes;
299 # fill item info
300 my @item_header_loop;
301 for my $subfield_code ( @item_subfield_codes ) {
302     push @item_header_loop, $witness{$subfield_code};
303     for my $item_data ( @item_loop ) {
304         $item_data->{$subfield_code} ||= "&nbsp;"
305      }
306 }
307
308 if ( C4::Context->preference("OPACISBD") ) {
309     $template->param( ISBD => 1 );
310 }
311
312 #Search for title in links
313 my $marcflavour  = C4::Context->preference("marcflavour");
314 my $dat = TransformMarcToKoha( $record );
315 my $isbn = GetNormalizedISBN(undef,$record,$marcflavour);
316 my $marccontrolnumber   = GetMarcControlnumber ($record, $marcflavour);
317 my $marcissns = GetMarcISSN( $record, $marcflavour );
318 my $issn = $marcissns->[0] || '';
319
320 if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
321     $dat->{title} =~ s/\/+$//; # remove trailing slash
322     $dat->{title} =~ s/\s+$//; # remove trailing space
323     $search_for_title = parametrized_url(
324         $search_for_title,
325         {
326             TITLE         => $dat->{title},
327             AUTHOR        => $dat->{author},
328             ISBN          => $isbn,
329             ISSN          => $issn,
330             CONTROLNUMBER => $marccontrolnumber,
331             BIBLIONUMBER  => $biblionumber,
332         }
333     );
334     $template->param('OPACSearchForTitleIn' => $search_for_title);
335 }
336
337 $template->param(
338     item_loop           => \@item_loop,
339     item_header_loop    => \@item_header_loop,
340     item_subfield_codes => \@item_subfield_codes,
341     biblionumber        => $biblionumber,
342 );
343
344 output_html_with_http_headers $query, $cookie, $template->output;