File Coverage

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

Criterion	Covered	Total	%
statement	18	421	4.2
branch	0	206	0.0
condition	0	18	0.0
subroutine	6	24	25.0
pod	7	18	38.8
total	31	687	4.5

package CGI::Lazy::Widget::Dataset;

use strict;

use JavaScript::Minifier qw(minify);
use JSON;
use CGI::Lazy::Globals;
use Tie::IxHash;

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

our $tableCaptionVar     = "CAPTION";
our $headingItemVar      = "HEADING.ITEM.";
our $bodyRowLoopVar      = "ROW.LOOP";
our $bodyRowName         = "ROW";
our $surroundingDivName  = "DIV.MAIN";
our $deleteID		 = "DELETE.ID";
our $deleteFlag		 = "DELETE.FLAG";
our $deletename;

#----------------------------------------------------------------------------------------
sub buildCheckbox {
	my $self = shift;
	my $fieldname = shift;
	my $webcontrol = shift;
	my $value = shift;

	if ($webcontrol->{value}) {
		if ($value eq $webcontrol->{value}) {
			return ($webcontrol->{value}, ' checked ');
		} else {
			return ($webcontrol->{value});
		}

	} elsif ($webcontrol->{sql}) {
		my ($query, @binds) = @{$webcontrol->{sql}};
		my $lookupvalue = $self->q->db->get($query, @binds);

		if ($value eq $lookupvalue) {
			return ($lookupvalue, ' checked ');
		} else {
			return ($lookupvalue);
		}
	}
}

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

	$deletename = $self->vars->{deleteName} || 'Delete';
	my $headings = {};
	my $recset = $self->recordset;

	$headings->{$headingItemVar.$_}  = $recset->label($_) for $recset->visibleFields;
	$headings->{$headingItemVar."DELETE"} = $deletename unless $self->vars->{nodelete};

	return $headings;
}

#----------------------------------------------------------------------------------------
sub buildSelect {
	my $self = shift;
	my $fieldname = shift;
	my $webcontrol = shift;
	my $value = shift;

	my $list = [];

	my $vals = {};
	tie %$vals, 'Tie::IxHash';

	if ($webcontrol->{values} ) {
		if (ref $webcontrol->{values} eq 'HASH') {
			$vals->{''} = '' unless $webcontrol->{notNull};
			$vals = $webcontrol->{values};
		} elsif (ref $webcontrol->{values} eq 'ARRAY') {
			$vals->{''} = '' unless $webcontrol->{notNull};
			$vals->{$_} = $_ for @{$webcontrol->{values}};
		} else {
			return;
		}


	} elsif ($webcontrol->{sql}) {
		my ($query, @binds) = @{$webcontrol->{sql}};
		$vals->{''} = '' unless $webcontrol->{notNull};
		$vals->{$_->[0]} = $_->[1] for @{$self->q->db->getarray($query, @binds)};

	}

	foreach (keys %$vals) {

		if ($vals->{$_} eq $value) {
			push @$list, {'ITEM.LABEL' => $_, 'ITEM.VALUE' => $vals->{$_}, 'ITEM.SELECTED' => ' selected '};

		} else {
			push @$list, {'ITEM.LABEL' => $_, 'ITEM.VALUE' => $vals->{$_}};
		}
	}

	return $list;
}

