|
| |
1
| +/* |
|
| |
2
| + * Created by PyramIDE. |
|
| |
3
| + * User: Totoro |
|
| |
4
| + * Date: 30/11/2011 |
|
| |
5
| + * Time: 21:22 |
|
| |
6
| + * |
|
| |
7
| + */ |
|
| |
8
| + |
|
| |
9
| +read hayamiki_lib/view/view_table_types.anubis |
|
| |
10
| +read hayamiki_lib/view/view_table_manager_types.anubis |
|
| |
11
| +read hayamiki_lib/view/view_table_manager.anubis |
|
| |
12
| +read hayamiki_lib/types/hayamiki.anubis |
|
| |
13
| +read system/string.anubis |
|
| |
14
| +read locale/L3.anubis |
|
| |
15
| +read tools/basis.anubis |
|
| |
16
| + |
|
| |
17
| +read system_colors/rgb.anubis |
|
| |
18
| +read system/convert.anubis |
|
| |
19
| + |
|
| |
20
| +//read utils.anubis |
|
| |
21
| +read locale/L3LanguageInfo.anubis |
|
| |
22
| +read calexium_lib/web/CXM_common.anubis |
|
| |
23
| +read calexium_lib/web/CXM_web_arg_utils.anubis |
|
| |
24
| +read calexium_lib/web/CXM_making_a_web_site.anubis |
|
| |
25
| +read calexium_lib/web/CXM_multihost_http_server.anubis |
|
| |
26
| +read calexium_lib/web/jQuery/CXM_jquery_datatable.anubis |
|
| |
27
| +read calexium_lib/web/jQuery/CXM_jquery_datatable_types.anubis |
|
| |
28
| +read calexium_lib/web/jQuery/CXM_jquery_dialog.anubis |
|
| |
29
| +read calexium_lib/web/jQuery/CXM_jquery_button.anubis |
|
| |
30
| +read calexium_lib/web/jQuery/ui-addon/datetimepicker.anubis |
|
| |
31
| +read calexium_lib/web/CXM_form.anubis |
|
| |
32
| +read calexium_lib/web/widgets/css_helper.anubis |
|
| |
33
| +read calexium_lib/web/widgets/button.anubis |
|
| |
34
| + |
|
| |
35
| +define CXM_Form_Field |
|
| |
36
| + help_line |
|
| |
37
| + ( |
|
| |
38
| + HK_Help_Text help, |
|
| |
39
| + (String) -> String _T |
|
| |
40
| + )= |
|
| |
41
| + if help is |
|
| |
42
| + { |
|
| |
43
| + no_help_text then empty, |
|
| |
44
| + help_text_TAG(tag) then explain(_T(tag)), |
|
| |
45
| + help_text(str) then explain(str) |
|
| |
46
| + }. |
|
| |
47
| + |
|
| |
48
| + |
|
| |
49
| + //Edit table part |
|
| |
50
| +public define List(CXM_Form_Field) |
|
| |
51
| + edit_form_lines |
|
| |
52
| + ( |
|
| |
53
| + SQLite3DataBase db, |
|
| |
54
| + (String) -> String _T, |
|
| |
55
| + List(VT_edit_entry) list, |
|
| |
56
| + List(CXM_Form_Field) so_far |
|
| |
57
| + )= |
|
| |
58
| + if list is |
|
| |
59
| + { |
|
| |
60
| + [] then reverse(so_far), |
|
| |
61
| + [ h . t] then |
|
| |
62
| + with line = |
|
| |
63
| + if h is |
|
| |
64
| + { |
|
| |
65
| + hidden(name, value) then |
|
| |
66
| + //print("hidden "+name+" = "+value); |
|
| |
67
| + [hidden(html_Id(""), wan(name), wav(value))], |
|
| |
68
| + primary_key(idx) then |
|
| |
69
| + [hidden(html_Id(""), wan("id"), wav(idx))], |
|
| |
70
| + information(s_name, c_name, value, width, help) then |
|
| |
71
| + [input_readonly(label(_T(s_name), no_help), wan(c_name), init(value), if width > 0 then custom(width) else narrow), help_line(help, _T)], |
|
| |
72
| + text(s_name, c_name, value, help) then |
|
| |
73
| + [input(label(_T(s_name), no_help), wan(c_name), init(value), narrow, mandatory), help_line(help, _T)], |
|
| |
74
| + password(s_name, c_name, help) then |
|
| |
75
| + [password_input(label(_T(s_name), no_help), wan(c_name+"_1"), init(""), narrow, non_mandatory), |
|
| |
76
| + password_input(label(_T(s_name), no_help), wan(c_name+"_2"), init(""), narrow, non_mandatory), |
|
| |
77
| + help_line(help, _T)], |
|
| |
78
| + |
|
| |
79
| + foreign_text(s_name, c_name, value, select, help) then |
|
| |
80
| + [selector_c([],label(_T(s_name), no_help), html_Id(""), wan(c_name), 1, select.get(db), success(init(to_String(value))), mandatory), help_line(help, _T)], |
|
| |
81
| + choices_text(s_name, c_name, value, select, help) then |
|
| |
82
| + [selector_c([],label(_T(s_name), no_help), html_Id(""), wan(c_name), 1, select.get(db), success(init(value)), mandatory), help_line(help, _T)], |
|
| |
83
| + text_area(s_name, c_name, value, help) then |
|
| |
84
| + [text_area([],label(_T(s_name), no_help), html_Id(""), wan(c_name), init(value), narrow, (Int)5, mandatory), help_line(help, _T)], |
|
| |
85
| + boolean(s_name, c_name, value, help) then |
|
| |
86
| + [checkboxr([],label(_T(s_name), no_help), html_Id(""), wan(c_name), wav(c_name),value, mandatory), help_line(help, _T)], |
|
| |
87
| + integer(s_name, c_name, value, help) then |
|
| |
88
| + [input(label(_T(s_name), no_help), wan(c_name), init(abs_to_decimal(value)), small, mandatory), help_line(help, _T)], |
|
| |
89
| + choices_int(s_name, c_name, value, select, help) then |
|
| |
90
| + [selector_c([],label(_T(s_name), no_help), html_Id(""), wan(c_name), 1, select.get(db), success(init(to_String(value))), mandatory), help_line(help, _T)], |
|
| |
91
| + date(s_name, c_name, value, help) then |
|
| |
92
| + [input([class("datepicker")], label(_T(s_name), no_help), html_Id(c_name), wan(c_name), init(value), small, non_mandatory), help_line(help, _T)], |
|
| |
93
| + time(s_name, c_name, value, help) then |
|
| |
94
| + [input([class("timepicker")], label(_T(s_name), no_help), html_Id(c_name), wan(c_name), init(value), small, non_mandatory), help_line(help, _T)], |
|
| |
95
| + datetime(s_name, c_name, value, help) then |
|
| |
96
| + [input([class("datetimepicker")], label(_T(s_name), no_help), html_Id(c_name), wan(c_name), init(value), custom(18), mandatory), help_line(help, _T)], |
|
| |
97
| + }, |
|
| |
98
| + edit_form_lines(db, _T, t, reverse(line)+so_far) |
|
| |
99
| + }. |
|
| |
100
| + |
|
| |
101
| +public define HTML_Partial_Content |
|
| |
102
| + edit_table_page |
|
| |
103
| + ( |
|
| |
104
| + SQLite3DataBase db, |
|
| |
105
| + (String) -> String _T, |
|
| |
106
| + String lang, |
|
| |
107
| + List(Web_arg) lwa, |
|
| |
108
| + VT_edit vt_elist |
|
| |
109
| + ) = |
|
| |
110
| + with table_name = vt_elist.table_name, |
|
| |
111
| + with button_name = if get_String(lwa, "id","none") = "none" then _T("CREATE") else _T("UPDATE"), |
|
| |
112
| + partial_content(jq_datetimepicker_init(lang), |
|
| |
113
| + cxm_form( table_name, lwa, |
|
| |
114
| + edit_form_lines(db, _T, vt_elist.list, [])+ |
|
| |
115
| + [ submit("create", failure, button_name, [("table_name", table_name)]) ] |
|
| |
116
| + )). |
|
| |
117
| + |
|
| |
118
| +public define Maybe(HTML_Partial_Content) |
|
| |
119
| + edit_table_content |
|
| |
120
| + ( |
|
| |
121
| + SQLite3DataBase db, |
|
| |
122
| + (String) -> String _T, |
|
| |
123
| + String lang, |
|
| |
124
| + List(Web_arg) lwa, |
|
| |
125
| + String table, |
|
| |
126
| + VT_action action, |
|
| |
127
| + VTM vtm |
|
| |
128
| + ) = |
|
| |
129
| + if vtm_get_edit(table, vtm.edit_list) is |
|
| |
130
| + { |
|
| |
131
| + failure then failure, |
|
| |
132
| + success(vtm_e) then |
|
| |
133
| + since vtm_e is vtm_edit(_, get_edit), |
|
| |
134
| + success(edit_table_page(db, _T, lang, lwa, get_edit(db, action))) |
|
| |
135
| + }. |
|
| |
136
| + |
|
| |
137
| + |
|
| |
138
| + // View table part |
|
| |
139
| +define HTML_Row(HTML_Off_Form) make_line |
|
| |
140
| + ( |
|
| |
141
| + String table_name, |
|
| |
142
| + String action_name, //default is "edit_table", but can be surcharged for own use |
|
| |
143
| + List(VT_view_entry) entries, |
|
| |
144
| + List(HTML_Cell(HTML_Off_Form)) so_far |
|
| |
145
| + )= |
|
| |
146
| + if entries is |
|
| |
147
| + { |
|
| |
148
| + [] then row( [], reverse(so_far)), |
|
| |
149
| + [h . t] then |
|
| |
150
| + with cell = if h is |
|
| |
151
| + { |
|
| |
152
| + text(string) then cell((HTML_Off_Form)text(string)), |
|
| |
153
| +// link(id, string) then cell((HTML_Off_Form)actioner(same,same, link(string), action_name, [("table_name", table_name),("id",id)])), |
|
| |
154
| + link(id, string) then cell((HTML_Off_Form)literal(jq_dialog_open(string, dialog_id(action_name+"_dlg_ajax"), "'id="+id+"'"))), |
|
| |
155
| + link_id_action(id, name, action) then cell((HTML_Off_Form)actioner(same,same, link(name), action, [("id",id)])), |
|
| |
156
| + icon(icon_path) then cell((HTML_Off_Form)image([], icon_path, "")) |
|
| |
157
| + }, |
|
| |
158
| + make_line(table_name, action_name, t, [cell . so_far]) |
|
| |
159
| + }. |
|
| |
160
| + |
|
| |
161
| +define List(HTML_Row(HTML_Off_Form)) |
|
| |
162
| + make_lines |
|
| |
163
| + ( |
|
| |
164
| + (String) -> String _T, //translator |
|
| |
165
| + String table_name, |
|
| |
166
| + String action_name, |
|
| |
167
| + List(VT_view_row) entries, |
|
| |
168
| + List(HTML_Row(HTML_Off_Form)) so_far |
|
| |
169
| + )= |
|
| |
170
| + if entries is |
|
| |
171
| + { |
|
| |
172
| + [] then reverse(so_far), |
|
| |
173
| + [h . t] then |
|
| |
174
| + //compute each line |
|
| |
175
| + //prepare here the first cell for actioner |
|
| |
176
| + with actions_cell = (HTML_Cell(HTML_Off_Form)) |
|
| |
177
| + cell([], |
|
| |
178
| + sequence([ |
|
| |
179
| + partial(img_button_confirm(icn16_cross, _T("CONFIRMATION_REQUEST"), _T("CONFIRM_LINE_DELETION") , _T("OK"), _T("CANCEL"), jQuery_actioner(same, jqlink, "hk_del_row" + format_extra_operands([("table_name", table_name),("id",to_String(h.db_id))])))), |
|
| |
180
| + partial(img_button(icn16_edit, [event(onclick, jq_dialog_open(dialog_id(action_name+"_dlg_ajax"), "'id="+to_String(h.db_id)+"'"))], "", [])), |
|
| |
181
| + ]) |
|
| |
182
| + ), |
|
| |
183
| + make_lines(_T, table_name, action_name, t, [make_line(table_name, action_name, h.list, [actions_cell]). so_far] ) |
|
| |
184
| + }. |
|
| |
185
| + |
|
| |
186
| + // View table part |
|
| |
187
| +define HTML_Header_Row(HTML_Off_Form) |
|
| |
188
| + make_header |
|
| |
189
| + ( |
|
| |
190
| + (String) -> String _T, //translator |
|
| |
191
| + List(VT_view_entry) entries, |
|
| |
192
| + List(HTML_Header_Cell(HTML_Off_Form)) so_far |
|
| |
193
| + )= |
|
| |
194
| + if entries is |
|
| |
195
| + { |
|
| |
196
| + [] then header_row( [], reverse(so_far)), |
|
| |
197
| + [h . t] then |
|
| |
198
| + with cell = if h is |
|
| |
199
| + { |
|
| |
200
| + text(string) then header_cell((HTML_Off_Form)text(_T(string))), |
|
| |
201
| + link(id, string) then header_cell((HTML_Off_Form)actioner(same,same, link(string),"edit_table",[])), //TODO |
|
| |
202
| + link_id_action(id, text, action) then header_cell((HTML_Off_Form)actioner(same,same, link(text),action,[("id",id)])), //TODO |
|
| |
203
| + icon(icon_path) then header_cell((HTML_Off_Form)image([], icon_path, "")) |
|
| |
204
| + }, |
|
| |
205
| + make_header(_T, t, [cell . so_far]) |
|
| |
206
| + }. |
|
| |
207
| + |
|
| |
208
| + |
|
| |
209
| + |
|
| |
210
| +public define HTML_Partial_Content |
|
| |
211
| + view_table_form |
|
| |
212
| + ( |
|
| |
213
| + (String) -> String _T, |
|
| |
214
| + String action_name, |
|
| |
215
| + VT_view rows |
|
| |
216
| + )= |
|
| |
217
| + with action_header_cell = header_cell((HTML_Off_Form)text(_T("ACTION"))), |
|
| |
218
| + partial_content( |
|
| |
219
| + div( [/*class("tableau")*/], |
|
| |
220
| + sequence( |
|
| |
221
| + [ |
|
| |
222
| + partial(jquery_button(jQuery_button(button, "edit_table_"+rows.table_name, "", _T("NEW"), jQuery_actioner(same, jqlink, "edit_table&table_name="+rows.table_name)))), |
|
| |
223
| + //dialog used by datatable entries |
|
| |
224
| + partial(jq_dialog_create(dialog_id(action_name+"_dlg_ajax"), ajax("?a=ajax_edit_table&table_name="+rows.table_name))), |
|
| |
225
| + |
|
| |
226
| + table([core_attrs([id("table_view"), class("tableau display compact nowrap")])], |
|
| |
227
| + make_header(_T, rows.header.list, [action_header_cell]), |
|
| |
228
| + make_lines(_T, rows.table_name, action_name, rows.list, [])) |
|
| |
229
| + ] |
|
| |
230
| + ) |
|
| |
231
| + )) |
|
| |
232
| + . |
|
| |
233
| + |
|
| |
234
| +public define HTML_Partial_Content |
|
| |
235
| + view_table_page |
|
| |
236
| + ( |
|
| |
237
| + (String) -> String _T, |
|
| |
238
| + String lang, |
|
| |
239
| + String web_site_directory, |
|
| |
240
| + String action_name, |
|
| |
241
| + VT_view rows |
|
| |
242
| + ) = |
|
| |
243
| + |
|
| |
244
| +// if tb is tool_box(lang, _T, _, _, db, _) then |
|
| |
245
| +// println("view_table_page - lang : "+lang); |
|
| |
246
| +// println("view_table_page - web_site_directory : "+web_site_directory); |
|
| |
247
| + partial_content(jq_dialog_init + jq_datetimepicker_init(lang), |
|
| |
248
| + [partial(html_wave_box_wide(_T(to_upper(rows.table_name)), |
|
| |
249
| + jquery_datatable("table_view", view_table_form(_T, action_name, rows), true, false, jq_dt_pt_full_numbers, false, scrollY(500), true, true, true, lang, no_extra, web_site_directory)))]). |
|
| |
250
| + |
|
| |
251
| +public define Maybe(HTML_Partial_Content) |
|
| |
252
| + view_table_content |
|
| |
253
| + ( |
|
| |
254
| + SQLite3DataBase db, |
|
| |
255
| + (String) -> String _T, |
|
| |
256
| + String lang, |
|
| |
257
| + String web_site_directory, |
|
| |
258
| + String table, |
|
| |
259
| + String view_name, |
|
| |
260
| + String action_name, |
|
| |
261
| + VTM vtm |
|
| |
262
| + ) = |
|
| |
263
| + if vtm_get_view(table, vtm.view_list) is |
|
| |
264
| + { |
|
| |
265
| + failure then failure, |
|
| |
266
| + success(vtm_v) then |
|
| |
267
| + since vtm_v is vtm_view(_, get_view), |
|
| |
268
| + success(view_table_page(_T, lang, web_site_directory, action_name, get_view(db, view_name))) |
|
| |
269
| + }. |
