anchor.diff:  figure_(?b_knight) -> 9822;
   figure_(?b_pawn  ) -> 9823.
   
  -navigation() ->
  -    Curr = echessd_session:get_val(section),
  +navig_links(List) -> navig_links(List, undefined).
  +navig_links([], _Current) -> "";
  +navig_links(List, Current) ->
       "<div class=navig>[&nbsp;" ++
           string:join(
             lists:map(
  -            fun(Section) ->
  -                    Caption =
  -                        case Section of
  -                            ?SECTION_HOME -> "Home";
  -                            ?SECTION_USERS -> "Users";
  -                            _ -> Section
  -                        end,
  -                    "<a href='?goto=" ++ Section ++ "'>" ++
  -                        if Section == Curr ->
  -                                "<b>" ++ Caption ++ "</b>";
  +            fun({URL, Caption}) ->
  +                    "<a href='" ++ URL ++ "'>" ++
  +                        if Caption == Current ->
  +                                b(Caption);
                              true -> Caption
                           end ++ "</a>"
  -            end,
  -            [?SECTION_HOME, ?SECTION_USERS, ?SECTION_TEST]),
  -          "&nbsp;|&nbsp;") ++
  -        "&nbsp;|&nbsp;<a href='?action=exit'>Logout</a>"
  +            end, List), "&nbsp;|&nbsp;") ++
           "&nbsp;]</div>".
  +
  +section_caption(?SECTION_HOME) -> "Home";
  +section_caption(?SECTION_USERS) -> "Users";
  +section_caption(Other) -> Other.
  +
  +navigation() ->
  +    navig_links(
  +      [{"?goto=" ++ S, section_caption(S)} ||
  +          S <- [?SECTION_HOME, ?SECTION_USERS,
  +                ?SECTION_TEST]] ++
  +          [{"?action=exit", "Logout"}],
  +      section_caption(echessd_session:get_val(section))).
   
   login() ->
       header("echessd - Login", []) ++
           h1("echessd login") ++
  -        "<div class=navig>[&nbsp;<a href='?goto=register'>Register new user</a>&nbsp;]</div>"
  +        navig_links([{"?goto=register", "Register new user"}]) ++
           "<form method=post>"
           "<input name=action type=hidden value=login>"
           "Login:    <input name=username type=text><br>"
  
positive.code:                (_) ->
                      []
              end, UserInfo), "<br>") ++
          footer([]).
  
  game(GameID) ->
  
negative.code: register() ->
      header("echessd - Register new user", []) ++
          h1("echessd register form") ++
          navig_links([{"?goto=login", "Return to login form"}]) ++
          "<form method=post>"
          "<input name=action type=hidden value=register>"
          "Login:    <input name=regusername type=text><br>"
  