#----------------------------------------------------------------------------------------
sub buildRadio {
	my $self = shift;
	my $fieldname = shift;
	my $webcontrol = shift;
	my $webname = shift;
	my $webID  = shift;
	my $value = shift;

	my $list = [];
	my $vals = {};
	tie %$vals, 'Tie::IxHash';

	if ($webcontrol->{values} ) {

		if (ref $webcontrol->{values} eq 'HASH') {
			$vals = $webcontrol->{values};
		} elsif (ref $webcontrol->{values} eq 'ARRAY') {
			$vals->{$_} = $_ for @{$webcontrol->{values}};
		} else {
			return;
		}


	} elsif ($webcontrol->{sql} ) {
		my ($query, @binds) = @{$webcontrol->{sql}};

		$vals->{$_->[0]} = $_->[1] for @{$self->q->db->getarray($query, @binds)};

	}

	foreach (keys %$vals) {
		if ($vals->{$_} eq $value) {
			push @$list, {
				"ID.".$fieldname 		=> $webID."-$_",
				'NAME.'.$fieldname 		=> $webname,
				'VALUELABEL.'.$fieldname 	=> $_,
				'VALUE.'.$fieldname 		=> $vals->{$_},
				'CHECKED.'.$fieldname 		=> ' checked ',
			};

		} else {
			push @$list, {
				"ID.".$fieldname 		=> $webID."-$_",
				'NAME.'.$fieldname 		=> $webname,
				'VALUELABEL.'.$fieldname 	=> $_,
				'VALUE.'.$fieldname 		=> $vals->{$_},
			};

		}
	}

	return $list;

}

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

	my $validator = {};

	foreach ( @{$self->recordset->visibleFields}) {
		if ($self->recordset->validator($_)) {
			my $rules = $self->recordset->validator($_);
			$rules->{label} = $self->recordset->label($_);
			if ($self->type eq "multi") {
				$validator->{$self->widgetID."-".$_."--".1} = $rules;
			} elsif ($self->type eq "single") {
				$validator->{$self->widgetID."-".$_} = $rules;
			}
		}
	}

	$self->{_validator} = $validator;
}

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

        my $widgetID		= $self->widgetID;
	my $vars 		= $self->vars;
	my $template;

	if ($args{mode} eq 'readonly') {
        	$template            = $vars->{readOnlyTemplate}; #some form of template is required
	} else {
        	$template            = $vars->{template};
	}

	my $type 		= $vars->{type};
	my $multiType	 	= $vars->{multiType};
	my $containerID 	= $vars->{containerId} || $widgetID;
        my $tableCaptionValue   = $vars->{tableCaption}; 	#can be blank
        my $recset              = $vars->{recordset}; 		#required
        my $lookups             = $vars->{lookups}; 		#if this isn't set, then new records will only contain what's on the screen
        my $standalone          = $vars->{standalone};		#if set, widget will include its own open and close tags
	my $defaults 		= $vars->{defaultvalues}; 	#if this isn't set, then new records will only contain what's on the screen
	my $nodelete		= $vars->{nodelete};
	my $flagcolor		= $vars->{flagColor};
	my $headings		= $vars->{headings};

        my $formOpenTag 	= '';
        my $formCloseTag 	= '';
	my $validator 		= {};
	my $tmplvars 		= {};

	$type = 'multi' unless $type;

	if ($type eq 'single') {
		$multiType = 'list' unless $multiType;
	}

        if ($standalone) {
                $formOpenTag = $vars->{formOpenTag} || $self->q->start_form({-method => 'post', -action => $self->q->url});
                $formCloseTag = $self->q->end_form;
        }


	$recset->select(@{$args{binds}}) unless $args{mode} eq 'blank';
