##
foreach my $row (keys %$dbDDL) {
push @rowArr, ' ' . '' .$dbDDL->{$row} . '' . '
' ;
&P3::util::HTML::doTableDetailRow($altColor, @rowArr);
}
##
##
module name : Dbschema.pm
this is portion of method that populate the hash for string.
sub getViewProcs
{
my $lineNo=0;
my $text;
while (my $row = $sth->fetchrow_arrayref()) { ## Store all columns value in array of hash
#Add ownership information to views
$text = $row->[0];
if ( !$lineNo ) {
$text =~ s/^\s*create\s+view\s+$viewItem[0]\s+/create view $viewItem[1].$viewItem[0] /i;
}
$lineNo++;
for (my $i=0;$igetViewProcs($dbase,'P');
if($procDDL){
foreach my $procStr (keys %$procDDL) {
$pDDL .= "$procDDL->{$procStr}";
}
$pDDL .= "$goTxt";
}
$retHashRef{PROC} = $pDDL;
##
##
This is the script that does take care of displaying og HTML
my ($dbDDL) = $dbObj->getDbSchema($sourcedb,'%');
&P3::util::HTML::startTable("$sourcedb ",undef,undef,undef,undef,$colexp);
foreach my $row (keys %$dbDDL) {
&P3::util::HTML::doTableColAttributes(''); # Reset the Column Attributes
$altColor = !$altColor;
my @rowArr;
push @rowArr, ' ' . '' .$dbDDL->{$row} . '' . '
' ;
&P3::util::HTML::doTableDetailRow($altColor, @rowArr);
}