sub extract_table_queries{
	my $configitem = $_[0];
	my @assigneearray = ();
       my %qryhash;
        print ref $configitem->{'config'};
	if (ref $configitem->{'config'} eq 'ARRAY'){
		@queries = @{$configitem->{'config'}};
		$i = 0;
		$count = @queries;
		foreach $q (@{$configitem->{'config'}}){
			my $value = $q->{'content'};
			my $param = $q->{'type'};
			
			#$value =~ s/^\s+|\s*$//g;
			$param = &return_param_name($param);

			push @{$qryhash{$param}}, $value;
		
			if (lc $param eq lc $configitem->{rollup}){
				push @rolluplist,$value;
			}
			
			my $tmp = sprintf("%-15s",$param); 
			print "------>$tmp: $value\n";

		}
	print Dumper(\%qryhash);
	print Dumper(\$configitem->{'config'});
exit;
		return(\%qryhash);
	}
}