Function createModeJSON - apiInterface.conf - .pl

FUNCTION createModeJSON {
	IF("$requestType == $REQUEST_TYPE{NORMALREQUEST}"){
		$modeJson = getHashFromMode($request->{mode});
		$packName=$modeJson->{entityFilename};
		require $apiPath.$modeJson->{entityFilename};
	}ELSE IF("$requestType == $REQUEST_TYPE{ORMREQUEST} || $requestType == $REQUEST_TYPE{MULTIREQUEST}"){
		if(defined $request->{Entity}){
			$packName=$ENTITYMAP->{$request->{Entity}};
			print "\n\n package Name=$packName";
			eval "use $packName";
			$propertyObj="\$$packName"."::EventProperties";
			$objecto=eval $propertyObj;
			$modeJson = $objecto->{$request->{Event}};
			$modeJson->{entityFilename}=$packName;
			if((defined $modeJson->{ORM} && $modeJson->{ORM} ne 'true') || (!defined $modeJson->{ORM})){
				$requestType = $REQUEST_TYPE{NORMALREQUEST};
				$modeJson = getHashFromMode($request->{mode});
				require $apiPath.$modeJson->{entityFilename};
			}
		}			
	}
}