Lines 38-43
use C4::Budgets;
Link Here
|
38 |
use C4::Members; |
38 |
use C4::Members; |
39 |
use C4::Branch; |
39 |
use C4::Branch; |
40 |
use C4::Debug; |
40 |
use C4::Debug; |
|
|
41 |
use C4::Suggestions; |
41 |
|
42 |
|
42 |
my $query = CGI->new; |
43 |
my $query = CGI->new; |
43 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
44 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
Lines 74-79
if ( $cur_format eq 'FR' ) {
Link Here
|
74 |
); |
75 |
); |
75 |
} |
76 |
} |
76 |
|
77 |
|
|
|
78 |
my $status = $query->param('status') || "ASKED"; |
79 |
my $suggestions_count = CountSuggestion($status); |
80 |
|
77 |
my $budget_arr = |
81 |
my $budget_arr = |
78 |
GetBudgetHierarchy( '', $user->{branchcode}, |
82 |
GetBudgetHierarchy( '', $user->{branchcode}, |
79 |
$template->{param_map}->{'USER_INFO'}[0]->{'borrowernumber'} ); |
83 |
$template->{param_map}->{'USER_INFO'}[0]->{'borrowernumber'} ); |
Lines 123-129
foreach my $budget ( @{$budget_arr} ) {
Link Here
|
123 |
} |
127 |
} |
124 |
|
128 |
|
125 |
$template->param( |
129 |
$template->param( |
126 |
|
|
|
127 |
type => 'intranet', |
130 |
type => 'intranet', |
128 |
loop_budget => $budget_arr, |
131 |
loop_budget => $budget_arr, |
129 |
branchname => $branchname, |
132 |
branchname => $branchname, |
Lines 132-137
$template->param(
Link Here
|
132 |
totordered => $num_formatter->format_price($totordered), |
135 |
totordered => $num_formatter->format_price($totordered), |
133 |
totcomtd => $num_formatter->format_price($totcomtd), |
136 |
totcomtd => $num_formatter->format_price($totcomtd), |
134 |
totavail => $num_formatter->format_price($totavail), |
137 |
totavail => $num_formatter->format_price($totavail), |
|
|
138 |
suggestions_count => $suggestions_count, |
135 |
); |
139 |
); |
136 |
|
140 |
|
137 |
output_html_with_http_headers $query, $cookie, $template->output; |
141 |
output_html_with_http_headers $query, $cookie, $template->output; |