l3.anubis
1.31 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
/*
* 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_Off_Form)
construct_language_option_list
(
List(HTML_Off_Form) 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_Off_Form)
l3_get_language_option_list =
construct_language_option_list([], standard_languages)
.
public define List(HTML_Off_Form)
_l3_get_all_chapters_options_list
(
List(HTML_Off_Form) 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_Off_Form)
l3_get_all_chapters_options_list
(
String collection_name
)=
_l3_get_all_chapters_options_list([], l3_get_all_chapters(collection_name))
.