/* Copyright (c) Oracle Corporation 1997.  All Rights Reserved */
/*****************************************************************************
  NAME
    shownmoh.vrf - Display non-moh products already installed in another home.

  DESCRIPTION
    This script displays the list of non-moh products, if it's not empty that
    have been installed in another home.  This list of products is defined
    and initialized in USER.AVF.  This script, i.e. show_nmp.vrf, is to be
    called in USER.PVF, which is the post verification of all products selected
    to be installed.

    USAGE:
        In USER.PVF call shownmoh.vrf:
                ...
                execute("shownmoh.vrf");
                ...

  CREATED
    Rod Fernandez, 13-NOV-97

  MODIFIED    DD-MMM-YY  Reason
  zzerhoun    24/08/99   Moved NLS strings to win32.
  jewillia    11/10/00   Modified for lengthy list
*****************************************************************************/
{
        /* If the list, non_moh_prod_list is empty, return to caller. */
        if(empty(non_moh_prod_list))
                return(0);
        /* Else display a message informing the user that the products in */
        /* non_moh_prod_list cannot be installed.                         */
        else
        {
                /* Implode list of products (non_moh_prod_list) to string. */
                nmoh_product_list = list();
                union(nmoh_product_list, non_moh_prod_list);

                max_display_length = 25;
                normal_display_length = 20; /* must be less than max display length */

                l = length(nmoh_product_list);
                while (l > max_display_length)
                  {
                     nmoh_display_list = list();
                     c = normal_display_length;
                     while (c > 0)
                       {
                         c = c-1;
                         add(nmoh_display_list,first(nmoh_product_list));
                         nmoh_product_list = rest(nmoh_product_list);
                       }
                  non_moh_prods   = implode(nmoh_display_list, "%carriage_return%");
                  information_dialog(instantiate(non_moh_msg2),
                                     instantiate(non_moh_content),
                                     instantiate(non_moh_help));
                  l = length(nmoh_product_list);
                  }

                /* non_moh_prods   = implode(non_moh_prod_list, "%carriage_return%"); */
                non_moh_prods   = implode(nmoh_product_list, "%carriage_return%");

                /* Display the dialog box. */
                information_dialog(instantiate(non_moh_msg3),
                                   instantiate(non_moh_content),
                                   instantiate(non_moh_help));
        }
        return(0);
}