#	$self->q->util->debug->edump($recset->data);

	$self->{_multi} = 0;
	$self->{_empty} = scalar @{$recset->data} ? 0 : 1;;

	my $headingsdiv;

	if ($type eq 'multi') {
		if ($headings && $headings eq 'none') {

		} elsif ($headings) {
			$headingsdiv .= $self->q->template($headings)->process($self->headings);

		} else {
			$tmplvars->{$headingItemVar.$_} = $recset->label($_) for $recset->visibleFields;
			$tmplvars->{$headingItemVar."DELETE"} = $deletename unless $nodelete;
		}

		my $bodyRowLoop = [];

		my $newrecordindex = 0;

		for (my $i = 0; $i < @{$recset->data}; $i++) {
			my $row = {};
			my $rownum = $i + 1;
			my $ID = $recset->data->[$i]->{$recset->primarykey};

			$row->{$bodyRowName} = $widgetID."Row".$rownum;
			$row->{$deleteID} = "$widgetID-$rownum" unless $nodelete;
			$row->{$deleteFlag} = 1 unless $nodelete;
			$row->{PRIMARYKEY} = $ID;

			foreach my $fieldname (keys %{$recset->data->[$i]}) {
				if ($recset->handle($fieldname)) { #if we've been given a handle for this field, set it
					${$recset->handle($fieldname)} = $recset->data->[$i]->{$fieldname};
				}

				unless ($recset->hidden($fieldname)) { #don't add hidden fields
					my $webname = "$widgetID-:UPDATE:".$fieldname."-:-".$ID."::".$rownum;
					my $webID = "$widgetID-".$fieldname."--".$rownum;

					$row->{"NAME.".$fieldname} = $webname;
					$row->{"ID.".$fieldname} = $webID;
					$row->{'LABEL.'.$fieldname} = $recset->label($fieldname) unless $recset->noLabel($fieldname);

					my $value;

					if ($recset->outputMask($fieldname)) {
						$value = sprintf $recset->outputMask($fieldname), $recset->data->[$i]->{$fieldname};
					} else {
						$value= $recset->data->[$i]->{$fieldname};
					}

					if ($recset->webcontrol($fieldname)) {
						my $webcontrol = $recset->webcontrol($fieldname);
						my $type = $webcontrol->{type};

						if ($type eq 'select') { #build variables for web controls
							$row->{"LOOP.".$fieldname} = $self->buildSelect($fieldname, $webcontrol, $value);
						} elsif ($type eq 'checkbox') {
							($row->{"VALUE.".$fieldname}, $row->{"CHECKED.".$fieldname}) = $self->buildCheckbox($fieldname, $webcontrol, $value);
						} elsif ($type eq 'radio') {
							$row->{"LOOP.".$fieldname} = $self->buildRadio($fieldname, $webcontrol, $webname, $webID, $value );
						} else {
							$row->{"VALUE.".$fieldname} = $value;
						}

					} else {
						$row->{"VALUE.".$fieldname} = $value;

					}

					if ($recset->validator($fieldname)) {
						my $rule = $recset->validator($fieldname);
						$rule->{label} = $recset->label($fieldname);
						$validator->{"$widgetID-".$fieldname."--".$rownum} =  $rule;
					}
				}
			}

			$newrecordindex = $rownum;
			push @$bodyRowLoop, $row;
		}

		#blank record for inserts

		my $defaultstring = join ",", sort keys %$defaults;
		my $blankrow = {};
		$newrecordindex++;
		$blankrow->{$bodyRowName} = $widgetID."Row".$newrecordindex;
		$blankrow->{$deleteID} = "$widgetID-$newrecordindex" unless $nodelete;
		$blankrow->{$deleteFlag} = 1 unless $nodelete;
		foreach my $field ( @{$recset->visibleFields}) {
			my $webname = "$widgetID-".$field."--".$newrecordindex;
			my $webID = "$widgetID-".$field."--".$newrecordindex;

			$blankrow->{"NAME.".$field} = $webname;
			$blankrow->{"ID.".$field} = $webID;
			$blankrow->{'LABEL.'.$field} = $recset->label($field) unless $recset->noLabel($field);

			if ($recset->webcontrol($field)) {
				my $webcontrol = $recset->webcontrol($field);
				my $type = $webcontrol->{type};

				if ($type eq 'select') { #build variables for web dropdowns
					$blankrow->{"LOOP.".$field} = $self->buildSelect($field, $webcontrol);

				} elsif ($type eq 'checkbox') {
					($blankrow->{"VALUE.".$field}, $blankrow->{"CHECKED.".$field}) = $self->buildCheckbox($field, $webcontrol);

				} elsif ($type eq 'radio') {
					$blankrow->{"LOOP.".$field} = $self->buildRadio($field, $webcontrol, $webname, $webID);

				} else {
					$blankrow->{"VALUE.".$field} = '';

				}

			} else {
				$blankrow->{"VALUE.".$field} = '';
			}

			if ($recset->validator($field)) {
				my $rule = $recset->validator($field);
				$rule->{label} = $recset->label($field);
				$validator->{"$widgetID-".$field."--".$newrecordindex} = $rule;
			}
		}

		push @$bodyRowLoop, $blankrow;

		$self->{_validator} = $validator;

		$tmplvars->{$tableCaptionVar}	= $tableCaptionValue;
		$tmplvars->{$bodyRowLoopVar}	= $bodyRowLoop;

	} elsif ($type eq 'single')  {
		if (scalar @{$recset->data} > 1) {
			unless ($vars->{multiType} eq 'sequential') { #there are configurations where we don't want to display multi
				$self->{_multi} = 1;
				return $self->displaySingleList(%args);
			}
		} elsif (scalar @{$recset->data} == 0) {
			$self->{_empty} = 1;
		}

		my $recordnum = 0; #which record of a multiple return to display, if we're not doing displaySingleList

		foreach my $field (keys %{$args{vars}}) {
			if ($field eq '-recordnum') {
				$recordnum = $args{vars}->{$field};
			} elsif ($args{vars}->{$field}->{handle}) {
				my $ref = $args{vars}->{$field}->{handle};
				$$ref = $recset->data->[$recordnum]->{$field};
			}
		}

		my $ID = $recset->data->[$recordnum]->{$recset->primarykey} || '';

		if ($args{mode} eq 'blank') {
			foreach my $fieldname (keys %{$recset->fieldlist}) {
				unless ($recset->hidden($fieldname)) {
					my $webname = "$widgetID-:INSERT:".$fieldname."--";
					my $webID = "$widgetID-".$fieldname;

					$tmplvars->{'LABEL.'.$fieldname} = $recset->label($fieldname) unless $recset->noLabel($fieldname);
					$tmplvars->{'NAME.'.$fieldname} = $webname;
					$tmplvars->{"ID.".$fieldname} = $webID;

					if ($recset->webcontrol($fieldname)) {
						my $webcontrol = $recset->webcontrol($fieldname);
						my $type = $webcontrol->{type};

						if ($type eq 'select') { #build variables for web dropdowns
							$tmplvars->{"LOOP.".$fieldname} = $self->buildSelect($fieldname, $webcontrol);
						} elsif ($type eq 'checkbox') {
							($tmplvars->{"VALUE.".$fieldname}, $tmplvars->{"CHECKED.".$fieldname}) = $self->buildCheckbox($fieldname, $webcontrol);
						} elsif ($type eq 'radio') {
							$tmplvars->{"LOOP.".$fieldname} = $self->buildRadio($fieldname, $webcontrol, $webname, $webID);
						} else {

						}
					}
				}
			}
		} else {
			foreach my $fieldname (keys %{$recset->fieldlist}) {
				my $value;

				if ($recset->outputMask($fieldname)) {
					$value = sprintf $recset->outputMask($fieldname), $recset->data->[$recordnum]->{$fieldname};
				} else {
					$value = $recset->data->[$recordnum]->{$fieldname};
				}

				if ($recset->handle($fieldname)) { #if we've been given a handle for this field, set it
					${$recset->handle($fieldname)} = $recset->data->[$recordnum]->{$fieldname};
				}

				unless ($recset->hidden($fieldname)) {
					my $webname = "$widgetID-:UPDATE:".$fieldname."-:-".$ID;
					my $webID = "$widgetID-".$fieldname;

					$tmplvars->{'LABEL.'.$fieldname} = $recset->label($fieldname) unless $recset->noLabel($fieldname);
					$tmplvars->{'NAME.'.$fieldname} = $webname;
					$tmplvars->{"ID.".$fieldname} = $webID;
					$tmplvars->{PRIMARYKEY} = $ID;

					if ($recset->webcontrol($fieldname)) {
						my $webcontrol = $recset->webcontrol($fieldname);
						my $type = $webcontrol->{type};

						if ($type eq 'select') { #build variables for web dropdowns
							$tmplvars->{"LOOP.".$fieldname} = $self->buildSelect($fieldname, $webcontrol, $value);
						} elsif ($type eq 'checkbox') {
							($tmplvars->{"VALUE.".$fieldname}, $tmplvars->{"CHECKED.".$fieldname}) = $self->buildCheckbox($fieldname, $webcontrol, $value);
						} elsif ($type eq 'radio') {
							$tmplvars->{"LOOP.".$fieldname} = $self->buildRadio($fieldname, $webcontrol, $webname, $webID, $value );
						} else {
							$tmplvars->{"VALUE.".$fieldname} = $value;

						}
					} else {
						$tmplvars->{"VALUE.".$fieldname} = $value;
					}
				}
			}
		}
	}

	foreach my $extra (keys %{$self->vars->{extravars}} ) {
		my $type = $self->vars->{extravars}->{$extra}->{type};
		if (ref $self->vars->{extravars}->{$extra}->{value} ) {
			$tmplvars->{"NAME.$extra"} = "$widgetID-$extra";
			$tmplvars->{"ID.$extra"} = "$widgetID-$extra";
			$tmplvars->{"VALUE.$extra"} = ${$self->vars->{extravars}->{$extra}->{value}};
		} else {
			$tmplvars->{"NAME.$extra"} = "$widgetID-$extra";
			$tmplvars->{"ID.$extra"} = "$widgetID-$extra";
			$tmplvars->{"VALUE.$extra"} = $self->vars->{extravars}->{$extra}->{value};
		}
	}

	my $divopen = $args{nodiv} ? '' : "";
	my $divclose = $args{nodiv} ? '' : "";
	$validator = $self->q->jswrap("var ".$self->widgetID ."Validator = ".to_json($self->validator).";");
	my $primarykey = $self->recordset->primarykey;

	my $searchObjectName = $self->widgetID.'SearchObject';

	my $searchObject = to_json([map {$widgetID."-".$_} @{$recset->visibleFields}]);

	my $jsvalidatorname = $widgetID."Validator";
	my $jscontrollername = $widgetID."Controller";
	my $jsmultisearchname = $widgetID."MultiSearchPrimaryKey";

	my $javascript = <
		var $jscontrollername = new datasetController('$widgetID', $jsvalidatorname, '$containerID', $searchObject, '$flagcolor');
		var $jsmultisearchname = '$primarykey';
