foreach $category (@categories) {
			if ($category =~ /^([^:]+):/) {
				$category = $1;
			}
			push (@categories_to_print, $category) unless  $categories_to_print[$#categories_to_print] eq $category;
		}
		my @categories_to_print = (sort @categories_to_print);