$retHashRef{$viewItem[0]} = $viewStr; #### 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); }