anchor.diff:                             game_history(Step, GameID, FullHistory))]));
              true -> ChessTable
           end ++
  +        if AutoRefresh ->
  +                Period =
  +                    integer_to_list(AutoRefreshPeriod * 1000),
  +                tag(
  +                  script, [],
  +                  "setTimeout(\"document.location.href='" ++
  +                      "/?goto=" ++ ?SECTION_GAME ++
  +                      "&game=" ++ integer_to_list(GameID) ++
  +                      if is_integer(Step) ->
  +                              "&step=" ++ integer_to_list(Step);
  +                         true -> ""
  +                      end ++ "'\"," ++ Period ++ ")");
  +            true -> ""
  +        end ++
           html_page_footer([]).
   
   %% @doc Makes 'draw confirmation' page content.
  
positive.code:         user_info(Username, UserInfo) ++
          "<br>" ++
          user_games(Username, UserInfo, true) ++
          html_page_footer([]).
  
  %% @doc Makes 'registered users list' page content.
  
negative.code:                      [[I1 | L] || {I1, L} <- GroupedPossibles0]))};
             true -> {[], []}
          end,
      {ShowHistory, ShowComment, AutoRefresh, AutoRefreshPeriod} =
          case get(userinfo) of
              UserInfo when is_list(UserInfo) ->
                  {proplists:get_value(show_history, UserInfo, true),
                   proplists:get_value(show_comment, UserInfo, true),
                   proplists:get_value(auto_refresh, UserInfo),
                   proplists:get_value(auto_refresh_period, UserInfo, 60)};
              _ -> {true, true, false, 60}
          end,
      ChessTable =
          chess_table(
  