/// <summary>
        /// Init red list information.
        /// </summary>
        /// <param name="taxonSpeciesFact">Taxon species fact view model.</param>
        /// <param name="categorySpeciesFact">Red list category species fact.</param>
        /// <param name="criteriaSpeciesFact">Red list criteria species fact.</param>
        /// <param name="criteriaDocumentationSpeciesFact">Red list criteria documentation species fact.</param>
        /// <param name="globalCategorySpeciesFact">Global red list category species fact.</param>
        /// <param name="period">Red list period.</param>
        public static void InitRedListInformation(
            TaxonSpeciesFactViewModel taxonSpeciesFact,
            ISpeciesFact categorySpeciesFact,
            ISpeciesFact criteriaSpeciesFact,
            ISpeciesFact criteriaDocumentationSpeciesFact,
            ISpeciesFact globalCategorySpeciesFact,
            IPeriod period)
        {
            if (categorySpeciesFact.IsRedlistCategorySpecified())
            {
                taxonSpeciesFact.RedListCategory            = categorySpeciesFact.Field1.EnumValue.OriginalLabel.Substring(0, categorySpeciesFact.Field1.EnumValue.OriginalLabel.Length - 4) + "(" + categorySpeciesFact.MainField.StringValue + ")";
                taxonSpeciesFact.IsRedListed                = categorySpeciesFact.Field1.EnumValue.KeyInt >= (int)RedListCategory.DD && categorySpeciesFact.Field1.EnumValue.KeyInt < (int)RedListCategory.LC;
                taxonSpeciesFact.IsRedListCriteriaAvailable = (categorySpeciesFact.Field1.EnumValue.KeyInt >= (int)RedListCategory.CR) && (categorySpeciesFact.Field1.EnumValue.KeyInt <= (int)RedListCategory.VU);
            }

            if (taxonSpeciesFact.IsRedListCriteriaAvailable && criteriaSpeciesFact.IsRedlistCriteriaSpecified())
            {
                taxonSpeciesFact.RedListCriteria = criteriaSpeciesFact.MainField.StringValue;
            }

            if (globalCategorySpeciesFact.IsGlobalRedlistCategorySpecified())
            {
                taxonSpeciesFact.GlobalRedListCategory = globalCategorySpeciesFact.MainField.StringValue;
            }

            if (criteriaDocumentationSpeciesFact.IsRedlistDocumentationSpecified())
            {
                taxonSpeciesFact.RedListDocumentationQuality = criteriaDocumentationSpeciesFact.Quality.Id;
                taxonSpeciesFact.RedListDocumentationText    = criteriaDocumentationSpeciesFact.MainField.StringValue;
            }

            taxonSpeciesFact.Period = period.Year;
        }