*Meetingsold.prg
#INCLUDE WCONNECT.H

*************************************************************
DEFINE CLASS MeetingsOld AS rbPage &&WWC_PROCESS
*************************************************************

   ***************************************************************************
   ** Past meetings
   ***************************************************************************
   Function Page()

      This.Data()
      This.Content = This.MeetingsHTMLTable()

      ** Merge the page and send it to the user
      This.PageTitle = [Past Meetings]
      This.Merge("TemplatePage.htm")

      ** cleanup
      USE IN (SELECT('qResult'))     
   EndFunc


   ***************************************************************************
   ** Data()
   ** Set up data for the page
   ***************************************************************************
   HIDDEN FUNCTION Data()
     LOCAL ldToday
     ** Query parameters into local variables
     ** so that we are comparing to a static value
     ldToday = date()
     Select mdate, bctopic, bcdescript, mt, mtdescript, ;
                     bspeaker as bcspeaker, ;
                     mspeaker as mtspeaker ;          
       from (Site.DataPath + "Meetings.dbf") ;
         LEFT OUTER JOIN (Site.DataPath + "Speaker.dbf") as begin ON begin.speakerid = bspeakerid   ;
         LEFT OUTER JOIN (Site.DataPath + "Speaker.dbf") as main ON main.speakerid = mspeakerid   ;
       Where ( mDate < ldToday ) AND NOT EMPTY(mDate);
       Order by mdate DESC;
       Into Cursor qResult NOFILTER readwrite
       
      ** in case of nulls
      SELECT qResult
      Replace bcspeaker WITH []  FOR ISNULL(bcspeaker)
      Replace mtspeaker WITH []  FOR ISNULL(mtspeaker)
      GO Top
       
       
   ENDFUNC 



   ***************************************************************************
   ** MeetingsHTMLTable()
   ** Set up HTML Table Listing Upcoming Meetings for the page
   ***************************************************************************
   HIDDEN FUNCTION MeetingsHTMLTable()
     Local lnOldArea
     Local lcName
     Local lcPass
     Local loPopup
     Local lcSiteID
     Local lnSeconds   
     Local lnRecordCount
     Local loHTML, loCGI, llRowStarted
     
     LOCAL lcContent

     lcContent = ""
     llRowStarted = .f.
     
     lnOldArea = Select()
      

     ** Did we find anything?
     ** Either way, we must send back a page
     lnRecordCOunt = _TALLY

     If RecCount("qResult") <> 0
       lcContent = [<b><font size="4">Past Meetings</font></b><br><Table width="610">]
       
       Select qResult
       
      * Begin Loop
       SCAN
      
      
       lcContent = lcContent + ;
        [<tr> ] + CHR(13) + ;
        [  <td width="10%" bgcolor="#C0C0C0" bordercolor="#969696">] + dtoc(qResult.mDate) + [</td> ] + CHR(13) + ;
        [  <td width="45%" bgcolor="#C0C0C0"> ] + CHR(13) + ;
        [    <p align="left"><font color="#000000">Jump Start</font></td> ] + CHR(13) + ;
        [  <td width="45%" bgcolor="#C0C0C0"> ] + CHR(13) + ;
        [    <p align="left"><font color="#000000">] + qResult.BCSpeaker + [</font>&nbsp;</td> ] + CHR(13) + ;
        [</tr> ] + CHR(13) + ;
        [<tr> ] + CHR(13) + ;
        [  <td width="10%" rowspan="5">&nbsp;</td> ] + CHR(13) + ;
        [  <td width="93%" colspan="2" bgcolor="#C0C0C0"> ] + CHR(13) + ;
        [    <p align="left"><font color="#000000">] + qResult.BCTopic + [</font>&nbsp;</td> ] + CHR(13) + ;
        [</tr> ] + CHR(13) + ;
        [<tr> ] + CHR(13) + ;
        [  <td width="93%" colspan="2">] + qResult.BCDescript + [<P>&nbsp;</td> ] + CHR(13) + ;
        [</tr> ] + CHR(13) + ;
        [<tr> ] + CHR(13) + ;
        [  <td width="45%" bgcolor="#C0C0C0"> ] + CHR(13) + ;
        [    <p align="left"><font color="#000000">Main Topic</font></td> ] + CHR(13) + ;
        [  <td width="45%" bgcolor="#C0C0C0"> ] + CHR(13) + ;
        [    <p align="left"><font color="#000000">] + qResult.MTSpeaker + [</font>&nbsp;</td> ] + CHR(13) + ;
        [</tr> ] + CHR(13) + ;
        [<tr> ] + CHR(13) + ;
        [  <td width="93%" colspan="2" bgcolor="#C0C0C0"> ] + CHR(13) + ;
        [    <p align="left"><font color="#000000">] + qResult.MT + [</font>&nbsp;</td> ] + CHR(13) + ;
        [</tr> ] + CHR(13) + ;
        [<tr> ] + CHR(13) + ;
        [  <td width="93%" colspan="2">] + qResult.MTDescript + [<p>&nbsp;</td> ] + CHR(13) + ;
        [</tr> ] ;

       ENDSCAN
       
     Else    
       lcContent = [Stay tuned for upcoming meetings]
     Endif

     Select (lnOldArea)
     RETURN lcContent+[</table>]
   EndFunc  && Meetings


ENDDEFINE
csCodeParser v0.9 stats: 130 lines in 0.01 seconds.