
  TYPE
    put$selected_object = record
      entry: put$entry,
      p_catalog_header: ^put$catalog_header,
      new_entry: put$entry,
      p_new_catalog_header: ^put$catalog_header,
      selected_cycle_info: put$selected_cycle_info,
      object_restored: boolean,
      link: ^put$selected_object,
    recend;

*copyc pud$hierarchy_list
*copyc put$selected_cycle_info
