home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00029_CDXFieldResults.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  1.9 KB  |  47 lines
  1. on CDXFieldResults
  2.   global CDXresultlist, CDProdList, CDDescList, CDCatlist, CDStatusList, CDSectionList, CDIssueList, CDpageselect, CDrecordsfound
  3.   put " " into field "CDRESPROD"
  4.   put " " into field "CDRESDesc"
  5.   put " " into field "CDRESsection"
  6.   put " " into field "CDRESCat"
  7.   put " " into field "CDRESstatus"
  8.   put " " into field "CDRESissue"
  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 CDpageselect > 0 then
  17.     if (CDpageselect * 18) < CDrecordsfound then
  18.       repeat with g = (CDpageselect * 18) - 18 + 1 to CDpageselect * 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 = (CDpageselect * 18) - 18 + 1 to CDrecordsfound
  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 CDrecordsfound
  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.