Advertisement
Guest User

Untitled

a guest
Aug 9th, 2016
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.  /*------------------------------------------------------------------------
  3.     File        : Task
  4.     Purpose     :
  5.     Syntax      :
  6.     Description :
  7.     Author(s)   : connorrs
  8.     Created     : Fri Aug 05 09:05:55 EDT 2016
  9.     Notes       :
  10.   ----------------------------------------------------------------------*/
  11.  
  12. USING PROGRESS.Lang.*.
  13. USING app.core.view.View.
  14.  
  15.  
  16.  
  17. CLASS app.tasks.view.Task inherits VIEW:
  18.   DEF public property model AS CLASS app.tasks.model.TaskList public GET. private SET.
  19.   DEF private property mainhtml AS LONGCHAR NO-UNDO private GET. private SET.
  20.  
  21.   CONSTRUCTOR Task(html AS LONGCHAR):
  22.     mainhtml = html.
  23.   END CONSTRUCTOR.
  24.  
  25.   METHOD public override final LONGCHAR DISPLAY():
  26.     DEF VAR html AS LONGCHAR NO-UNDO.
  27.     DEF VAR tempHtml AS LONGCHAR NO-UNDO.
  28.     DEF VAR ix AS INT NO-UNDO.
  29.     DEF VAR tasknumber AS CHAR NO-UNDO.
  30.     DEF VAR tasklist AS CHAR NO-UNDO.
  31.     DEF VAR task AS CHAR NO-UNDO EXTENT 99.
  32.  
  33.     model = NEW app.tasks.model.TaskList().
  34.     tasklist = model:GetTaskList().
  35.     DO ix = 1 TO NUM-ENTRIES(tasklist):
  36.       tasknumber = ENTRY(ix, tasklist).
  37.       task = model:GetTask(tasknumber).
  38.       tempHtml = _LoadHTML("app/tasks/view/taskbox.html").
  39.       tempHtml = ReplaceHTML(STRING(tempHtml), "TASKINFO", '<b>' + tasknumber + '</b>' + ' - ' + task[5] + '<br>').
  40.       tempHtml = ReplaceHTML(STRING(tempHtml), "TASKAUTHOR", '<b>TaskAuthor: </b>' + task[2] + ' on ' + task[3] + '<br><br>').
  41.       tempHtml = ReplaceHTML(STRING(tempHtml), "TASKDESCRIPTION", task[4] + '<br>').
  42.       tempHtml = ReplaceHTML(STRING(tempHtml), "TASKNOTES", task[6] + '<br>').
  43.       html = html + tempHtml.
  44.       tempHtml = "".
  45.     END.
  46.     mainhtml = ReplaceHTML(STRING(mainhtml), "RIGHTCONTENT", STRING(html)).
  47.     RETURN mainhtml.
  48.   END METHOD.
  49. END CLASS.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement