my $type = shift;
	my $dbh = DB_File::connect();
	$sth = $dbh->prepare (qq{ SELECT name,content FROM page_vars WHERE type = ? });
	$sth->execute($type);
	while ( my ($db_name,$db_content) = $sth->fetchrow_hashref() ) {
		${$db_name} = $db_content;
	}
	$sth->finish();
	return 1;