?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE: Remote Host Link Attribute Routines' ??
MODULE rhm$get_display_link_attr_value;

{
{ PURPOSE:
{   This module gets the values of the link attributes that a site will allow
{   a user to display when they enter the DISPLAY_LINK_ATTRIBUTES command.

?? NEWTITLE := 'Global Declarations', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc osp$verify_system_privilege
*copyc rhv$display_charge_link_attr
*copyc rhv$display_family_link_attr
*copyc rhv$display_project_link_attr
*copyc rhv$display_user_link_attr
?? POP ??
?? OLDTITLE ??
?? NEWTITLE := '[XDCL,#GATE] rhp$get_display_link_attr_value', EJECT ??
*copy rhh$get_display_link_attr_value

  PROCEDURE [XDCL, #GATE] rhp$get_display_link_attr_value (
     VAR display_charge: boolean;
     VAR display_family: boolean;
     VAR display_project: boolean;
     VAR display_user: boolean);

{ Check to see whether the call is able to call this procedure.

    osp$verify_system_privilege;

    display_charge := rhv$display_charge_link_attr;
    display_family := rhv$display_family_link_attr;
    display_project := rhv$display_project_link_attr;
    display_user := rhv$display_user_link_attr;

  PROCEND rhp$get_display_link_attr_value;
?? OLDTITLE ??
MODEND rhm$get_display_link_attr_value;
