forward port of placeholder parameter fix

This commit is contained in:
Colin Kuskie 2006-11-04 16:24:46 +00:00
parent 23f32fd1e9
commit 7c8fde9aa6
3 changed files with 9 additions and 4 deletions

View file

@ -515,8 +515,9 @@ sub _parsePlaceholderParams {
my $params = shift;
my @placeholderParams;
foreach my $row (split(/\n/,$params)) {
chop($row) if ($row =~ m/\s+$/);
next if ($row =~ /^\s*$/);
$row =~ s/^\s+//;
$row =~ s/\s+$//;
next if ($row eq '');
my ($type,$field) = split(/:/,$row);
my $param;
if($type =~ /^form/) {
@ -524,6 +525,9 @@ sub _parsePlaceholderParams {
} elsif ($type =~ /^query(\d)/) {
$param = $self->{_query}{$1}{rowData}{$field};
}
else {
$param = $row;
}
WebGUI::Macro::process($self->session,\$param);
push(@placeholderParams, $param);
}