3 # Copyright 2012 Prosentient Systems
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>.
21 #use warnings; FIXME - Bug 2505
24 use C4
::Auth qw
/:DEFAULT get_session/;
25 use C4
::Branch
; # GetBranches
27 use C4
::Members
::Attributes
qw(GetBorrowerAttributes);
30 use Koha
::Patron
::Images
;
35 my $sessionID = $query->cookie("CGISESSID") ;
36 my $session = get_session
($sessionID);
38 # branch are now defined by the userenv
39 # but first we have to check if someone has tried to change them
41 my $branch = $query->param('branch');
43 # update our session so the userenv is updated
44 $session->param('branch', $branch);
45 $session->param('branchname', GetBranchName
($branch));
48 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
50 template_name
=> 'members/routing-lists.tt',
54 flagsrequired
=> { circulate
=> 'circulate_remaining_permissions' },
58 my $branches = GetBranches
();
60 my $findborrower = $query->param('findborrower');
61 $findborrower =~ s
|,| |g
;
63 my $borrowernumber = $query->param('borrowernumber');
65 $branch = C4
::Context
->userenv->{'branch'};
67 # get the borrower information.....
69 if ($borrowernumber) {
70 $borrower = GetMemberDetails
( $borrowernumber, 0 );
74 ##################################################################################
76 # I'm trying to show the title of subscriptions where the borrowernumber is attached via a routing list
78 if ($borrowernumber) {
81 my @borrowerSubscriptions;
82 ($count, @borrowerSubscriptions) = GetSubscriptionsFromBorrower
($borrowernumber );
85 foreach my $num_res (@borrowerSubscriptions) {
87 $getSubscrip{subscriptionid
} = $num_res->{'subscriptionid'};
88 $getSubscrip{title
} = $num_res->{'title'};
89 $getSubscrip{borrowernumber
} = $num_res->{'borrowernumber'};
90 push( @subscripLoop, \
%getSubscrip );
94 countSubscrip
=> scalar @subscripLoop,
95 subscripLoop
=> \
@subscripLoop,
99 $template->param( adultborrower
=> 1 ) if ( $borrower->{'category_type'} eq 'A' );
102 ##################################################################################
105 $template->param(%$borrower);
108 findborrower
=> $findborrower,
109 borrower
=> $borrower,
110 borrowernumber
=> $borrowernumber,
112 branchname
=> GetBranchName
($borrower->{'branchcode'}),
113 categoryname
=> $borrower->{description
},
114 RoutingSerials
=> C4
::Context
->preference('RoutingSerials'),
117 if (C4
::Context
->preference('ExtendedPatronAttributes')) {
118 my $attributes = GetBorrowerAttributes
($borrowernumber);
120 ExtendedPatronAttributes
=> 1,
121 extendedattributes
=> $attributes
125 my $patron_image = Koha
::Patron
::Images
->find($borrower->{borrowernumber
});
126 $template->param( picture
=> 1 ) if $patron_image;
128 output_html_with_http_headers
$query, $cookie, $template->output;