with Common;
with Activity;
with String_Utilities;
with System_Utilities;
procedure Login_Jls is
begin
    if (String_Utilities.Upper_Case (System_Utilities.Session_Name) =
        String_Utilities.Upper_Case ("Catalogs")) then  
        Common.Definition (Name => "!Software_Catalogs.Catalogs.Customer");
        Activity.Set_Default
           (The_Activity => "!Software_Catalogs.Catalogs.Customer.Activity");
    elsif (String_Utilities.Upper_Case (System_Utilities.Session_Name) =
           String_Utilities.Upper_Case ("Design")) then
        Common.Definition
           (Name => "!Tools.Design.PDL_2167_Documents.Rev3_1_0.Units");
    elsif (String_Utilities.Upper_Case (System_Utilities.Session_Name) =
           String_Utilities.Upper_Case ("Objects")) then
        Common.Definition
           (Name =>
               "!Software_Catalogs.Catalogs.Customer.Sections.Directory_Tools.Object_Sets.Rev1_Working.Units");
    else
        Common.Definition (Name => "!Users.JLS");
    end if;
end Login_Jls;