loncom/cgi/metadata_keywords.pl - diff

Return to metadata_keywords.pl CVS log

Up to [LON-CAPA] / loncom / cgi

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