acqui/acqui-home.pl

   1 #!/usr/bin/perl
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it under the
   6 # terms of the GNU General Public License as published by the Free Software
   7 # Foundation; either version 2 of the License, or (at your option) any later
   8 # version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License along with
  15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  16 # Suite 330, Boston, MA  02111-1307 USA
  17
  18
  19
  20 =head1 NAME
  21
  22 acqui-home.pl
  23
  24 =head1 DESCRIPTION
  25
  26 this script is the main page for acqui/
  27 It presents the budget's dashboard, another table about differents currency with
  28 their rates and the pending suggestions.
  29
  30 =head1 CGI PARAMETERS
  31
  32 =over 4
  33
  34 =item $status
  35 C<$status> is the status a suggestion could has. Default value is 'ASKED'.
  36 thus, it can be REJECTED, ACCEPTED, ORDERED, ASKED, AVAIBLE
  37
  38 =back
  39
  40 =cut
  41
  42 use strict;
  43 use CGI;
  44 use C4::Auth;
  45 use C4::Output;
  46
  47 use C4::Suggestions;
  48
  49 use C4::Acquisition;
  50 use C4::Bookfund;
  51 use C4::Members;
  52
  53 my $query = new CGI;
  54 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
  55     {
  56         template_name   => "acqui/acqui-home.tmpl",
  57         query           => $query,
  58         type            => "intranet",
  59         authnotrequired => 0,
  60         flagsrequired   => { acquisition => 1 },
  61         debug           => 1,
  62     }
  63 );
  64
  65 # budget
  66 my $borrower= GetMember($loggedinuser);
  67 my ( $flags, $homebranch )= ($borrower->{'flags'},$borrower->{'branchcode'});
  68
  69 my @results = GetBookFunds($homebranch);
  70 my $count = scalar @results;
  71
  72 my $classlist   = '';
  73 my $total       = 0;
  74 my $totspent    = 0;
  75 my $totcomtd    = 0;
  76 my $totavail    = 0;
  77 my @loop_budget = ();
  78
  79 for (my $i=0; $i<$count; $i++){
  80         my ($spent,$comtd)=GetBookFundBreakdown($results[$i]->{'bookfundid'},$results[$i]->{'startdate'},$results[$i]->{'enddate'});
  81         my $avail=$results[$i]->{'budgetamount'}-($spent+$comtd);
  82         my %line;
  83         $line{bookfundname} = $results[$i]->{'bookfundname'};
  84         $line{budgetamount} = $results[$i]->{'budgetamount'};
  85         $line{aqbudgetid} = $results[$i]->{'aqbudgetid'};
  86         $line{bookfundid} = $results[$i]->{'bookfundid'};
  87         $line{sdate} = $results[$i]->{'startdate'};
  88         $line{edate} = $results[$i]->{'enddate'};
  89         $line{spent} = sprintf  ("%.2f", $spent);
  90         $line{comtd} = sprintf  ("%.2f",$comtd);
  91         $line{avail}  = sprintf  ("%.2f",$avail);
  92         push @loop_budget, \%line;
  93         $total+=$results[$i]->{'budgetamount'};
  94         $totspent+=$spent;
  95         $totcomtd+=$comtd;
  96         $totavail+=$avail;
  97 }
  98
  99 # currencies
 100 my @rates = GetCurrencies();
 101 $count = scalar @rates;
 102
 103 my @loop_currency = ();
 104 for ( my $i = 0 ; $i < $count ; $i++ ) {
 105     my %line;
 106     $line{currency} = $rates[$i]->{'currency'};
 107     $line{rate}     = $rates[$i]->{'rate'};
 108     push @loop_currency, \%line;
 109 }
 110
 111 # suggestions
 112 my $status           = $query->param('status') || "ASKED";
 113 my $suggestion       = CountSuggestion($status);
 114 my $suggestions_loop = &SearchSuggestion( '', '', '', '', $status, '' );
 115
 116 $template->param(
 117     classlist        => $classlist,
 118     type             => 'intranet',
 119     loop_budget      => \@loop_budget,
 120     loop_currency    => \@loop_currency,
 121     total            => sprintf( "%.2f", $total ),
 122     suggestion       => $suggestion,
 123     suggestions_loop => $suggestions_loop,
 124     totspent         => sprintf( "%.2f", $totspent ),
 125     totcomtd         => sprintf( "%.2f", $totcomtd ),
 126     totavail         => sprintf( "%.2f", $totavail ),
 127     nobudget         => $#results == -1 ? 1 : 0
 128 );
 129
 130 output_html_with_http_headers $query, $cookie, $template->output;