erlangerlangweb

Adding International support in Erlang Web 1.4

I'm trying to add international support for a website based on the Erlang Web 1.4.

I would like to have a couple of links on every page (the notorious Country flags) that allow the user to set his language session variable.

What I have right now is a link like:

<li><a href="/session/language/en">English</a></li>

Where, in the session controller I do:

language(Args) ->
    LanguageId = proplists:get_value(id, Args),
    case language_is_supported(LanguageId) of
        false ->
            ok;
        true ->
            wpart:fset("session:lang", LanguageId)
    end,
    {redirect, "/"}.

The problem is that, after setting the preferred language, I would like the user to be redirected to the page he was visiting before changing the language. In this case the "__path" variable doesn't help because it contains the language request and not the "previous" one.

How could I resolve this situation? I'm probably using the wrong approach but I cannot thing to anything else right now.

Solution

  • If the request dictionary is really so limited, the only hack I can think of is that you pass the current page's url back as a GET variable:

    <li><a href="/session/language/en?referrer=/path/to/current/page">English</a></li>

    language(Args) ->
    LanguageId = proplists:get_value(id, Args),
    case language_is_supported(LanguageId) of
        false -> ok;
        true ->  wpart:fset("session:lang", LanguageId)
    end,
    Referrer = eptic:fget("get", "referrer"),
    {redirect, Referrer}.