Expand with criteria in DBIDM

DBIDM_ExpandWithCriteria.pl

	my $lr = $dao->schema->join(qw/ProcessExecution process domain/)->select(%where);

	foreach my $pe (@$lr) {
		$pe->expand('process');
		my $label = "Domain: " . $pe->{domain} . "\t\tProcess: " . $pe->{process} . "\t\tOperation Date: " . $pe->{operation_date};
		$pe->{label} = $label;
		if ($tree gt 1) {
			$pe->expand('task_actions', -where => {deactivated => undef});
			if ($tree gt 2) {
				foreach my $ta (@{$pe->{task_actions}}) {
					$ta->expand('task_parameter_values', -where => {deactivated => undef});
				}
			}
		}
	}