Code to allow the associated borrowers to work
[koha.git] / acqui / acqui-home.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use CGI;
5 use C4::Auth;
6 use C4::Output;
7 use C4::Interface::CGI::Output;
8 use C4::Database;
9 use C4::Suggestions;
10 use HTML::Template;
11 use C4::Acquisition;
12
13 my $query = new CGI;
14 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
15     {
16         template_name   => "acqui/acqui-home.tmpl",
17         query           => $query,
18         type            => "intranet",
19         authnotrequired => 0,
20         flagsrequired   => { acquisition => 1 },
21         debug           => 1,
22     }
23 );
24
25 # budget
26 my $dbh     = C4::Context->dbh;
27 my $sthtemp =
28   $dbh->prepare(
29     "Select flags, branchcode from borrowers where borrowernumber = ?");
30 $sthtemp->execute($loggedinuser);
31 my ( $flags, $homebranch ) = $sthtemp->fetchrow;
32
33 my ( $count, @results ) = bookfunds($homebranch);
34 my $classlist   = '';
35 my $total       = 0;
36 my $totspent    = 0;
37 my $totcomtd    = 0;
38 my $totavail    = 0;
39 my @loop_budget = ();
40 for ( my $i = 0 ; $i < $count ; $i++ ) {
41
42     if ( $toggle eq 0 ) {
43         $toggle = 1;
44     }
45     else {
46         $toggle = 0;
47     }
48     my ( $spent, $comtd ) = bookfundbreakdown( $results[$i]->{'bookfundid'} );
49
50     my $avail = $results[$i]->{'budgetamount'} - ( $spent + $comtd );
51     my %line;
52     $line{bookfundname} = $results[$i]->{'bookfundname'};
53     $line{budgetamount} = $results[$i]->{'budgetamount'};
54     $line{bookfundid}   = $results[$i]->{'bookfundid'};
55     $line{sdate}        = $results[$i]->{'startdate'};
56     $line{edate}        = $results[$i]->{'enddate'};
57     $line{aqbudgetid}   = $results[$i]->{'aqbudgetid'};
58     $line{spent}        = sprintf( "%.2f", $spent );
59     $line{comtd}        = sprintf( "%.2f", $comtd );
60     $line{avail}        = sprintf( "%.2f", $avail );
61     $line{'toggle'}     = $toggle;
62     push @loop_budget, \%line;
63     $total    += $results[$i]->{'budgetamount'};
64     $totspent += $spent;
65     $totcomtd += $comtd;
66     $totavail += $avail;
67 }
68
69 #currencies
70 my $rates;
71 ( $count, $rates ) = getcurrencies();
72 my @loop_currency = ();
73 for ( my $i = 0 ; $i < $count ; $i++ ) {
74     my %line;
75     $line{currency} = $rates->[$i]->{'currency'};
76     $line{rate}     = $rates->[$i]->{'rate'};
77     push @loop_currency, \%line;
78 }
79
80 # suggestions ?
81 my $status           = $query->param('status') || "ASKED";
82 my $suggestion       = countsuggestion($status);
83 my $suggestions_loop = &searchsuggestion( '', '', '', '', $status, '' );
84
85 $template->param(
86     classlist        => $classlist,
87     type             => 'intranet',
88     loop_budget      => \@loop_budget,
89     loop_currency    => \@loop_currency,
90     total            => sprintf( "%.2f", $total ),
91     suggestion       => $suggestion,
92     suggestions_loop => $suggestions_loop,
93     totspent         => sprintf( "%.2f", $totspent ),
94     totcomtd         => sprintf( "%.2f", $totcomtd ),
95     totavail         => sprintf( "%.2f", $totavail ),
96     nobudget         => $#results == -1 ? 1 : 0
97 );
98
99 output_html_with_http_headers $query, $cookie, $template->output;