/* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
/*****************************************************************************
  NAME
    update61.ins - V3.1.2 installation script for
                   update product

  DESCRIPTION
    This script installs update product

  OWNER
    Jeremy Williams

  MODIFIED    DD-MMM-YY  Reason
    jewillia  07-NOV-94  Created

*****************************************************************************/
{
  {
  { dummy = debug_ins; }
  ['UNBOUND_VARIABLE: { debug_ins = false; } ]

  { dummy = debug_update; }
  ['UNBOUND_VARIABLE: { debug_update = false; } ]

  filename_list = explode(current_script,"\/");  /* allow unix and dos/os2 seperators */
  while (not(empty(filename_list)))
    {
    filename = first(filename_list);
    filename_list = rest(filename_list);
    }

  if ((debug_ins) ||(debug_update)) information_dialog("%filename% -
Starting Update Product Script...
doit = %doit%");

  if (doit)
    {
      ui_product(product_label);
      ui_action(instantiate(installing_product));

      ins_ratchet = "7.2.96.5.6";
      execute("%installer_home%\%operating_system%.ins");
      while(not(empty(install_list)))
        {
          next_product = first(install_list);
          install_list = rest(install_list);
          install(next_product);

          ui_product(product_label);
          ui_action(instantiate(installing_product));
        }

      ui_product(product_label);

/* ......
.      ui_action(instantiate(installing_deinstl));
.      copy(deinstl,nls_abbreviation);
.
.      while(not(empty(reference_list)))
.        {
.          next_product = first(reference_list);
.          reference_list = rest(reference_list);
.          if ((not(member(restrict_list,next_product))))
.            {
.              if (registered(product_name(next_product)))
.                {
.                  reference(next_product,current_product);
.                }
.              else
.                {
.                  if (debug_ins)
.                    {
.                      information_dialog("%next_product% not registered. Can not reference from %current_product%");
.                    }
.                }
.            }
.        }
.
.      permit_retry_operations = FALSE;
.
... */
    }

    {
/* ...
.       if (not(internally_called))
.          reference(current_product);
... */
    }
  }
  [
    'UNREGISTERED_PRODUCT: continue();
    'CANCEL: signal('FAILURE, instantiate(halt_installation));
  ]

  if ((debug_ins) || (debug_update)) information_dialog("%current_script% -
Ending Update Product Script...");

}