view release on metacpan or  search on metacpan

lib/Biblio/Thesaurus/SQLite.pm  view on Meta::CPAN

	}
	$res .= '</table>';

	return $res;
}

##
# Does the same thing as the previous method, but outputs the data in an
# 	ISO Thesaurus format
# @param .....
# @param guess w00t ?
sub getTermAsISOthe {
	my $termo = shift or die;
	my $dbfile = shift or die;

	# connect to the database
	my $db  = DBIx::Simple->connect('dbi:SQLite:' . $dbfile)
		or die DBIx::Simple->error;

	my $count;
	$db->query(