$linkqf{'query'}= 'commod';
$linkqf{'commodstring'}= $t->{'commodname'};
$linkqf{'commodid'}= $t->{'commodid'};
- my $linkqfpr= $quri->(%linkqf);
+ my $linkqfpr= encode_entities( $quri->(%linkqf) );
my $commodnamepr= encode_entities($t->{'commodname'});
$plan_html .= tr_datarow_s($m,$dline) . <<END;
<$td>$collectdeliver
<$td align=right>$t->{Total} total
END
foreach my $stallix (1..$#stalls) {
- tr_datarow_s($m,$dline);
+ $plan_html .= tr_datarow_s($m,$dline);
$pstall->($stallix);
}