merging new_acq fix: budget_parent dropbox was wrong

(Probably need to patch SAN-OP branch as well)
This commit is contained in:
Paul Poulain 2009-04-30 17:28:09 +02:00 committed by Henri-Damien LAURENT
parent d3256680a2
commit 80227720fe

View file

@ -200,9 +200,9 @@ if ($op eq 'add_form') {
}
push @values, '';
# if no buget_id is passed then its an add
my $budget_dropbox;
my $budget_parent_dropbox;
my $budget_parent_id = $budget->{'budget_parent_id'} if $budget;
$budget_dropbox = CGI::scrolling_list(
$budget_parent_dropbox = CGI::scrolling_list(
-name => 'budget_parent_id',
-values => \@values,
-default => $budget_parent_id ? $budget_parent_id : undef,
@ -210,7 +210,6 @@ if ($op eq 'add_form') {
-style => "min-width:100px;",
-labels => \%labels,
);
my $budget_parent_dropbox =~ s/\~/ /g; #
my $branches = GetBranches;
my @branchloop_select;