sub execute {
	my ($sth, @args) = @_;

	return $sth->SUPER::execute(@args)
		unless $sth->{private_dbix_chart_sth};
#
#	first execute each source sth, then execute the chart sth,
#	passing in the source sth's as a param, and picking up any
#	other placeholders we might need
	my @exec_parms;
	my $chartsth = $sth->{private_dbix_chart_sth};

	my $src_sths = $chartsth->{_src_sths};
	my $src_phs = $chartsth->{_src_phs};
	my $chart_phs = $chartsth->{_chart_phs};
	my $phcnt = $chartsth->{_chart_src_idx};
	my $rc;
	foreach my $i (0..$#$src_sths) {
		@exec_parms = ();
		if (@args > 0) {
			push @exec_parms, $args[$_]   #<--line 403
				foreach (@{$src_phs->[$i]});