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

/*****************************************************************************
  NAME
    xcl60.dei - V3 deinstallation script for Oracle
                 Forms Language Supplement

  DESCRIPTION
    This script removes Forms Language Supplement

  MODIFIED  MM/DD/YY        Reason
  MAJAIN		CREATED
*****************************************************************************/

{
     /************************************************
     Set necessary variables for deinstallation
     *************************************************/
     EXECUTE_SCRIPT = "SET_DEINSTALL_VARIABLES";
     execute("%installer_home%\d2kr2dei.usr");
     /************************************************/
     {doit = execute("%installer_home%%dir_separator%%operating_system%.dei");}
     [
        'UNBOUND_VARIABLE: signal('failure,instantiate(nls("instver_too_early2",
                                                           "The version of the Installer currently running is %%installer_version%%. The product(s) you have chosen to deinstall were installed with a later version of the Installer. Please use a later version of the Installer to deinstall these Product(s).")));
    ]
/*    doit = TRUE;*/
    if (doit)
    {
          /************************************************
          Create a label with the product name, and version
          *************************************************/
          EXECUTE_SCRIPT = "CREATE_LABEL";
          execute("%installer_home%%dir_separator%d2kr2dei.usr");
          /************************************************/
         /****************************
          Set up product name variables
          *****************************/
          PARENT_PRODUCT       = registry_parent(current_registry);
          PARENT_REGISTRY_NAME = registry_name(PARENT_PRODUCT);
          COMPONENT_PRODUCT_STRING        = "w32xrul60";
         /****************************/
         /********************************************
          Validate Reports Runtime deinstallation path
         ********************************************/
         deinstall_deinst     = TRUE;
         deinstall_base       = True;
         /********************************************
         /***************************
          Validate deinstallation path
         ****************************/
         deinstall_variable = "GSINSTALLDIR";
         section_heading    = registry_filename(PARENT_PRODUCT);
         EXECUTE_SCRIPT     = "GET_DEINSTALLATION_PATH";
         GSINSTALLDIR       = execute("%installer_home%%dir_separator%d2kr2dei.usr");

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

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

          /************************************************
            Deinstall parent if no other child product exists
            *************************************************/
            EXECUTE_SCRIPT = "DEINSTALL_PARENT";
            execute("%installer_home%%dir_separator%d2kr2dei.usr");
            /************************************************/

          /********************
          Deinstall the product
          *********************/

            if (deinstall_deinst)
            {
            /*********************
            Unregister the product
            **********************/
            ui_product(instantiate(display_registry_label));
            ui_action(instantiate(deinstall_unregister));
            unregister(current_registry);
            /*********************/

            /************************************************
            Deinstall parent if no other child product exists
            *************************************************/
            EXECUTE_SCRIPT = "DEINSTALL_PARENT";
            execute("%installer_home%%dir_separator%d2kr2dei.usr");
            /************************************************/
            ui_action(instantiate(deinstall_files));
            remove(deinst);
            remove(xr);
            }


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

          permit_retry_operations = FALSE;



     }
}