Commit 2d68d5274c8d04296ea35a1d470a52dcc2cb502c

Authored by David RENÉ
1 parent fa529690

[+] add l3 files with helper to construct dropdown for available languages and c…

…hapters present in collection
Showing 1 changed file with 54 additions and 0 deletions   Show diff stats
web/l3/l3.anubis 0 → 100644
  1 +/*
  2 + * Created by PyramIDE.
  3 + * User: フランスのトトロ aka (David RENÉ)
  4 + * Date: 16/06/2025
  5 + * Time: 18:18
  6 + * © David RENÉ
  7 + */
  8 +
  9 +read xlib/web/making_a_web_site.anubis
  10 +
  11 +transmit locale/L3.anubis
  12 +transmit locale/L3LanguageInfo.anubis
  13 +
  14 +define List(HTML_Off_Form)
  15 + construct_language_option_list
  16 + (
  17 + List(HTML_Off_Form) so_far,
  18 + List(L3LanguageInfo) lang_list
  19 + ) =
  20 + if lang_list is
  21 + {
  22 + [] then so_far,
  23 + [h . t] then
  24 + if h is lang_info(code_list, english_name, self_name, _, _, _, _) then
  25 + with code_lang = get_first_code(code_list),
  26 + construct_language_option_list( [option(value(code_lang), text(code_lang +" | " + english_name + " | " + self_name)) . so_far], t)
  27 + }.
  28 +
  29 +public define List(HTML_Off_Form)
  30 + l3_get_language_option_list =
  31 + construct_language_option_list([], standard_languages)
  32 + .
  33 +
  34 +public define List(HTML_Off_Form)
  35 + _l3_get_all_chapters_options_list
  36 + (
  37 + List(HTML_Off_Form) so_far,
  38 + List(String) chapters_list
  39 + )=
  40 + if chapters_list is
  41 + {
  42 + [] then so_far,
  43 + [h . t] then
  44 + _l3_get_all_chapters_options_list( [option(value(h), text(h)) . so_far], t)
  45 + }
  46 +.
  47 +
  48 +public define List(HTML_Off_Form)
  49 + l3_get_all_chapters_options_list
  50 + (
  51 + String collection_name
  52 + )=
  53 + _l3_get_all_chapters_options_list([], l3_get_all_chapters(collection_name))
  54 +.