gistfile1.txt

Declare Function PortalOpen PeopleCode FUNCLIB_PORTAL.PORTAL_GEN_FUNC FieldFormula;

Function GetListOfAvailablePageletsOnTab(&TabName As string) Returns JavaObject
   
   &ap = CreateJavaObject("java.util.HashMap");
   &Portal = PortalOpen();
   &TabRef = &Portal.TabDefinitions.ItemByName(&TabName);
   &AvailablePagelets = &TabRef.AvailablePagelets;
   &Pagelet = &AvailablePagelets.First();
   While &Pagelet <> Null;
      &ap.put(&Pagelet.PageletName, CreateArray(&Pagelet.PageletLabel, &Pagelet.CategoryLabel));
      &Pagelet = &AvailablePagelets.Next();
   End-While;
   
   REM Remove pagelets that are already on the tab;
   &SelectedPagelets = &Portal.Homepage.UserTabs.ItemByName(&TabName).SelectedPagelets;
   &SelectedPagelet = &SelectedPagelets.First();
   While &SelectedPagelet <> Null;
      &ap.remove(&SelectedPagelet.PageletName);
      &SelectedPagelet = &SelectedPagelets.Next();
   End-While;
   
   &Portal.Close();
   Return &ap;
End-Function;