foreach (keys %$suggestion_ref){
delete $$suggestion_ref{$_} if (!$$suggestion_ref{$_} && ($op eq 'else' || $op eq 'change'));
}
-my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
+my ( $template, $borrowernumber, $cookie, $userflags ) = get_template_and_user(
{
template_name => "suggestion/suggestion.tmpl",
query => $input,
my $bud = GetBudget( $suggestion->{budgetid} );
$suggestion->{budget_name} = $bud->{budget_name} if $bud;
}
- foreach my $date qw(suggesteddate manageddate accepteddate) {
- if ($suggestion->{$date} and $suggestion->{$date} ne "0000-00-00" && $suggestion->{$date} ne "" ) {
+ foreach my $date (qw(suggesteddate manageddate accepteddate)) {
+ if ($suggestion->{$date} and $suggestion->{$date} ne "0000-00-00") {
$suggestion->{$date} = format_date( $suggestion->{$date} );
} else {
$suggestion->{$date} = "";
}
}
- foreach my $date ( qw(suggesteddate manageddate accepteddate) ){
- if ($suggestion->{$date} ne "0000-00-00" && $suggestion->{$date} ne "" ){
- $suggestion->{$date}=format_date($suggestion->{$date}) ;
- } else {
- $suggestion->{$date}="" ;
- }
- }
}
push @allsuggestions,{
"suggestiontype"=>$criteriumvalue||"suggest",
$budgets = GetBudgets(undef);
}
+my @budgets_loop;
foreach my $budget ( @{$budgets} ) {
-## Please see file perltidy.ERR
- $budget->{'selected'}=1 if ($$suggestion_ref{'budgetid'} && $budget->{'budget_id'} eq $$suggestion_ref{'budgetid'})
-};
+ next unless (CanUserUseBudget($borrowernumber, $budget, $userflags));
+
+ ## Please see file perltidy.ERR
+ $budget->{'selected'} = 1
+ if ($$suggestion_ref{'budgetid'}
+ && $budget->{'budget_id'} eq $$suggestion_ref{'budgetid'});
+
+ push @budgets_loop, $budget;
+}
-$template->param( budgetsloop => $budgets);
+$template->param( budgetsloop => \@budgets_loop);
$template->param( "statusselected_$$suggestion_ref{'STATUS'}" =>1) if ($$suggestion_ref{'STATUS'});
# get currencies and rates