anchor.diff:  %%  Language = atom()
   %%  Descr = list()
   lc2descr(Language) ->
  -	iso639:lc2lang(atom_to_list(Language)).
  +    iso639:lc2lang(atom_to_list(Language)).
  
positive.code: 
  
  %% @doc Return the configured default language for this server
  default_language(Context) ->
      z_convert:to_atom(m_config:get_value(i18n, language, en, Context)).
  
  
  %% @doc Return the list of languages selected for this site
  %% @todo Make this configurable
  language_list(_Context) ->
      [ en, nl ].
  
  %% @doc check if the two letter code is a valid language
  %% @spec is_language(LanguageString) -> bool()
  %%   LanguageString = string()
  is_language([_,_] = LanguageString) ->
  	Language = iso639:lc2lang(LanguageString),
  	Language /= "";
  is_language(_) ->
      false.
  
  %% @doc Translate a language to an atom, fail when unknown language
  %% @spec lc2(LanguageString) -> Language
  %%  LanguageString = string()
  %%  Language = atom()
  lc2(LanguageString) ->
  	true = is_language(iso639:lc2lang(LanguageString)),
  	list_to_atom(LanguageString).
  
  
  %% @doc Return a descriptive (english) string for the language
  
negative.code:     lookup_fallback_language/3,
      default_language/1, 
      is_language/1, 
      to_language_atom/1, 
      lc2descr/1
  ]).
  
  