- or download this
$retHashRef{$viewItem[0]} = $viewStr;
- or download this
foreach my $row (keys %$dbDDL) {
push @rowArr, '<pre> ' . '<font size=2>' .$dbDDL->{$row} . '</font>'
+. '</pre>' ;
&P3::util::HTML::doTableDetailRow($altColor, @rowArr);
}
- or download this
module name : Dbschema.pm
this is portion of method that populate the hash for string.
...
$pDDL .= "$goTxt";
}
$retHashRef{PROC} = $pDDL;
- or download this
This is the script that does take care of displaying og HTML
...
push @rowArr, '<pre> ' . '<font size=2>' .$dbDDL->{$row}
+. '</font>' . '</pre>' ;
&P3::util::HTML::doTableDetailRow($altColor, @rowArr);
}