/* Copyright (c) Oracle Corporation 1997.  All Rights Reserved */
/*****************************************************************************
  NAME
    regnmoh.vrf - Non-MOH product handling script.

  DESCRIPTION
    This script is called by products that are not installable in more than
    one Oracle home.  This script adds the product label to a global list,
    defined in USER.AVF, if it has been detected that the product has been
    installed in another Oracle home.  This global list will be displayed in
    USER.PVF, after verification of all products selected to be installed,
    informing the user of products that cannot be installed since they are
    already installed in another home.  If the products have been installed
    in the same home, the error will not be displayed.

    USAGE:  In the <OS>.PRD, assign the MOH field of the product to TRUE.
            In the product's VRF script (PROD.VRF), assign the installer-bound
            variable MULTIPLE_HOME_INSTALLATION to FALSE, then call
            %OPERATING_SYSTEM%.VRF, finally call REGNMOH.VRF.

            Example:

                PROD.VRF:
                   multiple_home_installation = FALSE;
                   ... doit = execute("%installer_home%\%operating_system%.vrf"); ...
                   execute("%product_home%\regnmoh.vrf");


  CREATED
    Rod Fernandez, 13-NOV-97

  MODIFIED    DD-MMM-YY  Reason
*****************************************************************************/
{
        /* At this point doit will have a value since OS.VRF has been called. */

        /* If doit is true, return to caller - everything is okay. */
        if(doit)
                        return(0);
        /* Check why doit is false.  If the current product has been installed      */
        /* in a previous home add the current product to non_moh_prod_list (which   */
        /* is list of non-MOH products that are already installed in another home). */
        else
        {
                /* If the installer-bound list, current_product_installations, is     */
                /* is empty, then doit is false for another reason other than the     */
                /* the current product being detected as installed in another home.   */
                /* The list, current_product_installations, contains detailed info.   */
                /* regarding the installation of the current product in another home. */
               {
                  if(empty(current_product_installations))
                           return(0);
                /* It has been detected that the current product is already installed */
                /* in another home.  Add current product to non_moh_prod_list.        */
                  else
                           add(non_moh_prod_list, product_interface_label(current_product));

               }
               /*** If current_product_installations is unbound, return(0); ***/
               [ 'UNBOUND_VARIABLE: return(0); ]
        }
        return(0);
}