anchor.diff:  
   
   login_user_with_authcode(#{qs := #{error := Error }} = ReqMap) ->
  -    show_error_page(Error, ReqMap);
  +    show_error_and_close_sessino(Error, ReqMap);
   login_user_with_authcode(#{qs := #{state:=OidcState}, session := Session} =
                            ReqMap) ->
       retreive_oidc_token_if_state_fits(tts_session:is_oidc_state(OidcState,Session),
  
positive.code:                            [ [ Id, Desc ] | List]
                     end,
      OpList = lists:reverse(lists:foldl(GetIdAndDesc,[],OIDCList)),
      case length(OpList) of 
          1 ->
              [[OpenIdProviderId,_]] = OpList,
              redirect_to(auth_server, maps:put(op_id,OpenIdProviderId,ReqMap));
          _ ->
              {ok, Body} = tts_ui_login_dtl:render([{oidc_op_list,OpList}]),
              #{body => Body, status => 200, cookie => update}
      end.
  
  
  handle_user_action(#{body_qs:=#{action := request}} = ReqMap) ->
  
negative.code:     handle_oidc_token(oidcc:retrieve_token(AuthCode, OpenIdProviderId), ReqMap);
  retreive_oidc_token_if_state_fits(false, ReqMap) ->
      Desc = <<"the returned state did not fit this session">>,
      show_error_and_close_sessino(Desc,  ReqMap).
  
  handle_oidc_token({ok, Token}, #{session:=Session}=ReqMap) ->
      {ok, OpenIdProviderId} = tts_session:get_oidc_provider(Session),
  