Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /*------------------------------------------------------------------------
- File : Task
- Purpose :
- Syntax :
- Description :
- Author(s) : connorrs
- Created : Fri Aug 05 09:05:55 EDT 2016
- Notes :
- ----------------------------------------------------------------------*/
- USING PROGRESS.Lang.*.
- USING app.core.view.View.
- CLASS app.tasks.view.Task inherits VIEW:
- DEF public property model AS CLASS app.tasks.model.TaskList public GET. private SET.
- DEF private property mainhtml AS LONGCHAR NO-UNDO private GET. private SET.
- CONSTRUCTOR Task(html AS LONGCHAR):
- mainhtml = html.
- END CONSTRUCTOR.
- METHOD public override final LONGCHAR DISPLAY():
- DEF VAR html AS LONGCHAR NO-UNDO.
- DEF VAR tempHtml AS LONGCHAR NO-UNDO.
- DEF VAR ix AS INT NO-UNDO.
- DEF VAR tasknumber AS CHAR NO-UNDO.
- DEF VAR tasklist AS CHAR NO-UNDO.
- DEF VAR task AS CHAR NO-UNDO EXTENT 99.
- model = NEW app.tasks.model.TaskList().
- tasklist = model:GetTaskList().
- DO ix = 1 TO NUM-ENTRIES(tasklist):
- tasknumber = ENTRY(ix, tasklist).
- task = model:GetTask(tasknumber).
- tempHtml = _LoadHTML("app/tasks/view/taskbox.html").
- tempHtml = ReplaceHTML(STRING(tempHtml), "TASKINFO", '<b>' + tasknumber + '</b>' + ' - ' + task[5] + '<br>').
- tempHtml = ReplaceHTML(STRING(tempHtml), "TASKAUTHOR", '<b>TaskAuthor: </b>' + task[2] + ' on ' + task[3] + '<br><br>').
- tempHtml = ReplaceHTML(STRING(tempHtml), "TASKDESCRIPTION", task[4] + '<br>').
- tempHtml = ReplaceHTML(STRING(tempHtml), "TASKNOTES", task[6] + '<br>').
- html = html + tempHtml.
- tempHtml = "".
- END.
- mainhtml = ReplaceHTML(STRING(mainhtml), "RIGHTCONTENT", STRING(html)).
- RETURN mainhtml.
- END METHOD.
- END CLASS.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement