Added generate_options_by_name_where option to Wing::Role::Result::Parent.

Author: rizen

CHANGES.txt

@@ -4,6 +4,9 @@ This file tracks the changes to Wing over time. Especially
 with respect to new features and compatibility changes.
 ==========================================================
 
+2022-12-16
+ * Added generate_options_by_name_where option to Wing::Role::Result::Parent.
+
 2022-05-04
  * Fix permission errors that happen when trying to Ouch an object in the message field.
 

lib/Wing/Role/Result/Parent.pm

@@ -55,7 +55,11 @@ sub wing_parent_field {
                 my $out = $orig->($self, %describe_options);
                 my @parent_ids;
                 my %parent_options;
-                my $parents = $self->result_source->schema->resultset($options->{related_class})->search(undef,{order_by => 'name'});
+		my $where = undef;
+		if ($options->{generate_options_by_name_where}) {
+			$where = $options->{generate_options_by_name_where};
+		}
+                my $parents = $self->result_source->schema->resultset($options->{related_class})->search($where,{order_by => 'name'});
                 while (my $parent = $parents->next) {
                     push @parent_ids, $parent->id;
                     $parent_options{$parent->id} = $parent->name;
@@ -181,6 +185,10 @@ Scalar. Optional. The field to be created in this class to store the relationshi
 
 Boolean. Optional. Defaults to C<0>. If set to C<1> this will add an enumerated options list to the object description when C<include_options> is specified. The options will be C<id> / C<name> pairs. 
 
+=item generate_options_by_name_where
+
+Hash containing a DBIx::Class where clause. Only used if C<generate_options_by_name> is enabled. Used to filter the list to a subset.
+
 =item skip_ref_check
 
 Boolean. Optional. Normally adding a parent adds a check to make sure that the id that refers to a parent actually exists. When C<skip_ref_checK> is true that validation is skipped. This is really only useful if you want to create the parent at the same time you insert this object into the database.