let actions_form (hpr:string -> unit) =
hpr "<form method='post' action =''>\n";
hpr (Printf.sprintf "<input type='hidden' value='%s' name='etud_file'/>\n" !etud_file);
hpr "<input type='submit' value='Add project' name='action' class='buttonst'/>\n";
hpr "<input type='submit' value='Del project' name='action' class='buttonst'/>\n";
hpr "<input type='submit' value='Copy project' name='action' class='buttonst'/>\n";
hpr "</form>\n"