ssa

asas

Timeline

    uses aOST_CLI, aWFApplicationUserWithAuthorization
    
    var theRequest : Text
    var myOST_Motor : aOST_CLI
    var RequestResponse : Text
    var actionLog : aWFActionLog
    
    ;yo
    WriteLn(GetResponse.OutText, '<h1>Hello World</h1>')
    WriteLn(GetResponse.OutText, 'This page is fully configured')
    WriteLn(GetResponse.OutText, '<h2>I can retrieve data using an OQL request</h2>')
    ;
    new(myOST_Motor)
    ;
    theRequest := 'OQL Select top 10 x.date, x.actiontitle from x in aWFActionLog++'
    myOST_Motor.ExecuteWithResultAsText(theRequest, 1, RequestResponse, False)
    theRequest := ''
    WriteLn(GetResponse.OutText, RequestResponse)
    RequestResponse := ''
    dispose(myOST_Motor)
    WriteLn(GetResponse.OutText, '<h2>I can add a static resource such as a CSS file</h2>')
    ;if Risky.OpenDebug <> Nil
    ; endIf
   
    GetResponse.AppendDefaultCssToHtmlHeader('timeline_styles.css')
    WriteLn(GetResponse.OutText, ' GetResponse.AppendDefaultCssToHtmlHeader(''timeline_styles.css''')
    WriteLn(GetResponse.OutText, '<div class="timeline animated">')
    ;
    forEach actionLog in OQL Select top 8 * from x in aWFActionLog++ order by x.Date descending
       WriteLn(GetResponse.OutText, ' <div class="timeline-row active">')
       WriteLn(GetResponse.OutText, '  <div class="timeline-time">')
       WriteLn(GetResponse.OutText, '    <small>', Concat(actionLog.Date), '</small>', 
          Concat(actionLog.Time))
       WriteLn(GetResponse.OutText, '   </div>')
       WriteLn(GetResponse.OutText, '   <div class="timeline-icon">')
       WriteLn(GetResponse.OutText, '    <div class="bg-primary">')
       WriteLn(GetResponse.OutText, '    <i class="icon-time"></i>')
       WriteLn(GetResponse.OutText, '   </div>')
       WriteLn(GetResponse.OutText, '   </div>')
       WriteLn(GetResponse.OutText, '   <div class="panel timeline-content">')
       WriteLn(GetResponse.OutText, '    <div class="panel-body">')
       WriteLn(GetResponse.OutText, '      <h2>', actionLog.ActionTitle, '</h2>')
       WriteLn(GetResponse.OutText, '     <p>', actionLog.LastUser.Name, '</p>')
       WriteLn(GetResponse.OutText, ' </div>')
       WriteLn(GetResponse.OutText, '   </div>')
       WriteLn(GetResponse.OutText, ' </div> ')
    endFor
    WriteLn(GetResponse.OutText, ' </div> ')