/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    win32.pvf - V3 post version analysis script for Windows 95 and
                Windows NT products.

  DESCRIPTION
    This script performs post version analysis functionality.  In particular,
    it analyzes the 'products_for_installation' list so that the Installer
    can report which products need to be implicitly installed as a consequence
    of the user's current configuration and product selection. 

  CREATED
    Siddhartha Agarwal, July 10, 1996

  MODIFIED    DD-MMM-YY  Reason

*****************************************************************************/
{
  { ui_graphics("%product_home%\usrad%nls_abbreviation%.bmp"); } 
  ['default:
    { ui_graphics("%product_home%\adv%nls_abbreviation%.bmp"); }
    ['default:
      { ui_graphics("%installer_home%\adv%nls_abbreviation%.bmp"); }
      [ 'default:
	 { ui_graphics("%installer_home%\advus.bmp"); }
         ['default: continue();]
      ]
    ]
  ]

  if (user_action == 'install)
    {
      prod_not_empty = not(empty(products_for_installation));
      
      if (verbose) 
	{
	  extras = list();
	  {
            pfi = products_for_installation;
	    while (not(empty(pfi)))
	      {
                prod = first(pfi);
		if (not(member(selected_products,
			       prod)))
		  {
		    prodlab = product_interface_label(prod);
		    ver = product_version(prod);
		    add(extras,instantiate(version_string));
		  }

		pfi = rest(pfi);
	      }

	    if (not(empty(extras)))
	      {
		extrastring = implode(extras,", ");

		required_products_prompt = nls("required_products_prompt","The following product(s) are required and will be installed in addition to the ones you have chosen:%carriage_return%%carriage_return%%%extrastring%%");
		required_products_content = nls("required_products_content","Required Products");

		information_dialog(instantiate(required_products_prompt),
				   required_products_content,
				   instantiate(required_products_prompt));
	      }
	  }

	}
    }
    [ 'UNBOUND_VARIABLE: continue(); ] /* products_for_installation */
				       /* could possibly be unbound */

  return(0);
}