Subversion Repositories DevTools

Rev

Rev 23 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 23 Rev 27
Line 299... Line 299...
299
	NewTextFile.WriteLine()
299
	NewTextFile.WriteLine()
300
	
300
	
301
	
301
	
302
	NewTextFile.WriteLine("<b>Versions Between: "&versionA&" and "&versionB&"</b>")
302
	NewTextFile.WriteLine("<b>Versions Between: "&versionA&" and "&versionB&"</b>")
303
	
303
	
304
	If a < b Then
304
	If CLng(a) < CLng(b) Then
305
		While a < b  
305
		While CLng(a) < CLng(b)  
306
			Call LastPvIdB(b)
306
			Call LastPvIdB(b)
307
			If a < b Then
307
			If CLng(a) < CLng(b) Then
308
				VersionList = VersionList + ","& b &""
308
				VersionList = VersionList + ","& b &""
309
				Call Comments(b)
309
				Call Comments(b)
310
				Call GetFixedIssues(b)
310
				Call GetFixedIssues(b)
311
			End If			
311
			End If
312
		Wend
312
		Wend
313
	End If	
313
	End If	
314
	
314
 
315
	If b < a Then
315
	If CLng(b) < CLng(a) Then
316
		While b < a  
316
		While CLng(b) < CLng(a)  
317
			Call LastPvIdA(a)
317
			Call LastPvIdA(a)
318
			If b < a Then
318
			If CLng(b) < CLng(a) Then
319
				VersionList = VersionList + ","& a &""
319
				VersionList = VersionList + ","& a &""
320
				Call Comments(a)
320
				Call Comments(a)
321
				Call GetFixedIssues(a)
321
				Call GetFixedIssues(a)
322
			End If			
322
			End If
323
		Wend	
323
		Wend	
324
	End If
324
	End If
325
		 
325
		 
326
 
326
 
327
End Sub
327
End Sub