my $numfiles = 0;
            opendir DIR, "$config{'basepath'}$key" or &oops("Category directory $key could not be opened.");
		readdir DIR;readdir DIR;
		while ($_ = readdir DIR){$numfiles++ if /\d.dat/o }
            closedir DIR;