hayamiki.anubis
1.68 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
55
56
57
58
59
60
61
62
/*
* Created by PyramIDE.
* User: フランスのトトロ aka (David RENÉ)
* Date: 13/02/2016
* Time: 09:45
* © Calexium
*/
read calexium_lib/web/CXM_web_arg_utils.anubis
transmit hayamiki_lib/model/fields.anubis
transmit hayamiki_lib/model/database.anubis
transmit hayamiki_lib/model/columns.anubis
public type HK_Referer:
no_referer,
hk_referer(
String referer_table,
String referer_row_id,
String fk_table,
String fk_column
)
.
public define HK_Referer
get_HK_Referer_from_web_arg
(
List(Web_arg) lwa,
String __prefix__
)=
if get_Bool(lwa, __prefix__+"hk_referer") then
if get_String(lwa, __prefix__+"referer_table") is { failure then no_referer, success(referer_table) then
if get_String(lwa, __prefix__+"referer_row_id") is { failure then no_referer, success(referer_row_id) then
if get_String(lwa, __prefix__+"fk_table") is { failure then no_referer, success(fk_table) then
if get_String(lwa, __prefix__+"fk_column") is { failure then no_referer, success(fk_column) then
hk_referer(
referer_table,
referer_row_id,
fk_table,
fk_column
)
}}}}
else
no_referer
.
public define String
to_Web_arg
(
HK_Referer referer,
String __prefix__
)=
if referer is
{
no_referer then __prefix__+"hk_referer=false",
hk_referer(referer_table, referer_row_id, fk_table, fk_column) then
__prefix__+"hk_referer=true&"+
__prefix__+"referer_table="+referer_table+"&"+
__prefix__+"referer_row_id="+referer_row_id+"&"+
__prefix__+"fk_table="+ fk_table+"&"+
__prefix__+"fk_column="+ fk_column
}
.