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

/*****************************************************************************
  NAME
    repl60.dei - V3 deinstallation script for Oracle
                 Reports Language Supplement

  DESCRIPTION
    This script removes Reports Language Supplement

  MODIFIED  MM/DD/YY        Reason
  ynuraliy  08/14/97        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        = "w32rrun60,w32rdes60";
         /****************************/
         /********************************************
          Validate Reports Runtime deinstallation path
         ********************************************/
         deinstall_rdes       = TRUE;
         deinstall_rrun       = TRUE;
         deinstall_deinst     = TRUE;
        BROWSER60     = "%oracle_home%%dir_separator%BROWSE60";
         /********************************************
          remove only if the product is selected to be
          remove AND if it already registered.
         **********************************************/

         report_flag = FALSE;
         if (member(registration("selected_registries"),"w32report60"))
         {
                report_flag = TRUE;
         }

         selection_list = registration("selected_registries");
         productname = "string";
         if (report_flag)
         {
           /* if report is selected by the user, then don't do anything.
             we have already set all the deinstall variables to TRUE.
             therefor everything SHOULD get removed BUT doesn't.
           */
         }
         else
         {
           /* if not, the user has selected any of the individual sub
              components under reports. like, runtime, mts etc
              In this case we need to find out what was the product
              selected and remove the appropriate language files.
              If some product was not selected set it to FALSE.
            */
                if (not(empty(selection_list)))
                {
                        deinstall_rdes       = FALSE;
                        deinstall_rrun       = FALSE;
                        deinstall_deinst     = FALSE;

                }
                while(not(empty(selection_list)))
                {
                   productname = (registry_name(first(selection_list)));

                   if (productname == "w32rrun60")
                        deinstall_rrun = TRUE;
                   if (productname == "w32rdes60")
                        deinstall_rdes = TRUE;
                   if (productname == "w32repl60")
                        deinstall_deinst = TRUE;
                   if (productname == "w32report60")
                   {
                        deinstall_rdes       = TRUE;
                        deinstall_rrun       = TRUE;
                        deinstall_deinst     = TRUE;
                    }
                    selection_list= rest(selection_list);
                }
         }


         /***************************
          Validate deinstallation path
         ****************************/
         deinstall_variable = "RW60";
         section_heading    = registry_filename(PARENT_PRODUCT);
         EXECUTE_SCRIPT         = "GET_DEINSTALLATION_PATH";
         RW60                  = 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_rrun)

         {
            ui_action(instantiate(deinstall_files));
            remove(rrun);
        }

          if(deinstall_rdes)

          {
            ui_action(instantiate(deinstall_files));
            remove(rdes);
        }

            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);
         
            }


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

          permit_retry_operations = FALSE;



     }
}