WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/class/classSortHelper.asp



	'-----------------------------------------------------------------------------------------------------------------
	Public Sub VersionSort( ByRef vec, loBound, hiBound, SortField )
		' Set default comparison implementation
		m_SortType = enumVERSION_SORT
		
		If hiBound >= 1 Then
			' Run sorting
			Call QuickSort( vec, loBound, hiBound, SortField)
		End If
		
	End Sub
	'-----------------------------------------------------------------------------------------------------------------
	Public Sub StringSort( ByRef vec, loBound, hiBound, SortField )
		' Set default comparison implementation
		m_SortType = enumSTRING_SORT
		
		If hiBound >= 1 Then
			' Run sorting
			Call QuickSort( vec, loBound, hiBound, SortField)
		End If
		
	End Sub

Rev 5506	Rev 6873
Line 214...	Line 214...
214	`'-----------------------------------------------------------------------------------------------------------------`	214	`'-----------------------------------------------------------------------------------------------------------------`
215	`Public Sub VersionSort( ByRef vec, loBound, hiBound, SortField )`	215	`Public Sub VersionSort( ByRef vec, loBound, hiBound, SortField )`
216	`' Set default comparison implementation`	216	`' Set default comparison implementation`
217	`m_SortType = enumVERSION_SORT`	217	`m_SortType = enumVERSION_SORT`
218		218
219	`If hiBound > 1 Then`	219	`If hiBound >= 1 Then`
220	`' Run sorting`	220	`' Run sorting`
221	`Call QuickSort( vec, loBound, hiBound, SortField)`	221	`Call QuickSort( vec, loBound, hiBound, SortField)`
222	`End If`	222	`End If`
223		223
224	`End Sub`	224	`End Sub`
225	`'-----------------------------------------------------------------------------------------------------------------`	225	`'-----------------------------------------------------------------------------------------------------------------`
226	`Public Sub StringSort( ByRef vec, loBound, hiBound, SortField )`	226	`Public Sub StringSort( ByRef vec, loBound, hiBound, SortField )`
227	`' Set default comparison implementation`	227	`' Set default comparison implementation`
228	`m_SortType = enumSTRING_SORT`	228	`m_SortType = enumSTRING_SORT`
229		229
230	`If hiBound > 1 Then`	230	`If hiBound >= 1 Then`
231	`' Run sorting`	231	`' Run sorting`
232	`Call QuickSort( vec, loBound, hiBound, SortField)`	232	`Call QuickSort( vec, loBound, hiBound, SortField)`
233	`End If`	233	`End If`
234		234
235	`End Sub`	235	`End Sub`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/class/classSortHelper.asp – Rev 5506 → 6873