END

	if ($javascript) {
		$javascript = minify(input => $javascript) unless $self->q->config->noMinify;
	}

	my $js = $self->q->jswrap($javascript);

	return $headingsdiv.
		$divopen.
		$validator.
		$js.
		$formOpenTag.
		$self->q->template($template)->process($tmplvars).
		$formCloseTag.
		$divclose;
}

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

 	my $preloadLookup = $self->preloadLookup;

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

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

        my $standalone 		= $self->vars->{standalone};
	my $formOpenTag 	= '';
	my $formCloseTag 	= '';
        my $widgetID		= $self->vars->{id};
	my $recset 		= $self->recordset;
	my @fieldlist 		= $recset->multipleFieldList;
	my @labels 		= $recset->multipleFieldLabels;

        my $surroundingDivName	= "DIV.MAIN";
        my $tableCaptionVar   	= "CAPTION";
        my $headingItemVar   	= "HEADING.ITEM.";
        my $bodyRowLoopVar    	= "ROW.LOOP";
        my $bodyRowName       	= "ROW";

	if ($standalone) {
		$formOpenTag = $self->vars->{formOpenTag} || $self->q->start_form({-method => 'post', -action => $self->q->url});
		$formCloseTag = $self->q->end_form;
	}

	my $bodyRowLoop = [];

	my $primarykey = $recset->primarykey;

	foreach my $record (@{$recset->data}) {
		my $row = {};
		my $ID = $record->{$primarykey} || '';

		foreach my $field (keys %{$record}) {
			if ($recset->multipleField($field)) {
				$row->{PRIMARYKEY} = $ID;

				if ($recset->webcontrol($field)) {
					my $webcontrol = $recset->webcontrol($field);
					my $type = $webcontrol->{type};

					if ($type eq 'select') { #build variables for web dropdowns
						$row->{"VALUE.".$field} = "".
							$self->singleListSelect($field, $webcontrol, $record->{$field}).
							"";

					} elsif ($type eq 'checkbox') {
						$row->{"VALUE.".$field} = "".
							$self->singleListCheckbox($field, $webcontrol, $record->{$field}).
							"";
					} elsif ($type eq 'radio') {
						$row->{"VALUE.".$field} = "".
						$self->singleListRadio($field, $webcontrol, $record->{$field}).
							"";
					} else {
						$row->{"VALUE.".$field} = "".$record->{$field}."";
					}

				} else {
					$row->{"VALUE.".$field} = "".$record->{$field}."";

				}
			}
		}

		push @$bodyRowLoop, $row;
	}

	my $tmplvars = {
		$bodyRowLoopVar	=> $bodyRowLoop,

	};

	$tmplvars->{$headingItemVar.$_} = $recset->label($_) for $recset->multipleFieldList;

	my $divopen = $args{nodiv} ? '' : "";
	my $divclose = $args{nodiv} ? '' : "";

	return $divopen.
		$formOpenTag.
		$self->q->template($self->vars->{multipleTemplate})->process($tmplvars).
		$formCloseTag.
		$divclose;
}

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

	return $self->{_empty};
}

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

	return $self->{_headings};
}

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

	return $self->{_multi};
}

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

	unless (ref $vars->{recordset} eq 'CGI::Lazy::DB::RecordSet') {
		$vars->{recordset} = $q->db->recordset($vars->{recordset});
	}

	my $self = {
			_q 		=> $q,
			_vars 		=> $vars,
			_recordset	=> $vars->{recordset},
			_type 		=> $vars->{type},
			_multiType 	=> $vars->{multiType},
			_widgetID 	=> $vars->{id},
	};

	bless $self, $class;

