let handle_grade_team cgi = handle_generic "grade"
(fun _ t p g ->
let grad = try float_of_string (get_html_arg cgi "grade")
with _ -> 0.0 in
give_mark_to_team g p t grad;
flush stdout;) cgi