File Coverage

blib/lib/CGI/Lazy/Widget/Composite.pm

Criterion	Covered	Total	%
statement	12	164	7.3
branch	0	14	0.0
condition	0	11	0.0
subroutine	4	21	19.0
pod	8	17	47.0
total	24	227	10.5

package CGI::Lazy::Widget::Composite;

use strict;

use JSON;
use CGI::Lazy::Globals;
use base qw(CGI::Lazy::Widget);

# for new composite types need the following:  ajaxSelect  and dbwrite

#----------------------------------------------------------------------------------------
sub ajaxBlank {
	my $self = shift;

	my $widgets 	= [];
	my $output 	= [];

	foreach (@{$self->memberarray}) {
		push @$widgets, $_;
		push @$widgets, $_->ajaxBlank;
	}

	return $self->ajaxReturn($widgets, $output);
}

#----------------------------------------------------------------------------------------
sub ajaxSelect {
	my $self = shift;
	my %args = @_;

	my $type = $self->type;
	$type = ucfirst $type;
	my $method = 'ajaxSelect'.$type;

	return $self->$method(%args);
}

#----------------------------------------------------------------------------------------
sub ajaxSelectManual {
	my $self = shift;
	my %args = shift;

	return;
}

#----------------------------------------------------------------------------------------
sub ajaxSelectParentChild {
	my $self = shift;
	my %args = @_;

	my $incoming = $args{incoming} || from_json(($self->q->param('POSTDATA') || $self->q->param('keywords') || $self->q->param('XForms:Model')));

        my $parent = $self->members->{$self->relationship->{parent}->{id}};

	my %parentKeys;

	foreach my $child (keys %{$self->relationship->{children}}){
		my $handle;
		$parentKeys{$self->relationship->{children}->{$child}->{parentKey}} = {handle => \$handle};

	}

	my %parentParams = (
			incoming 	=> $incoming,
			div		=> 1,
			vars 		=> {%parentKeys},
	);

	$parentParams{searchLike} = $self->relationship->{parent}->{searchLike} if $self->relationship->{parent}->{searchLike};

        my $parentOutput = $parent->select(%parentParams);

#	$self->q->util->debug->edump(\%parentParams);

        if ($parent->multi) {
                return $self->ajaxReturn($parent, $parentOutput);
        } else {

		my $widgets 	= [$parent];
		my $output 	= [$parentOutput];

		foreach my $child (keys %{$self->relationship->{children}}) {
			my %childParams = ($self->relationship->{children}->{$child}->{childKey} => ${$parentKeys{$self->relationship->{children}->{$child}->{parentKey}}->{handle}});

			push @$widgets, $self->members->{$child};

			if ($parent->empty) {
				push @$output, $self->members->{$child}->ajaxBlank();
			} else {
				push @$output, $self->members->{$child}->select(incoming => {%childParams}, div => 1);
			}
		}

		return $self->ajaxReturn($widgets, $output);
        }
}

#----------------------------------------------------------------------------------------
sub ajaxSelectSelectableDataset {
	my $self = shift;
	my %args = @_;

	my $incoming = $args{incoming} || from_json(($self->q->param('POSTDATA') || $self->q->param('keywords') || $self->q->param('XForms:Model')));
        my $parent = $self->members->{$self->relationship->{parent}->{id}};

	my $widgets 	= [$parent];
	my $output 	= [$parent->rawContents(incoming => $incoming, div => 1)];

	foreach my $child (keys %{$self->relationship->{children}}) {
		my $params = {};

		foreach (@{$self->relationship->{children}->{$child}}) {
			my $value = $incoming->{$_->{parentParam}};
			my $field = $_->{childField};

			$params->{$field} = $value;
		}

        	push @$widgets, $self->members->{$child};
		push @$output, $self->members->{$child}->select(incoming => $params, div => 1);
	}

	return $self->ajaxReturn($widgets, $output);
}

#----------------------------------------------------------------------------------------
sub contents {
	my $self = shift;
	my %args = @_;

        my $standalone 		= $self->vars->{standalone};
	my $formOpenTag 	= '';
	my $formCloseTag 	= '';
        my $widgetID		= $self->vars->{id};
	my $members		= $self->memberarray;
	my $output;

	if ($standalone) {
		$formOpenTag = $self->vars->{formOpenTag} || $self->q->start_form({-method => 'post', -action => $self->q->url});
		$formCloseTag = $self->q->end_form;
	}
	my $divopen = $args{nodiv} ? '' : "";
	my $divclose = $args{nodiv} ? '' : "";

	foreach my $member (@$members) {
		$output .= $member->display(%args);
	}

	return $divopen.
		$formOpenTag.
		$output.
		$formCloseTag.
		$divclose;
}

