All pastes #168438 Raw Edit

Mine

public text v1 · immutable
·published 2006-09-12 23:56 UTC
rendered paste body
IF OldValue = NewValue THEN
   # 
   RETURN 0
ENDIF

LET Changes = Changes + 1
LET TempOldValue = OldValue
LET TempNewValue = NewValue

# Turn nothing into a HTML space character.
IF TempOldValue = "" THEN LET TempOldValue = " " ENDIF
IF TempNewValue = "" THEN LET TempNewValue = " " ENDIF

#Turn new lines into HTML line breaks
CALL FindAndReplace(TempOldValue, "\n", "<br>")
CALL FindAndReplace(TempNewValue, "\n", "<br>")

LET Body = Body | '<tr><td class="label">' | Label | ':</td><td>'|TempOldValue|'</td><td>-&gt;</td><td>'|TempNewValue|'</td></tr>'

LET OldValue = NewValue
RETURN 1