'MacroName:NextAF
'MacroDescription:Browse forward to the next authority record in a browse list
'Macro written by: Joel Hahn, Niles Public Library District
'Last modified: 15 April 2005

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")

   CurWinType = CS.ItemType
   If CurWinType <> 3 Then
     Goto Done
   End If

   i = -1
   HasList = FALSE
   Do
     bool = CS.GetWindowTitle(i, sTitle)
     If i = -1 Then
       ReturnWinTitle = sTitle
     Else
       If sTitle = ReturnWinTitle Then ReturnWinID = i
       If CS.ItemType = 11 or CS.ItemType = 16 Then HasList = TRUE
     End If
     i = i + 1
     bool = CS.SetTopWindow(i)
   Loop While bool <> FALSE
   bool = CS.SetTopWindow(ReturnWinID)
   If HasList = FALSE Then
      MsgBox "Displayed authority record does not have an associated browse list. Exiting..."
      Goto Done
   End If

   CS.CloseRecord False
   CS.SendKeys "{DOWN}", -1
   bool = CS.GetFirstSelectedItem
   If CS.ItemType = 16 Then
     CS.GetListItem 1
   End If

Done:
End Sub