Commit a71a44cd920aa71f41782b431aa9453cfd13b784

Authored by totoro
1 parent da814f3c

manage "column_label" during generation

hayamiki_lib @ 8bf8743ef98
1   -Subproject commit 2993d53f11c4415314ab44c8ff3ad2bf671ad812
  1 +Subproject commit 8bf8743ef98b0fada8bc776abbda3d7bff3933c3
... ...
src/generation/choices_selector.anubis
... ... @@ -29,7 +29,8 @@ define Maybe(One)
29 29 " get_choices_selector_"+table_name+"_"+column_name+"\n"+
30 30 " (\n"+
31 31 " SQLite3DataBase db,\n"+
32   - " String clause\n"+
  32 + " HK_Referer referer, //Not used, only there for compatibility\n"+
  33 + " String filter //Not used, only there for compatibility\n"+
33 34 " )=\n"+
34 35 " [\n"+
35 36 concat(map((HK_Text_Choice hk_txt_choice) |->
... ...
src/generation/edit_view_table_form.anubis
... ... @@ -41,8 +41,9 @@ public define String
41 41 success(form_string) then "hk_form_table_cell("+form_string+")"
42 42 }
43 43 }
44   - label(label_str) then "hk_form_table_cell(label(\""+label_str+"\"))"
45   - table(lines) then
  44 + column_label(col_name) then "hk_form_table_cell(label(\""+to_upper(col_name)+"\")",
  45 + label(label_str) then "hk_form_table_cell(label(\""+label_str+"\"))"
  46 + table(lines) then
46 47 "hk_form_table_cell_table(["+
47 48 make_lines(lines, columns, type_name, indent+" ")+
48 49 "\n"+indent+"])"
... ...