Well, yes, because you should fetch query results and go through them.
This code should work, if the original code was correct:
Code:
sub {
my $app_gmail_userid = shift;
require GT::SQL;
my $sth = $DB->table('comm_users')->select( {
app_gmail_email_username=> $app_gmail_userid,
app_gmail_email_domain => $app_gmail_userid,
app_gmail => 2,
});
while (my $row = $sth->fetchrow_hashref) {
my @cut = split /\n/, $hit->{prof_OwnedPrograms};
foreach my $field (sort keys %{$row}) {
$result .= qq|$key: $row->{$field} <br>\n|;
}
$result .= qq|Next row:<br>\n|;
}
return $result;
}
<%my($app_gmail_email_username)%>@<%my($app_gmail_email_domain)%>
It should display the key-value pairs from the result for each row. Not tested.
Modify it as you need.
Best regards,
Webmaster33
Paid Support from Webmaster33. Expert in Perl programming & Gossamer Threads applications. (click here for prices)
Webmaster33's products (upd.2004.09.26) | Private message | Contact me | Was my post helpful? Donate my help...
