/*
 * Created by PyramIDE.
 * User: フランスのトトロ aka (David RENÉ) 
 * Date: 16/06/2025
 * Time: 18:18
 * © David RENÉ
 */

read xlib/web/making_a_web_site.anubis

transmit locale/L3.anubis
transmit locale/L3LanguageInfo.anubis

define List(HTML) 
  construct_language_option_list
  (
    List(HTML)   so_far,
    List(L3LanguageInfo)  lang_list
  ) =
  if lang_list is
  {
    []      then so_far,
    [h . t] then
    if h is lang_info(code_list, english_name, self_name, _, _, _, _) then
      with code_lang = get_first_code(code_list),
    construct_language_option_list( [option(value(code_lang), text(code_lang +" | " + english_name + " | " + self_name)) . so_far], t)
  }.
  
public define List(HTML)
  l3_get_language_option_list =
  construct_language_option_list([], standard_languages)
  .

public define List(HTML)
  _l3_get_all_chapters_options_list
  (
    List(HTML) so_far,
    List(String)        chapters_list
  )=
  if chapters_list is
  {
    []      then so_far,
    [h . t] then
      _l3_get_all_chapters_options_list( [option(value(h), text(h)) . so_far], t)
  }
.

public define List(HTML)
  l3_get_all_chapters_options_list
  (
    String collection_name
  )=
  _l3_get_all_chapters_options_list([], l3_get_all_chapters(collection_name))
.