version 1.1, 2001/09/25 17:30:00
|
version 1.2, 2001/09/25 17:35:03
|
Line 80 my $dbh;
|
Line 80 my $dbh;
|
} |
} |
%perlvar=(); # undefine it |
%perlvar=(); # undefine it |
|
|
print "testmsg\n"; |
|
# ------------------------ Loop through database records and print out keywords |
# ------------------------ Loop through database records and print out keywords |
my $sth=$dbh->prepare("select * from metadata"); |
my $sth=$dbh->prepare("select * from metadata"); |
$sth->execute(); |
$sth->execute(); |
my @row; |
my @row; |
while (@row=$sth->fetchrow_array) { |
while (@row=$sth->fetchrow_array) { |
print 'ROW:'.$row[4]."\n"; |
print $row[4]."\n"; |
} |
} |
|
|
# --------------------------------------------------- Close database connection |
# --------------------------------------------------- Close database connection |