Commit c6bd97b105cf57b04fe2daf4482ba45e119c7b5d

Authored by David RENÉ
1 parent 944156c1

make to_Anubis_source for HK_Foreign_Key_Active_Filter

Showing 1 changed file with 18 additions and 1 deletions   Show diff stats
model/fields.anubis
@@ -77,7 +77,24 @@ public define String @@ -77,7 +77,24 @@ public define String
77 )= 77 )=
78 to_String(attr) 78 to_String(attr)
79 . 79 .
80 - 80 +
  81 +public define String
  82 + to_Anubis_source
  83 + (
  84 + List(HK_Foreign_Key_Active_Filter) active_filters
  85 + )=
  86 + "["+
  87 + join(", ",
  88 + map((HK_Foreign_Key_Active_Filter active_filter) |->
  89 + since active_filter is active_filter(column, fk_column),
  90 + "active_filter(\""+column+"\", \""+fk_column+"\")"
  91 + ,
  92 + active_filters
  93 + )
  94 + )+
  95 + "]"
  96 +.
  97 +
81 define HK_Text_Field_Attr 98 define HK_Text_Field_Attr
82 to_HK_Text_Field_Attr 99 to_HK_Text_Field_Attr
83 ( 100 (