#----------------------------------------------------------------------------------------
sub dbwrite {
	my $self = shift;
	my %args = @_;

	my $type = $self->type;
	$type = ucfirst $type;
	my $method = 'dbwrite'.$type;

	return $self->$method(%args);;

}

#----------------------------------------------------------------------------------------
sub dbwriteManual {
	my $self = shift;
	my %args = @_;

	return;
}

#----------------------------------------------------------------------------------------
sub dbwriteParentChild {
       	my $self = shift;
	my %args = @_;

        my $parent = $self->members->{$self->relationship->{parent}->{id}};

	my %parentKeys;
	my $parentHandle;

	foreach my $child (keys %{$self->relationship->{children}}){
		$parentKeys{$self->relationship->{children}->{$child}->{parentKey}} = {handle => $parent->recordset->primarykeyhandle};
	}

	$parent->dbwrite(insert => {%parentKeys}, update => {%parentKeys});

#	$self->q->util->debug->edump(\%parentKeys);

	foreach my $child (keys %{$self->relationship->{children}}) {
		my %childParams = ($self->relationship->{children}->{$child}->{childKey} => {
					value => ${$parentKeys{$self->relationship->{children}->{$child}->{parentKey}}->{handle}},
				},
		);

#		$self->q->util->debug->edump($child, ${$parentKeys{$self->relationship->{children}->{$child}->{parentKey}}->{handle}});

		$self->members->{$child}->dbwrite(
					insert	=> {%childParams},
					update 	=> {%childParams},
				);
	}

	return;
}

#----------------------------------------------------------------------------------------
sub dbwriteSelectableDataset {
	my $self = shift;
	my %args = @_;

        my $parent = $self->members->{$self->relationship->{parent}->{id}};

	my $incoming = {};

	foreach my $child (keys %{$self->relationship->{children}}) {

		foreach (@{$self->relationship->{children}->{$child}}) {
			my $param = $_->{parentParam};
			my $value = $self->q->param($param);

			$incoming->{$param} = $value;
		}
	}

	my $widgets 	= [$parent];
	my $output 	= [$parent->rawContents(incoming => $incoming, div => 1)];

	foreach my $child (keys %{$self->relationship->{children}}) {
		my %childParams = ();

		foreach (@{$self->relationship->{children}->{$child}}) {
			my $value = $incoming->{$_->{parentParam}};
			my $field = $_->{childField};

			$childParams{$field} = {value => $value};
		}

		$self->members->{$child}->dbwrite(
					insert	=> {%childParams},
					update 	=> {%childParams},
				);
	}

	return;
}

#----------------------------------------------------------------------------------------
sub display {
	my $self = shift;
	my %args = @_;

	return $self->contents(%args);
}

#----------------------------------------------------------------------------------------
sub memberarray {
	my $self = shift;

	return $self->vars->{members};
}

#----------------------------------------------------------------------------------------
sub members {
	my $self = shift;

	return $self->{_members};
}

#----------------------------------------------------------------------------------------
sub new {
	my $class = shift;
	my $q = shift;
	my $vars = shift;

        my $widgetID = $vars->{id};
	my $members = {};

	my $parsedMembers = [];

	foreach my $member (@{$vars->{members}}) {
		if (ref $member =~ /^CGI::Lazy::Widget/) {
			push @$parsedMembers, $member;
		} else {
			my $class = $member->{class};

			my $widget = $q->widget->$class($member);
			push @$parsedMembers, $widget;
		}
	}

	$vars->{members} = $parsedMembers;

	foreach (@{$vars->{members}}) {
		$members->{$_->widgetID} = $_;
	}

	return bless {
		_q 		=> $q,
		_vars 		=> $vars,
		_members 	=> $members,
		_widgetID 	=> $widgetID,
		_type		=> $vars->{type} || 'manual',
		_relationship	=> $vars->{relationship},
	}, $class;
}

#----------------------------------------------------------------------------------------
sub recordset {
	my $self = shift;

        return $self->members->{$self->relationship->{parent}->{id}}->recordset;
}

#----------------------------------------------------------------------------------------
sub relationship {
	my $self = shift;

	return $self->{_relationship};

}

#----------------------------------------------------------------------------------------
sub type {
	my $self = shift;

	return $self->{_type};

}

1

__END__