I have found the following identical blocks of code (at line 133 and 149) in this library. Is there a reason for it?
If ((note.hasitem(“OrgRepeat”)) And note.HasItem(“TaskType”)) Then
Call DisplayWarn(sharedTable.GetString(REPEAT_PASTE_PROMPT, Null), 0, sharedTable.getstring(REPEAT_PASTE_TITLE, Null))
Call note.removeitem("OrgRepeat")
Call note.removeitem("$REF")
Call note.ReplaceItemValue("DueDateTime",note.GetItemValue("DueDateTime")(0))
Call note.ReplaceItemValue("StartDateTime",note.GetItemValue("StartDateTime")(0))
Call note.ReplaceItemValue("EndDate",note.GetItemValue("DueDateTime")(0))
Call note.ReplaceItemValue("DueDate",note.GetItemValue("DueDateTime")(0))
Forall items In note.Items 'rip off all the Repeating fields too
sItem = items.Name
If Instr(1, sItem, "repeat", 1) Then
Call note.RemoveItem(sItem)
End If
End Forall
End If