property pRequestList

on construct me 
  pRequestList = [:]
end

on deconstruct me 
end

on addRequest me, tRequestData 
  if ilk(tRequestData) <> #propList then
    return FALSE
  end if
  tUserID = string(tRequestData.getAt(#userID))
  tPrevIndex = pRequestList.findPos(tUserID)
  if tPrevIndex > 0 then
    pRequestList.deleteAt(tPrevIndex)
  end if
  pRequestList.setAt(tUserID, tRequestData)
end

on updateRequest me, tRequestData 
  if ilk(tRequestData) <> #propList then
    return FALSE
  end if
  tUserID = string(tRequestData.getAt(#userID))
  if not pRequestList.findPos(tUserID) then
    return FALSE
  end if
  tRequestProps = pRequestList.getAt(tUserID)
  if not voidp(tRequestProps) then
    tNo = 1
    repeat while tNo <= tRequestData.count
      tProp = tRequestData.getPropAt(tNo)
      tValue = tRequestData.getAt(tNo)
      tRequestProps.setAt(tProp, tValue)
      tNo = (1 + tNo)
    end repeat
    pRequestList.setAt(tUserID, tRequestProps.duplicate())
  end if
end

on getRequestByUserID me, tUserID 
  tRequest = pRequestList.getAt(string(tUserID))
  if voidp(tRequest) then
    return FALSE
  else
    return(tRequest)
  end if
end

on getPendingRequests me 
  tPendingList = [:]
  tMaxAmount = getVariable("fr.requests.max.visible")
  tNo = 1
  repeat while tNo <= pRequestList.count
    tRequest = pRequestList.getAt(tNo)
    if (tRequest.getAt(#state) = #pending) or (tRequest.getAt(#state) = #error) then
      tPendingList.setAt(string(tRequest.getAt(#userID)), tRequest)
      if tPendingList.count >= tMaxAmount then
      else
        tNo = (1 + tNo)
      end if
      return(tPendingList)
    end if
  end repeat
end