Subversion Repositories DevTools

Rev

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

Rev 15 Rev 17
Line 45... Line 45...
45 
Dim btnMerge, btnRemove
 45 
Dim btnMerge, btnRemove
46 
Dim rowId
 46 
Dim rowId
47 
Dim email
 47 
Dim email
48 
Dim FSO
 48 
Dim FSO
49 
Dim NewTextFile
 49 
Dim NewTextFile
50 
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, counterB
 50 
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, sqlstrC, counterB
51 
Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss
51 
Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss
52 
Dim a, b, c, d, pkgversion, errormsg, source_change
 52 
Dim a, b, c, d, pkgversion, errormsg, source_change
53 
 
 53 
 
54 
 
 54 
 
55 
'------------ Constants Declaration -----------
 55 
'------------ Constants Declaration -----------
Line 129... Line 129...
129 
	Set sqlstrA = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &"  AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
129 
	Set sqlstrA = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &"  AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
130
130
131 
		If sqlstrA.RecordCount <> 0 Then
 131 
		If sqlstrA.RecordCount <> 0 Then
132 
			NewTextFile.WriteLine()
 132 
			NewTextFile.WriteLine()
133 
			NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
 133 
			NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
134 
		End If
 134
135
135
136 
		For counterA=1 to sqlstrA.RecordCount
 136 
		For counterA=1 to sqlstrA.RecordCount
137 
			DEVIiss = "-1"
 137 
			DEVIiss = "-1"
138 
			TDSEiss = "-1"
 138 
			TDSEiss = "-1"
139 
			VT5DMiss = "-1"
 139 
			VT5DMiss = "-1"
Line 158... Line 158...
158 
			If rsCQ("iss_num") <> "" Then
 158 
			If rsCQ("iss_num") <> "" Then
159 
  				NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
 159 
  				NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
160 
	    	End If
 160 
	    	End If
161
161
162 
	     	If rsCQ("summary") <> "" Then
 162 
	     	If rsCQ("summary") <> "" Then
- 
 
 163 
				NewTextFile.Write(rsCQ("summary")&" ")
- 
 
 164 
			End If
- 
 
 165
- 
 
 166 
			If rsCQ("summary") <> "" Then
163 
				NewTextFile.WriteLine(rsCQ("summary")&"</blockquote></blockquote></blockquote>")
167 
				NewTextFile.WriteLine("(Priority: "& rsCQ("priority") &")</blockquote></blockquote></blockquote>")
164 
			End If
 168 
			End If
- 
 
 169
- 
 
 170
165
171
166 
			sqlstrA.MoveNext
 172 
			sqlstrA.MoveNext
167 
		Next
 173 
		Next
168 
			sqlstrA.Close()
174 
			sqlstrA.Close()
169
175
- 
 
 176 
		End If
- 
 
 177
- 
 
 178 
 
- 
 
 179 
End Sub
- 
 
 180 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 181 
Sub GetDependencyFixedIssues(pv_id)
- 
 
 182 
	Set sqlstrC = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &"  AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
- 
 
 183
- 
 
 184 
		If sqlstrC.RecordCount <> 0 Then
- 
 
 185 
			NewTextFile.WriteLine()
- 
 
 186 
			'NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
- 
 
 187 
 
- 
 
 188
- 
 
 189 
		For counterA=1 to sqlstrC.RecordCount
- 
 
 190 
			DEVIiss = "-1"
- 
 
 191 
			TDSEiss = "-1"
- 
 
 192 
			VT5DMiss = "-1"
- 
 
 193
- 
 
 194 
			If CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
- 
 
 195 
				DEVIiss = DEVIiss &","& sqlstrC("iss_id")
- 
 
 196 
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
- 
 
 197 
				TDSEiss = TDSEiss &","& sqlstrC("iss_id")
- 
 
 198 
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
- 
 
 199 
				VT5DMiss = VT5DMiss &","& sqlstrC("iss_id")
- 
 
 200 
			End If
- 
 
 201
- 
 
 202 
			SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
- 
 
 203 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
- 
 
 204 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
- 
 
 205 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
- 
 
 206 
			SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
- 
 
 207 
			SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
- 
 
 208 
			SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
- 
 
 209 
			retVal = Get_CQ_Issues ( SSsql, rsCQ )
- 
 
 210 
 
