home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00047_PRODFieldResults.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  1.9 KB  |  47 lines
  1. on PRODFieldResults
  2.   global CDXresultlist, MGProdList, MGDescList, MGCatlist, MGRATEList, MGSectionList, MGIssueList, CDpageselect, CDrecordsfound
  3.   put " " into field "MGRESPROD"
  4.   put " " into field "MGRESDesc"
  5.   put " " into field "MGRESsection"
  6.   put " " into field "MGRESCat"
  7.   put " " into field "MGRESRate"
  8.   put " " into field "MGRESissue"
  9.   updateStage()
  10.   set MGProdList to list()
  11.   set MGDescList to list()
  12.   set MGCatlist to list()
  13.   set MGRATEList to list()
  14.   set MGSectionList to list()
  15.   set MGIssueList 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(MGProdList, getAt(getAt(CDXresultlist, g), 1))
  20.         add(MGDescList, getAt(getAt(CDXresultlist, g), 2))
  21.         add(MGCatlist, getAt(getAt(CDXresultlist, g), 3))
  22.         add(MGRATEList, getAt(getAt(CDXresultlist, g), 4))
  23.         add(MGSectionList, getAt(getAt(CDXresultlist, g), 5))
  24.         add(MGIssueList, getAt(getAt(CDXresultlist, g), 6))
  25.       end repeat
  26.     else
  27.       repeat with g = (CDpageselect * 18) - 18 + 1 to CDrecordsfound
  28.         add(MGProdList, getAt(getAt(CDXresultlist, g), 1))
  29.         add(MGDescList, getAt(getAt(CDXresultlist, g), 2))
  30.         add(MGCatlist, getAt(getAt(CDXresultlist, g), 3))
  31.         add(MGRATEList, getAt(getAt(CDXresultlist, g), 4))
  32.         add(MGSectionList, getAt(getAt(CDXresultlist, g), 5))
  33.         add(MGIssueList, getAt(getAt(CDXresultlist, g), 6))
  34.       end repeat
  35.     end if
  36.   else
  37.     repeat with g = 1 to CDrecordsfound
  38.       add(MGProdList, getAt(getAt(CDXresultlist, g), 1))
  39.       add(MGDescList, getAt(getAt(CDXresultlist, g), 2))
  40.       add(MGCatlist, getAt(getAt(CDXresultlist, g), 3))
  41.       add(MGRATEList, getAt(getAt(CDXresultlist, g), 4))
  42.       add(MGSectionList, getAt(getAt(CDXresultlist, g), 5))
  43.       add(MGIssueList, getAt(getAt(CDXresultlist, g), 6))
  44.     end repeat
  45.   end if
  46. end
  47.