sub getGrades {
	my $grades;
	my @keys = $template->param;

	# Look for the grade parameters and add each one to $grades
	foreach (@keys) {
		$grades .= $1 . ',' if /^Grade([1-9]|1[0-2]|K)$/;
	}
	$grades =~ s/,$//; # remove trailing comma
	return $grades;
}