cptDynamicFilter - handle when no custom fields are set up yet

[AronGahagan]

Problem:

If the user has not yet set up any custom fields, the string is empty, and an error is triggered.

Text/cptDynamicFilter_bas.bas:56:      strCustomFields = Left(strCustomFields, Len(strCustomFields) - 1)

Solution:

      'remove terminal comma, reducing array size by one
      If Len(strCustomFields) > 0 Then
        strCustomFields = Left(strCustomFields, Len(strCustomFields) - 1)
        vArray = Split(strCustomFields, ",")
        Call cptQuickSort(vArray, 0, UBound(vArray))
        'join vArray into string, prepend 'Task Name', split into array
        .List = Split("Task Name," & Join(vArray, ","), ",")
      Else
        .List = Array("Task Name")
      End If

Todo:

• [x] assign this issue
• [x] label the issue for enhancement or bug
• [x] label the issue with codemodule (so fixes can be aggregated and hotfixed together)
• [x] checkout appropriate branch and create topic branch
• [x] design, code and test
• [x] update codemodule x.y.z
• [x] update CurrentVersions.xml manually
• [x] commit changes prefix comment with Issue #XXX -
• [x] merge topic into appropriate branch(es) and push
• [x] delete topic branch