Jonathan Druart
0ab22e1c7c
In order to simplify and make uniform the code, the controller scripts send a Koha::Patron object to the templates instead of all attributes of a patron. That will make the code much more easier to maintain and will be less error-prone. The variable "patron" sent to the templates is supposed to represent the patron the librarian is editing the detail. In the members module and some scripts of the circulation module, the patron's detail are sent one by one to the template. That leads to frustration from developpers (making sure everything is passed from all scripts) and to regression (we got tone of bugs in the last year because of this way to do). With this patch set it will be easy access patron's detail, passing only 1 variable from the controllers. Test plan: Play with the patron and circulation module and make sur the detail of the patron you are editing/seeing info are correctly displayed. Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Josef Moravec <josef.moravec@gmail.com> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
130 lines
3.6 KiB
Perl
Executable file
130 lines
3.6 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright 2008 - 2009 BibLibre SARL
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
=head1 NAME
|
|
|
|
acqui-home.pl
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
this script is the main page for acqui
|
|
|
|
=cut
|
|
|
|
use Modern::Perl;
|
|
|
|
use CGI qw ( -utf8 );
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
use C4::Acquisition;
|
|
use C4::Budgets;
|
|
use C4::Members;
|
|
use C4::Debug;
|
|
use C4::Suggestions;
|
|
use Koha::Acquisition::Currencies;
|
|
use Koha::Patrons;
|
|
|
|
my $query = CGI->new;
|
|
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
|
|
{ template_name => 'acqui/acqui-home.tt',
|
|
query => $query,
|
|
type => 'intranet',
|
|
authnotrequired => 0,
|
|
flagsrequired => { acquisition => '*' },
|
|
debug => 1,
|
|
}
|
|
);
|
|
|
|
my $status = $query->param('status') || "ASKED";
|
|
my $suggestions_count = CountSuggestion($status);
|
|
|
|
my $budget_arr = GetBudgetHierarchy;
|
|
|
|
my $total = 0;
|
|
my $totspent = 0;
|
|
my $totordered = 0;
|
|
my $totcomtd = 0;
|
|
my $totavail = 0;
|
|
|
|
my $total_active = 0;
|
|
my $totspent_active = 0;
|
|
my $totordered_active = 0;
|
|
my $totavail_active = 0;
|
|
|
|
my @budget_loop;
|
|
foreach my $budget ( @{$budget_arr} ) {
|
|
next unless (CanUserUseBudget($loggedinuser, $budget, $userflags));
|
|
|
|
my $patron = Koha::Patrons->find( $budget->{budget_owner_id} );
|
|
if ( $patron ) {
|
|
$budget->{budget_owner} = $patron;
|
|
}
|
|
|
|
if ( !defined $budget->{budget_amount} ) {
|
|
$budget->{budget_amount} = 0;
|
|
}
|
|
|
|
$budget->{'budget_ordered'} = GetBudgetOrdered( $budget->{'budget_id'} );
|
|
$budget->{'budget_spent'} = GetBudgetSpent( $budget->{'budget_id'} );
|
|
if ( !defined $budget->{budget_spent} ) {
|
|
$budget->{budget_spent} = 0;
|
|
}
|
|
if ( !defined $budget->{budget_ordered} ) {
|
|
$budget->{budget_ordered} = 0;
|
|
}
|
|
$budget->{'budget_avail'} =
|
|
$budget->{'budget_amount'} - ( $budget->{'budget_spent'} + $budget->{'budget_ordered'} );
|
|
|
|
$total += $budget->{'budget_amount'};
|
|
$totspent += $budget->{'budget_spent'};
|
|
$totordered += $budget->{'budget_ordered'};
|
|
$totavail += $budget->{'budget_avail'};
|
|
|
|
if ($budget->{budget_period_active}){
|
|
$total_active += $budget->{'budget_amount'};
|
|
$totspent_active += $budget->{'budget_spent'};
|
|
$totordered_active += $budget->{'budget_ordered'};
|
|
$totavail_active += $budget->{'budget_avail'};
|
|
}
|
|
|
|
push @budget_loop, $budget;
|
|
}
|
|
|
|
$template->param(
|
|
type => 'intranet',
|
|
loop_budget => \@budget_loop,
|
|
total => $total,
|
|
totspent => $totspent,
|
|
totordered => $totordered,
|
|
totcomtd => $totcomtd,
|
|
totavail => $totavail,
|
|
total_active => $total_active,
|
|
totspent_active => $totspent_active,
|
|
totordered_active => $totordered_active,
|
|
totavail_active => $totavail_active,
|
|
suggestions_count => $suggestions_count,
|
|
);
|
|
|
|
my $cur = Koha::Acquisition::Currencies->get_active;
|
|
if ( $cur ) {
|
|
$template->param(
|
|
currency => $cur->currency,
|
|
);
|
|
}
|
|
|
|
output_html_with_http_headers $query, $cookie, $template->output;
|