home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / CDXPCW09.DXR / 00008_CDXFieldResults.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  1.9 KB  |  47 lines
  1. on CDXFieldResults
  2.   global CDXresultlist, CDProdList, CDDescList, CDCatlist, CDStatusList, CDSectionList, CDIssueList, CDXpageselect, CDXrecordsfound
  3.   put " " into field "CDXRESPROD"
  4.   put " " into field "CDXRESDesc"
  5.   put " " into field "CDXRESsection"
  6.   put " " into field "CDXRESCat"
  7.   put " " into field "CDXRESstatus"
  8.   put " " into field "CDXRESissue"
  9.   updateStage()
  10.   set CDProdList to list()
  11.   set CDDescList to list()
  12.   set CDCatlist to list()
  13.   set CDStatusList to list()
  14.   set CDSectionList to list()
  15.   set CDIssueList to list()
  16.   if CDXpageselect > 0 then
  17.     if (CDXpageselect * 18) < CDXrecordsfound then
  18.       repeat with g = (CDXpageselect * 18) - 18 + 1 to CDXpageselect * 18
  19.         add(CDProdList, getAt(getAt(CDXresultlist, g), 1))
  20.         add(CDDescList, getAt(getAt(CDXresultlist, g), 2))
  21.         add(CDCatlist, getAt(getAt(CDXresultlist, g), 3))
  22.         add(CDStatusList, getAt(getAt(CDXresultlist, g), 4))
  23.         add(CDSectionList, getAt(getAt(CDXresultlist, g), 5))
  24.         add(CDIssueList, getAt(getAt(CDXresultlist, g), 6))
  25.       end repeat
  26.     else
  27.       repeat with g = (CDXpageselect * 18) - 18 + 1 to CDXrecordsfound
  28.         add(CDProdList, getAt(getAt(CDXresultlist, g), 1))
  29.         add(CDDescList, getAt(getAt(CDXresultlist, g), 2))
  30.         add(CDCatlist, getAt(getAt(CDXresultlist, g), 3))
  31.         add(CDStatusList, getAt(getAt(CDXresultlist, g), 4))
  32.         add(CDSectionList, getAt(getAt(CDXresultlist, g), 5))
  33.         add(CDIssueList, getAt(getAt(CDXresultlist, g), 6))
  34.       end repeat
  35.     end if
  36.   else
  37.     repeat with g = 1 to CDXrecordsfound
  38.       add(CDProdList, getAt(getAt(CDXresultlist, g), 1))
  39.       add(CDDescList, getAt(getAt(CDXresultlist, g), 2))
  40.       add(CDCatlist, getAt(getAt(CDXresultlist, g), 3))
  41.       add(CDStatusList, getAt(getAt(CDXresultlist, g), 4))
  42.       add(CDSectionList, getAt(getAt(CDXresultlist, g), 5))
  43.       add(CDIssueList, getAt(getAt(CDXresultlist, g), 6))
  44.     end repeat
  45.   end if
  46. end
  47.