sub subSelect() {my $data = $dict->{DB}->get("SELECT pos,id,awk FROM awk");
	
	foreach( @{$data} ) {my $line ={id=>$_->{id}, awk=>$_->{awk}};		
		              $line->{ifSelected } = 1 if (defined($dict->{id}) and $_->{id} == $dict->{id});
		push(@{$dict->{loopSelect}}, $line); 
	}
	if (defined($dict->{id}) and $dict->{id} ne "") {
		my $data = $dict->{DB}->get("SELECT awk FROM awk WHERE id=$dict->{id}");		
		while (my ($k, $v) = each(%{@{$data}[0]})) {	$dict->{$k} = $v;	}		
	}
	return(1);
}