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