/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    d2dh60.vrf - V3 version analysis/product configuration script for
               Common Help Files

  DESCRIPTION
    This script checks dependencies and environment settings for the
    installation of Common Help Files.

  MODIFIED    MM/DD/YY  Reason
  pgupta      11/12/97  Created
*****************************************************************************/
{

    reinstall_group            = nls("reinstall_group","Version %%installed_version%% of %%product_label%% has already been installed and is up to date.  Do you want to reinstall it?");
    reinstall_group_help    = nls("reinstall_group_help","You selected to install %%product_label%%, which is up to date.  Unless a problem has occurred with %%product_label%%, there is no need to reinstall.  Choose 'No' to skip the reinstallation, or choose 'Yes' if you want to reinstall %%product_label%%.");

    { doit = execute("%installer_home%%dir_separator%%operating_system%.vrf"); }
    [
        'UNBOUND_VARIABLE:
        {
            required_version = product_version(instver_product);
            temp             = explode(required_version, ".");
            required_version = implode(list(first(temp),first(rest(temp)),
                                            first(rest(rest(temp))),
                                            first(rest(rest(rest(temp))))), ".");
            signal('FAILURE, instantiate(nls("instver_too_early1",
                                             "The version of the Installer currently running is %%installer_version%%. The installation you have chosen requires version %%required_version%% or later. Please run version %%required_version%% or later in order to perform this installation.")));
        }
    ]                                                                   /* This FAILURE will cause 3.0.x.x installer to exit gracefully. */

    doit = TRUE;
    if (doit)
    {	
        /*******************************
           Set the VRF-INS script "ratchet"
        ********************************/
        vrf_ratchet = "1.0.0.9.0";

        /************************************************
        Create a label with the product name, and version
        *************************************************/
        EXECUTE_SCRIPT = "CREATE_LABEL";
        execute("%installer_home%%dir_separator%d2kr2vrf.usr");
        /************************************************/

        /*************************
        Set Product Name variables
        **************************/
        REQUIRED_PRODUCTS_LIST = list(w32oin60,w32fhl60);
        required_products_to_install = list();
        /*************************/
        /**********************************************************************
        parent_in_control = TRUE ==> the complete product needs to be installed
        parent_in_control = FALSE ==> PARENT called by one of the components
        ***********************************************************************/
        parent_in_control = TRUE;
        if(not(member(selected_products, current_product)))
        {
            child_products = all_child_products(current_product);
            while(not(empty(child_products)))
            {
                next_child = first(child_products);
                child_products = rest(child_products);
                if(member(products_for_installation, next_child))                /* PARENT called by one of the components, no need to add PARENT to the list of products to be installed */
                    parent_in_control = FALSE;
            }
        }
        /**********************************************************************/

        /**************************
        Determine installation path
        ***************************/
        install_variable = "OIN";
        default_home     = "%oracle_home%%dir_separator%OIN";
        OIN     = execute("%installer_home%%dir_separator%instloc.usr");
        TOOLS_HOME = "%ORACLE_HOME%%dir_separator%TOOLS";
        DOC60 = "%TOOLS_HOME%%dir_separator%DOC60";
        DOC60_NLS = "%DOC60%%dir_separator%%NLS_ABBREVIATION%";
        /********************************************************************
        Calculate total size of installation.....
        *********************************************************************/
        total_sum = 0;

        /****************************************
         Check which groups need to be installed
        *****************************************/

        install_forms = TRUE;
        install_graphics = TRUE;
        install_graphrun = TRUE;
        install_procbldr = TRUE;
        install_transbldr = TRUE;
        install_schbldr = TRUE;
        install_projbldr = TRUE;
        install_qrybldr = TRUE;

             total_sum = total_sum + sum(forms,"us");
             total_sum = total_sum + sum(forms,nls_abbreviation);
             total_sum = total_sum + sum(graphics,"us");
             total_sum = total_sum + sum(graphics,nls_abbreviation);
             total_sum = total_sum + sum(graphics_runtime,"us");
             total_sum = total_sum + sum(graphics_runtime,nls_abbreviation);
             total_sum = total_sum + sum(procedure_builder,"us");
             total_sum = total_sum + sum(procedure_builder,nls_abbreviation);
             total_sum = total_sum + sum(project_builder,"us");
             total_sum = total_sum + sum(project_builder,nls_abbreviation);
             total_sum = total_sum + sum(query_builder,"us");
             total_sum = total_sum + sum(query_builder,nls_abbreviation);
             total_sum = total_sum + sum(schema_builder,"us");
             total_sum = total_sum + sum(schema_builder,nls_abbreviation);
             total_sum = total_sum + sum(translation_builder,"us");
             total_sum = total_sum + sum(translation_builder,nls_abbreviation);


        /****************************************************
        Check if Information Navigator needs to be installed
        This is required by all of the products that
        depend on d2dh.
        *****************************************************/
        /*************************************************
        Determine which of the required products specified
        in required_products_list need to be installed
        **************************************************/
        while(not(empty(required_products_list)))
        {
            REQUIRED_PRODUCT = first(required_products_list);
            required_products_list = rest(required_products_list);

            EXECUTE_SCRIPT     = "CHECK_REQUIRED_PRODUCT";
            install_required_product = execute("%product_home%%dir_separator%d2kr2vrf.usr");

            if (install_required_product)
            {
                total_sum = total_sum + verify(REQUIRED_PRODUCT);
                add(required_products_to_install, REQUIRED_PRODUCT);
            }
        }
        /*************************************************/
       /***********************************************
        If PARENT is explicitly called for installation,
        verify all the component products
        ************************************************/
        EXECUTE_SCRIPT = "VERIFY_COMPONENTS";
        total_sum = total_sum + execute("%product_home%%dir_separator%d2kr2vrf.usr");

       /***********************************************/


        total_sum = total_sum + sum(deinst,common);

        return(total_sum);

/*************************************************/

        if(child_in_control)
        {
           if(not(member(products_for_installation, w32fhl60)))
           {
                    total_sum = total_sum + verify(w32fhl60);
                    add(products_for_installation, w32fhl60);

            }
         } 
        /********************************************************************/
        /***************************
        Return total size of files
        ***************************/
        total_sum = total_sum + sum(deinst);
        total_sum = total_sum + sum(d2dhdes);

        return(total_sum);
        /************************************************************/
  }
    else
    {
        refresh_map_file = FALSE;
        return(0);
    }
}