Bug 10020: Remove code related to ethnicity
[koha.git] / members / members-home.pl
1 #!/usr/bin/perl
2
3 # Parts Copyright Biblibre 2010
4 # This file is part of Koha.
5 #
6 # Koha is free software; you can redistribute it and/or modify it
7 # under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 3 of the License, or
9 # (at your option) any later version.
10 #
11 # Koha is distributed in the hope that it will be useful, but
12 # WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License
17 # along with Koha; if not, see <http://www.gnu.org/licenses>.
18
19 use strict;
20 use warnings;
21
22 use CGI qw ( -utf8 );
23 use C4::Auth;
24 use C4::Output;
25 use C4::Context;
26 use C4::Members;
27 use C4::Branch;
28 use C4::Category;
29 use Koha::Borrower::Modifications;
30 use Koha::List::Patron;
31
32 my $query = new CGI;
33 my $branch = $query->param('branchcode');
34
35 $branch = q{} unless defined $branch;
36
37 my ($template, $loggedinuser, $cookie)
38     = get_template_and_user({template_name => "members/member.tt",
39                  query => $query,
40                  type => "intranet",
41                  authnotrequired => 0,
42                  flagsrequired => {borrowers => 1},
43                  debug => 1,
44                  });
45
46 my $branches = GetBranches;
47 my @branchloop;
48 if ( C4::Branch::onlymine ) {
49     my $userenv = C4::Context->userenv;
50     my $branch = C4::Branch::GetBranchDetail( $userenv->{'branch'} );
51     push @branchloop, {
52         value => $branch->{branchcode},
53         branchcode => $branch->{branchcode},
54         branchname => $branch->{branchname},
55         selected => 1
56     }
57 } else {
58     foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %{$branches}) {
59         my $selected = 0;
60         $selected = 1 if $branch and $branch eq $_;
61         push @branchloop, {
62             value => $_,
63             branchcode => $_,
64             branchname => $branches->{$_}->{branchname},
65             selected => $selected
66         };
67     }
68 }
69
70 my @categories;
71 my $no_add = 0;
72 if(scalar(@branchloop) < 1){
73     $no_add = 1;
74     $template->param(no_branches => 1);
75
76 else {
77     $template->param(branchloop=>\@branchloop);
78 }
79
80 @categories=C4::Category->all;
81 if(scalar(@categories) < 1){
82     $no_add = 1;
83     $template->param(no_categories => 1);
84 }
85 else {
86     $template->param(categories=>\@categories);
87 }
88
89
90 my $pending_borrower_modifications =
91   Koha::Borrower::Modifications->GetPendingModificationsCount( $branch );
92
93 $template->param( 
94         no_add => $no_add,
95         pending_borrower_modifications => $pending_borrower_modifications,
96             );
97
98 $template->param(
99     alphabet => C4::Context->preference('alphabet') || join (' ', 'A' .. 'Z'),
100     patron_lists => [ GetPatronLists() ],
101     PatronsPerPage => C4::Context->preference("PatronsPerPage") || 20,
102 );
103
104 output_html_with_http_headers $query, $cookie, $template->output;