let print_team_txt gl stu team =
let resp = if (!do_assign_resp) then
Printf.sprintf "%s," (resp_to_string team.r) else "" in
let stim = (if (team.n<0) then "_" else (string_of_int team.n)) in
let grad = student_grade stu team.proj in
let sgrad = (if (grad > 0.) then
if (String.compare stu.login (!loginsel) == 0) then
Printf.sprintf ",%s" (string_to_blue (Printf.sprintf "%.1f" grad))
else if (((String.length !loginsel)>0) &&
(belong_to_same_team_as (find_student gl !loginsel) stu team.proj)) then
Printf.sprintf ",%s" (string_to_green (Printf.sprintf "%.1f" grad))
else
Printf.sprintf ",%s" (string_to_red (Printf.sprintf "%.1f" grad))
else "") in
let stra = Printf.sprintf "(%s%s%s) " resp stim sgrad in
cut_string_to_length "" stra
(if (!do_color_terminal) then
if (!do_assign_resp)
then if (grad>0.) then 22 else 11
else if (grad>0.) then 20 else 9
else 11)