+
+ my %hash = ();
+ my $hashref = undef;
+ while ( $hashref = $sth->fetchrow_hashref ) {
+ %hash = %{$hashref};
+ $hash{'EMAIL'} = '<A HREF="mailto:'. $hash{'EMAIL'}. '">'.
+ $hash{'EMAIL'}. "</A>";
+ $hash{'HOMEPAGE'} = 'http://'. $hash{'HOMEPAGE'}
+ unless $hash{'HOMEPAGE'} =~ /^http\:\/\//;
+ $hash{'HOMEPAGE'} = '<A HREF="'. $hash{'HOMEPAGE'}. '">'.
+ $hash{'HOMEPAGE'}. "</A>";
+ print $cgi->tr( map { $cgi->td( $hash{$_} ) } @columns );
+ }
+ print $cgi->end_table;
+