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,7 +29,8 @@ define Maybe(One)
29 " get_choices_selector_"+table_name+"_"+column_name+"\n"+ 29 " get_choices_selector_"+table_name+"_"+column_name+"\n"+
30 " (\n"+ 30 " (\n"+
31 " SQLite3DataBase db,\n"+ 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 " )=\n"+ 34 " )=\n"+
34 " [\n"+ 35 " [\n"+
35 concat(map((HK_Text_Choice hk_txt_choice) |-> 36 concat(map((HK_Text_Choice hk_txt_choice) |->
src/generation/edit_view_table_form.anubis
@@ -41,8 +41,9 @@ public define String @@ -41,8 +41,9 @@ public define String
41 success(form_string) then "hk_form_table_cell("+form_string+")" 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 "hk_form_table_cell_table(["+ 47 "hk_form_table_cell_table(["+
47 make_lines(lines, columns, type_name, indent+" ")+ 48 make_lines(lines, columns, type_name, indent+" ")+
48 "\n"+indent+"])" 49 "\n"+indent+"])"