Bug 16996: (follow-up) Do not explode if mandatory fields are missing
[koha.git] / members / routing-lists.pl
1 #!/usr/bin/perl
2
3 # Copyright 2012 Prosentient Systems
4 #
5 # This file is part of Koha.
6 #
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.
11 #
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.
16 #
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>.
19
20 use strict;
21 #use warnings; FIXME - Bug 2505
22 use CGI qw ( -utf8 );
23 use C4::Output;
24 use C4::Auth qw/:DEFAULT/;
25 use C4::Branch; # GetBranches
26 use C4::Members;
27 use C4::Members::Attributes qw(GetBorrowerAttributes);
28 use C4::Context;
29 use C4::Serials;
30 use Koha::Patron::Images;
31 use CGI::Session;
32
33 my $query = new CGI;
34
35 my ( $template, $loggedinuser, $cookie ) = get_template_and_user (
36     {
37         template_name   => 'members/routing-lists.tt',
38         query           => $query,
39         type            => "intranet",
40         authnotrequired => 0,
41         flagsrequired   => { circulate => 'circulate_remaining_permissions' },
42     }
43 );
44
45 my $branches = GetBranches();
46
47 my $findborrower = $query->param('findborrower');
48 $findborrower =~ s|,| |g;
49
50 my $borrowernumber = $query->param('borrowernumber');
51
52 my $branch = C4::Context->userenv->{'branch'};
53
54 # get the borrower information.....
55 my $borrower;
56 if ($borrowernumber) {
57     $borrower = GetMemberDetails( $borrowernumber, 0 );
58 }
59
60
61 ##################################################################################
62 # BUILD HTML
63 # I'm trying to show the title of subscriptions where the borrowernumber is attached via a routing list
64
65 if ($borrowernumber) {
66 # new op dev
67   my $count;
68   my @borrowerSubscriptions;
69   ($count, @borrowerSubscriptions) = GetSubscriptionsFromBorrower($borrowernumber );
70   my @subscripLoop;
71
72     foreach my $num_res (@borrowerSubscriptions) {
73         my %getSubscrip;
74         $getSubscrip{subscriptionid}    = $num_res->{'subscriptionid'};
75         $getSubscrip{title}                     = $num_res->{'title'};
76         $getSubscrip{borrowernumber}            = $num_res->{'borrowernumber'};
77         push( @subscripLoop, \%getSubscrip );
78     }
79
80     $template->param(
81         countSubscrip => scalar @subscripLoop,
82         subscripLoop  => \@subscripLoop,
83         routinglistview => 1
84     );
85
86     $template->param( adultborrower => 1 ) if ( $borrower->{'category_type'} eq 'A' );
87 }
88
89 ##################################################################################
90
91 $template->param(%$borrower);
92
93 $template->param(
94     findborrower      => $findborrower,
95     borrower          => $borrower,
96     borrowernumber    => $borrowernumber,
97     branch            => $branch,
98     branchname        => GetBranchName($borrower->{'branchcode'}),
99     categoryname      => $borrower->{description},
100     RoutingSerials    => C4::Context->preference('RoutingSerials'),
101 );
102
103 if (C4::Context->preference('ExtendedPatronAttributes')) {
104     my $attributes = GetBorrowerAttributes($borrowernumber);
105     $template->param(
106         ExtendedPatronAttributes => 1,
107         extendedattributes => $attributes
108     );
109 }
110
111 my $patron_image = Koha::Patron::Images->find($borrower->{borrowernumber});
112 $template->param( picture => 1 ) if $patron_image;
113
114 output_html_with_http_headers $query, $cookie, $template->output;