
  PROCEDURE [INLINE] pfp$form_administrator_permit
    (    authority: pft$authority;
     VAR permit_entry: pft$permit_entry);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
    IF authority.ownership * $pft$ownership [pfc$system_owner, pfc$set_owner,
          pfc$family_owner] <> $pft$ownership [] THEN
      IF permit_entry.entry_type = pfc$free_permit_entry THEN
        permit_entry.entry_type := pfc$normal_permit_entry;
        permit_entry.group.group_type := pfc$user;
        permit_entry.group.user_description.family := authority.family;
        permit_entry.group.user_description.user := authority.user;
        permit_entry.usage_permissions := -$pft$permit_selections [];
        permit_entry.share_requirements := $pft$share_selections [];
        permit_entry.application_info := osc$null_name;
      ELSE
        permit_entry.group.group_type := pfc$user;
        permit_entry.group.user_description.family := authority.family;
        permit_entry.group.user_description.user := authority.user;
        permit_entry.usage_permissions := -$pft$permit_selections [];
        permit_entry.share_requirements := $pft$share_selections [];
      IFEND;
    IFEND;

  PROCEND pfp$form_administrator_permit;

*copyc pft$authority
*copyc pft$permit_entry
?? POP ??
