xowf::test_item::Answer_manager method get_non_empty_file_formfields (protected)

 <instance of xowf::test_item::Answer_manager[i]> get_non_empty_file_formfields \
    [ -submission submission ]

Defined in packages/xowf/tcl/test-item-procs.tcl

Switches:
-submission
(optional)

Partial Call Graph (max 5 caller/called nodes):
%3 xowiki::formfield::child_components xowiki::formfield::child_components (public) xowf::test_item::Answer_manager instproc get_non_empty_file_formfields xowf::test_item::Answer_manager instproc get_non_empty_file_formfields xowf::test_item::Answer_manager instproc get_non_empty_file_formfields->xowiki::formfield::child_components

Testcases:
No testcase defined.
Source code:
if {[$submission exists __form_fields]} {
  set objs [lmap {name obj} [$submission set __form_fields] {set obj}]

  #
  # Filter out the form-fields, which have a nonempty
  # revision_id.
  #
  return [::xowiki::formfield::child_components  -filter {[$_ hasclass "::xowiki::formfield::file"]
                && [dict exists [$_ value] revision_id]
                && [dict get [$_ value] revision_id] ne ""}  $objs]
} else {
  return ""
}
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: