sub checkIsTagValueInclude{ 
  my $tagvalue = shift;
  my $search = shift;
  my $result = 0;
   
     if (";$tagvalue;" =~ /\;$search\;/i){
	  $result = 1;
	}else{
	  $result = 0;
	}
	return ($result);  
  }# end-checkIsTagValueInclude