version 1.576, 2017/07/10 13:55:36
|
version 1.577, 2017/07/13 13:57:48
|
Line 1566 sub print_td {
|
Line 1566 sub print_td {
|
} |
} |
} |
} |
if ($nolink) { |
if ($nolink) { |
$r->print(&valout($$outpar[$which],$$typeoutpar[$which],$mprefix)); |
my ($parmname)=((split(/\&/,$mprefix))[1]=~/\_([^\_]+)$/); |
# FIXME: probably a good thing that mprefix is not used in valout, because it does not look like a parameter name ! |
$r->print(&valout($$outpar[$which],$$typeoutpar[$which],$parmname)); |
} else { |
} else { |
$r->print(&plink($$typeoutpar[$which], |
$r->print(&plink($$typeoutpar[$which], |
$$display{$value},$$outpar[$which], |
$$display{$value},$$outpar[$which], |