"Fossies" - the Fresh Open Source Software Archive

Member "koha-19.11.15/members/members-home.pl" (23 Feb 2021, 2364 Bytes) of package /linux/misc/koha-19.11.15.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "members-home.pl" see the Fossies "Dox" file reference documentation and the last Fossies "Diffs" side-by-side code changes report: 20.05.06_vs_20.11.00.

    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 Modern::Perl;
   20 
   21 use CGI qw ( -utf8 );
   22 use C4::Auth;
   23 use C4::Output;
   24 use C4::Context;
   25 use C4::Members;
   26 use Koha::Patron::Modifications;
   27 use Koha::Libraries;
   28 use Koha::List::Patron;
   29 use Koha::Patron::Categories;
   30 
   31 my $query = new CGI;
   32 
   33 my ($template, $loggedinuser, $cookie, $flags)
   34     = get_template_and_user({template_name => "members/member.tt",
   35                  query => $query,
   36                  type => "intranet",
   37                  flagsrequired => {borrowers => 'edit_borrowers'},
   38                  debug => 1,
   39                  });
   40 
   41 my $no_add = 0;
   42 if( Koha::Libraries->search->count < 1){
   43     $no_add = 1;
   44     $template->param(no_branches => 1);
   45 }
   46 
   47 my @categories = Koha::Patron::Categories->search_limited;
   48 if(scalar(@categories) < 1){
   49     $no_add = 1;
   50     $template->param(no_categories => 1);
   51 }
   52 else {
   53     $template->param(categories=>\@categories);
   54 }
   55 
   56 my $branch =
   57   (      C4::Context->preference("IndependentBranchesPatronModifications")
   58       || C4::Context->preference("IndependentBranches") )
   59   && !$flags->{'superlibrarian'}
   60   ? C4::Context->userenv()->{'branch'}
   61   : undef;
   62 
   63 my $pending_borrower_modifications = Koha::Patron::Modifications->pending_count( $branch );
   64 
   65 $template->param( 
   66         no_add => $no_add,
   67         pending_borrower_modifications => $pending_borrower_modifications,
   68             );
   69 
   70 $template->param(
   71     alphabet => C4::Context->preference('alphabet') || join (' ', 'A' .. 'Z'),
   72     PatronAutoComplete => C4::Context->preference('PatronAutoComplete'),
   73     patron_lists => [ GetPatronLists() ],
   74     PatronsPerPage => C4::Context->preference("PatronsPerPage") || 20,
   75 );
   76 
   77 output_html_with_http_headers $query, $cookie, $template->output;