- 
 
 211 
			If rsCQ("iss_num") <> "" Then
- 
 
 212 
  				NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
- 
 
 213 
	    	End If
- 
 
 214
- 
 
 215 
	     	If rsCQ("summary") <> "" Then
- 
 
 216 
				NewTextFile.Write(rsCQ("summary")&" ")
- 
 
 217 
			End If
- 
 
 218
- 
 
 219 
			If rsCQ("summary") <> "" Then
- 
 
 220 
				NewTextFile.WriteLine("(Priority: "& rsCQ("priority") &")</blockquote></blockquote></blockquote>")
- 
 
 221 
			End If
- 
 
 222
- 
 
 223
- 
 
 224
- 
 
 225 
			sqlstrC.MoveNext
- 
 
 226 
		Next
- 
 
 227 
			sqlstrC.Close()
- 
 
 228
- 
 
 229 
		End If
- 
 
 230
170 
 
 231 
 
171 
End Sub
 232 
End Sub
172 
'--------------------------------------------------------------------------------------------------------------------------
 233 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 234 
 
173 
Sub LastPvIdA(a)
 235 
Sub LastPvIdA(a)
174 
	Dim qryA
 236 
	Dim qryA
175 
	Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a , cint(0))
 237 
	Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a , cint(0))
176
238
177 
	If a <> qryA("last_pv_id") Then
239 
	If a <> qryA("last_pv_id") Then
Line 225... Line 287...
225
287
226 
 
 288 
 
227 
End Sub
 289 
End Sub
228 
'--------------------------------------------------------------------------------------------------------------------------
 290 
'--------------------------------------------------------------------------------------------------------------------------
229 
Sub GetDependencies(pv_id_a, pv_id_b, versionA, versionB)
 291 
Sub GetDependencies(pv_id_a, pv_id_b, versionA, versionB)
- 
 
 292 
	On Error Resume Next
230 
	Set sqlstrA = OraDatabase.DbCreateDynaset("select * from package_dependencies where pv_id = "& pv_id_b &" and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id ="& pv_id_a &" )", cint(0))
293 
	Set sqlstrA = OraDatabase.DbCreateDynaset("select * from package_dependencies where pv_id = "& pv_id_b &" and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id ="& pv_id_a &" )", cint(0))
231 
		If sqlstrA.RecordCount <> 0 Then
 294 
		If sqlstrA.RecordCount <> 0 Then
232 
			NewTextFile.WriteLine()
 295 
			NewTextFile.WriteLine()
233 
			NewTextFile.WriteLine("<b>Dependencies Changed Between "&versionA&" and "&versionB&":</b>")
 296 
			NewTextFile.WriteLine("<b>Dependencies Changed Between "&versionA&" and "&versionB&":</b>")
234 
		End If
 - 
 
235
297
236 
		For counterA=1 to sqlstrA.RecordCount
 298 
		For counterA=1 to sqlstrA.RecordCount
237 
			Call dependencyComments(sqlstrA("dpv_id"))
 299 
			Call dependencyComments(sqlstrA("dpv_id"))
238
- 
 
- 
 
 300 
			Call GetDependencyFixedIssues(sqlstrA("dpv_id"))
239 
			sqlstrA.MoveNext
301 
			sqlstrA.MoveNext
240 
		Next
302 
		Next
241 
			sqlstrA.Close()
303 
			sqlstrA.Close()
- 
 
 304
- 
 
 305 
		End If
242 
 
 306 
 
243 
End Sub
 307 
End Sub
244 
'--------------------------------------------------------------------------------------------------------------------------
 308 
'--------------------------------------------------------------------------------------------------------------------------
245 
Sub dependencyComments(pv_id)
 309 
Sub dependencyComments(pv_id)
246 
	Set sqlstrB = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS pv, PACKAGES pkg WHERE pkg.pkg_id = pv.pkg_id AND PV_ID ="&pv_id, cint(0))
310 
	Set sqlstrB = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS pv, PACKAGES pkg WHERE pkg.pkg_id = pv.pkg_id AND PV_ID ="&pv_id, cint(0))
- 
 
 311 
			NewTextFile.WriteLine("<blockquote><blockquote>Comments and Fixed Issues:</blockquote></blockquote>")
