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

/*****************************************************************************
  NAME
    xcl60.ins - V3 installation script for Dev2000 Forms Language Supplement

  DESCRIPTION
    This script installs Forms Language Supplement.

  MODIFIED      MM/DD/YY        REASON
  pgupta        08/14/97        Created
*****************************************************************************/

{
    if(not(doit))
    {
       if(member(selected_products, w32xcl60))
       {
          information_dialog("Language Supplement Files are not required if English is chosen");
       }
    }
    if (doit)
    {
       
        /*****************************
        Set the VRF-INS script ratchet
        ******************************/
        ins_ratchet = "6.0.0.0.0";

        execute("%installer_home%%dir_separator%%operating_system%.ins");

        permit_retry_operations  = TRUE;
        permit_ignore_operations = TRUE;
        permit_process_operations= TRUE;


        if(child_in_control)
            if(install_parent)
                install(product_parent(current_product));
        /***********************************/
        /***************************************************************
         Registering map variables except Installer_home and oracle_home
        ****************************************************************/
         win32_register_map_variable("GSINSTALLDIR");
         win32_register_map_variable("GSCONNECTDIR");

        /******************
        Install the product
        *******************/
        ui_product(instantiate(display_product_label));

        ui_action(instantiate(install_files));
        copy(deinst);
        copy(base, nls_abbreviation);
       /******************/

        /*********************************
        Register and Reference the product
        and remove delold
        **********************************/
        EXECUTE_SCRIPT = "REGISTER_REFERENCE_PRODUCT";
        execute("%installer_home%%dir_separator%d2kr2ins.usr");
      /************************************************/

         permit_retry_operations = FALSE;
        /***********************************/


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

        permit_retry_operations = TRUE;


        /*********************
        Reference dependencies
        **********************/
        ui_action(instantiate(reference_dependencies));

        {reference(current_product,product_parent(current_product));}  /* reference parent */
        ['UNREGISTERED_PRODUCT: continue();]

        /*********************/
        permit_retry_operations = FALSE;

    }
    [
         'UNREGISTERED_PRODUCT: continue();
         'CANCEL: signal('FAILURE, instantiate(halt_installation));
    ]
}