#	$q->util->debug->edump($self->recordset);

	$self->{_headings} = $self->buildHeadings;

	$self->buildvalidator;

	return $self;
}

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

	my $html = $self->rawContents(%args);

	my $outgoing = '{"validator" : '.$self->validator.', "html" : "'.$html.'"}';

	return $outgoing;
}

#----------------------------------------------------------------------------------------
sub singleListCheckbox {
	my $self = shift;
	my $fieldname = shift;
	my $webcontrol = shift;
	my $value = shift;

	if ($webcontrol->{value}) {
		if ($value eq $webcontrol->{value}) {
			return 'yes';
		} else {
			return 'no';
		}

	} elsif ($webcontrol->{sql}) {
		my ($query, @binds) = @{$webcontrol->{sql}};
		my $lookupvalue = $self->q->db->get($query, @binds);

		if ($value eq $lookupvalue) {
			return 'yes';
		} else {
			return 'no';
		}
	}
}

#----------------------------------------------------------------------------------------
sub singleListRadio {
	my $self = shift;
	my $fieldname = shift;
	my $webcontrol = shift;
	my $value = shift;

	my $list = [];
	my $vals = {};
	tie %$vals, 'Tie::IxHash';

	if ($webcontrol->{values} ) {

		if (ref $webcontrol->{values} eq 'HASH') {
			$vals = $webcontrol->{values};
		} elsif (ref $webcontrol->{values} eq 'ARRAY') {
			$vals->{$_} = $_ for @{$webcontrol->{values}};
		} else {
			return;
		}


	} elsif ($webcontrol->{sql} ) {
		my ($query, @binds) = @{$webcontrol->{sql}};

		$vals->{$_->[0]} = $_->[1] for @{$self->q->db->getarray($query, @binds)};

	}

	foreach (sort keys %$vals) {
		if ($vals->{$_} eq $value) {
			return  $_;

		}
	}

}

#----------------------------------------------------------------------------------------
sub singleListSelect {
	my $self = shift;
	my $fieldname = shift;
	my $webcontrol = shift;
	my $value = shift;

	my $list = [];

	my $vals = {};
	tie %$vals, 'Tie::IxHash';

	if ($webcontrol->{values} ) {
		if (ref $webcontrol->{values} eq 'HASH') {
			$vals->{''} = '' unless $webcontrol->{notNull};
			$vals = $webcontrol->{values};
		} elsif (ref $webcontrol->{values} eq 'ARRAY') {
			$vals->{''} = '' unless $webcontrol->{notNull};
			$vals->{$_} = $_ for @{$webcontrol->{values}};
		} else {
			return;
		}


	} elsif ($webcontrol->{sql}) {
		my ($query, @binds) = @{$webcontrol->{sql}};
		$vals->{''} = '' unless $webcontrol->{notNull};
		$vals->{$_->[0]} = $_->[1] for @{$self->q->db->getarray($query, @binds)};

	}

	foreach (keys %$vals) {
		if ($vals->{$_} eq $value) {
#			return $vals->{$_};
			return $_;
		}
	}
}

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

	return $self->{_type};
}

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

	return $self->{_vars};

}

1

__END__