247 
			NewTextFile.Write("<blockquote><blockquote><blockquote>"& sqlstrB("pkg_name") &" "& sqlstrB("pkg_version") &"---->"& TextToHTML(sqlstrB("comments")) &"</blockquote></blockquote></blockquote>")
312 
			NewTextFile.Write("<blockquote><blockquote><blockquote>"& sqlstrB("pkg_name") &" "& sqlstrB("pkg_version") &"---->"& TextToHTML(sqlstrB("comments")) &"</blockquote></blockquote></blockquote>")
- 
 
 313
- 
 
 314 
	sqlstrB.Close()
- 
 
 315 
	Set sqlstrB = nothing
248
316
249 
 
 317 
 
250 
End Sub
 318 
End Sub
251 
'--------------------------------------------------------------------------------------------------------------------------
 319 
'--------------------------------------------------------------------------------------------------------------------------
252 
Sub LastPvIdA(a)
 320 
Sub LastPvIdA(a)
Line 1118... Line 1186...
1118 
				NewTextFile.WriteLine("<b>"&rsQryB("location")&"</b>")
1186 
				NewTextFile.WriteLine("<b>"&rsQryB("location")&"</b>")
1119 
				Call Comments(rsQry("pv_id_b"))
 1187 
				Call Comments(rsQry("pv_id_b"))
1120 
				Call GetFixedIssues(rsQry("pv_id_b"))
 1188 
				Call GetFixedIssues(rsQry("pv_id_b"))
1121
1189
1122 
				Dim rsQryLast
 1190 
				Dim rsQryLast
1123
- 
 
1124
- 
 
1125 
				Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& rsQry("pv_id_b"), cint(0))
1191 
				Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& rsQry("pv_id_b"), cint(0))
1126
1192
1127 
				If rsQryLast("last_pv_id") <> a Then
 1193 
				If rsQryLast("last_pv_id") <> a Then
1128 
					Call PreviousVersions(a, b, rsQry("pkg_version_a"), rsQry("pkg_version_b"))
 1194 
					Call PreviousVersions(a, b, rsQry("pkg_version_a"), rsQry("pkg_version_b"))
1129 
				End If
1195 
				End If
Line 1134... Line 1200...
1134 
				NewTextFile.WriteLine("</SPAN>")
1200 
				NewTextFile.WriteLine("</SPAN>")
1135
1201
1136 
				rsQryLast.Close
 1202 
				rsQryLast.Close
1137 
				Set rsQryLast = nothing
 1203 
				Set rsQryLast = nothing
1138
1204
- 
 
 1205 
		End If
- 
 
 1206
- 
 
 1207 
		If rsQry("change_type") = "A" AND rsQry("patch_b") = "Y" Then
- 
 
 1208 
			Dim rsQryPatch
- 
 
 1209 
			OraDatabase.Parameters.Add "PV_ID", 	rsQry("pv_id_b"),	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 1210 
			Set rsQryPatch = OraDatabase.DbCreateDynaset( GetQuery("pd_patch.sql"), cint(0))
- 
 
 1211 
			OraDatabase.Parameters.Remove "PV_ID"
- 
 
 1212
- 
 
 1213 
			NewTextFile.Write("<p><SPAN id=""spanShowDetails"& rowId &""" name=""spanShowDetails""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(true,'"& rowId &"');"">"& rsQryPatch("pkg_name") &" "& rsQryPatch("pkg_version") &"</a></SPAN>")
1139
1214 
			NewTextFile.Write("<SPAN id=""spanHideDetails"& rowId &""" name=""spanHideDetails"" style=""display:none;""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(false,'"& rowId &"');"">"& rsQryPatch("pkg_name") &" "& rsQryPatch("pkg_version") &"</a></SPAN>")
- 
 
 1215 
			NewTextFile.WriteLine("<SPAN id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
- 
 
 1216
- 
 
 1217 
			Call Comments(rsQryPatch("pv_id"))
- 
 
 1218 
			Call GetFixedIssues(rsQryPatch("pv_id"))
- 
 
 1219
- 
 
 1220 
			NewTextFile.WriteLine("</SPAN>")
- 
 
 1221 
			rsQryPatch.Close
- 
 
 1222 
			Set rsQryPatch = nothing
- 
 
 1223
1140 
		End If
 1224 
		End If
1141
1225
1142 
	End If
 1226 
	End If
1143
1227
1144 
	rsQry.MoveNext
 1228 
	rsQry.MoveNext