/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */

/*****************************************************************************
  NAME
    orlang30.vrf - V3 analysis/product configuration script for Oracle
                 Report 3.0 Language Supplement

  DESCRIPTION
    This script checks dependencies and environment settings for the
    installation of Report Language Supplement.

  MODIFIED      MM/DD/YY        REASON
  pgupta        08/29/97        Created.
*****************************************************************************/

{
    SHARED_ORACLE_COMPLIANT = TRUE;


   {
        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. */

    /**************************************
    Set Product Name variables
    **************************************/
    FORMS_LANG            = w32formsl60;

    /********************************************/
    /******************************************************************************************************
    START MAIN LOGIC
    *******************************************************************************************************/

    doit = TRUE;

    nls_lang = translate("nls_lang",ora_config);
    if (nls_lang ==  "AMERICAN_AMERICA.WE8ISO8859P1")
    {
           doit = FALSE;
    }
    if (doit)
    {

        /*****************************
        Set the VRF-INS script ratchet
        ******************************/
        vrf_ratchet = "6.0.0.0.0";

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

        /******************************************************************
        child_in_control = TRUE ==> component product called explicitly
        child_in_control = FALSE ==> component product called by the PARENT
        *******************************************************************/
        child_in_control = TRUE;
        if( member(products_for_installation, product_parent(current_product) ))
            child_in_control = FALSE;
        /**********************************************************************/

        /**************************
        Determine installation path
        ***************************/
        install_variable = "FORMS60";
        default_home     = "%oracle_home%%dir_separator%FORMS60";
        FORMS60             = execute("%product_home%%dir_separator%instloc.usr");
        /**************************/

        /********************************************************************
        Initialize total size of files
        *********************************************************************/
        total_sum = 0;

         /*************************************************
        Check if Forms files need to be installed
        *************************************************/
        install_fmsg = TRUE;
        install_fdesres = FALSE;
        install_fcuesnd = FALSE;
        install_frunweb = FALSE;
        install_frunres = FALSE;
	  install_fhelp = TRUE;
	  total_sum = total_sum + sum(fmsg,fhelp);
	  if(member(selected_products,w32forms60))
	  {
		install_fdesres = TRUE;
        	install_fcuesnd = TRUE;
        	install_frunres = TRUE;
            total_sum = total_sum + sum(fdesres,fcuesnd,frunres);
		if(not(operating_system == "win95"))
		{
			install_frunweb = FALSE;
            	total_sum = total_sum + sum(frunweb);
		}
	  }
	  if((member(selected_products,w32fdes60))||(registered("w32fdes60")) || member(products_for_installation,w32fdes60))
	  {
		install_fdesres = TRUE;
	  	total_sum = total_sum + sum(fdesres);

	  }
        if((member(selected_products, w32fccsnd60)) || (registered("w32fccsnd60")) || member(products_for_installation,w32fccsnd60))
        {
        	install_fcuesnd = TRUE;
        	total_sum = total_sum + sum(fcuesnd);
        }
	  
	  if(not(operating_system == "win95"))
        {
		if((member(selected_products, w32frunw60)) || (registered("w32frunw60")) || member(products_for_installation,w32frunw60))
        	{
			install_frunweb = TRUE;
			install_frunres = TRUE;
            	total_sum = total_sum + sum(frunweb)+sum(frunres);
        	}
	  }
        if ((member(selected_products,w32frun60)) || (registered("w32frun60")) || member(products_for_installation,w32frun60))
        {
        	install_frunres = TRUE;
            total_sum = total_sum + sum(frunres);

        }


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

        /*********************************
        Verify PARENT if explicitly called
        **********************************/
        install_parent = FALSE;
        if(child_in_control)
        {
            EXECUTE_SCRIPT = "VERIFY_PARENT";
            install_parent = execute("%product_home%%dir_separator%d2kr2vrf.usr");
        }

        if(install_parent)
            total_sum = total_sum + verify(product_parent(current_product));
        /*********************************/


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