WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/diff.asp



   End If
 
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub GetFixedIssues(pv_id)
   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))
 
 
      If sqlstrA.RecordCount <> 0 Then
         NewTextFile.WriteLine()
         NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
      End If

End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub LastPvIdA(a)
 
   Dim qryA
   Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a, cint(0))
 
 
   'If a <> qryA("last_pv_id") Then
      a = qryA("last_pv_id")
   'Else
   '   errormsg = true

   qryA.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub LastPvIdB(b)
   Dim qryB
   Set qryB = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&b, cint(0))
 
 
   'If b <> qryB("last_pv_id") Then
      b = qryB("last_pv_id")
   'Else
   '   errormsg = true

   qryB.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub pkg_Version(pv)
   Dim qry
   Set qry = OraDatabase.DbCreateDynaset("SELECT PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&pv, cint(0))
 
   pkgversion = qry("pkg_version")
   qry.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub LastPvIdAa(a)
   Dim qryA
   Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a, cint(0))
 
   c = qryA("last_pv_id")
   qryA.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub LastPvIdBb(b)
   Dim qryB
   Set qryB = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&b, cint(0))
 
   d = qryB("last_pv_id")
   qryB.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub Comments(Pv_Id)
   Dim comments
   Set comments = OraDatabase.DbCreateDynaset("SELECT COMMENTS, PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&Pv_id, cint(0))
 
 
   If comments("comments") <> "Rippled Build." Then
      NewTextFile.WriteLine("<blockquote><blockquote><font color="&chr(34)&"blue"&chr(34)&">Version: "& comments("pkg_version")&"</font></blockquote></blockquote>")
      If comments("comments") <> "" Then
         NewTextFile.WriteLine("<blockquote><blockquote>Comments: </blockquote></blockquote>")

 
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub Release(pvId)
   Dim release
   Set release = OraDatabase.DbCreateDynaset("SELECT INSERT_STAMP FROM RELEASE_CONTENT WHERE PV_ID="&pvId, cint(0))
 
 
   If release("insert_stamp") <> "" Then
      NewTextFile.Write(release("insert_stamp"))
   Else
      NewTextFile.Write("Version Not Used.")

Rev 129	Rev 131
Line 96...	Line 96...
96	`End If`	96	`End If`
97		97
98	`End Sub`	98	`End Sub`
99	`'--------------------------------------------------------------------------------------------------------------------------`	99	`'--------------------------------------------------------------------------------------------------------------------------`
100	`Sub GetFixedIssues(pv_id)`	100	`Sub GetFixedIssues(pv_id)`
101	`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 &_`	101	`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))`
102	`" UNION SELECT iss_db, iss_id, iss_state, notes FROM ARCHIVE_MANAGER.CQ_ISSUES WHERE pv_id="& pv_id &" AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))`	-
103		102
104	`If sqlstrA.RecordCount <> 0 Then`	103	`If sqlstrA.RecordCount <> 0 Then`
105	`NewTextFile.WriteLine()`	104	`NewTextFile.WriteLine()`
106	`NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")`	105	`NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")`
107	`End If`	106	`End If`
Line 147...	Line 146...
147	`End Sub`	146	`End Sub`
148	`'--------------------------------------------------------------------------------------------------------------------------`	147	`'--------------------------------------------------------------------------------------------------------------------------`
149	`Sub LastPvIdA(a)`	148	`Sub LastPvIdA(a)`
150		149
151	`Dim qryA`	150	`Dim qryA`
152	`Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a &_`	151	`Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a, cint(0))`
153	`" UNION SELECT LAST_PV_ID FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID="&a, cint(0))`	-
154		152
155	`'If a <> qryA("last_pv_id") Then`	153	`'If a <> qryA("last_pv_id") Then`
156	`a = qryA("last_pv_id")`	154	`a = qryA("last_pv_id")`
157	`'Else`	155	`'Else`
158	`' errormsg = true`	156	`' errormsg = true`
Line 166...	Line 164...
166	`qryA.Close()`	164	`qryA.Close()`
167	`End Sub`	165	`End Sub`
168	`'--------------------------------------------------------------------------------------------------------------------------`	166	`'--------------------------------------------------------------------------------------------------------------------------`
169	`Sub LastPvIdB(b)`	167	`Sub LastPvIdB(b)`
170	`Dim qryB`	168	`Dim qryB`
171	`Set qryB = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&b &_`	169	`Set qryB = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&b, cint(0))`
172	`" UNION SELECT LAST_PV_ID FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID="&b, cint(0))`	-
173		170
174	`'If b <> qryB("last_pv_id") Then`	171	`'If b <> qryB("last_pv_id") Then`
175	`b = qryB("last_pv_id")`	172	`b = qryB("last_pv_id")`
176	`'Else`	173	`'Else`
177	`' errormsg = true`	174	`' errormsg = true`
Line 185...	Line 182...
185	`qryB.Close()`	182	`qryB.Close()`
186	`End Sub`	183	`End Sub`
187	`'--------------------------------------------------------------------------------------------------------------------------`	184	`'--------------------------------------------------------------------------------------------------------------------------`
188	`Sub pkg_Version(pv)`	185	`Sub pkg_Version(pv)`
189	`Dim qry`	186	`Dim qry`
190	`Set qry = OraDatabase.DbCreateDynaset("SELECT PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&pv &_`	187	`Set qry = OraDatabase.DbCreateDynaset("SELECT PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&pv, cint(0))`
191	`" UNION SELECT PKG_VERSION FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID="&pv, cint(0))`	-
192	`pkgversion = qry("pkg_version")`	188	`pkgversion = qry("pkg_version")`
193	`qry.Close()`	189	`qry.Close()`
194	`End Sub`	190	`End Sub`
195	`'--------------------------------------------------------------------------------------------------------------------------`	191	`'--------------------------------------------------------------------------------------------------------------------------`
196	`Sub LastPvIdAa(a)`	192	`Sub LastPvIdAa(a)`
197	`Dim qryA`	193	`Dim qryA`
198	`Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a &_`	194	`Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a, cint(0))`
199	`" UNION SELECT LAST_PV_ID FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID="&a, cint(0))`	-
200	`c = qryA("last_pv_id")`	195	`c = qryA("last_pv_id")`
201	`qryA.Close()`	196	`qryA.Close()`
202	`End Sub`	197	`End Sub`
203	`'--------------------------------------------------------------------------------------------------------------------------`	198	`'--------------------------------------------------------------------------------------------------------------------------`
204	`Sub LastPvIdBb(b)`	199	`Sub LastPvIdBb(b)`
205	`Dim qryB`	200	`Dim qryB`
206	`Set qryB = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&b &_`	201	`Set qryB = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&b, cint(0))`
207	`" UNION SELECT LAST_PV_ID FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID="&b, cint(0))`	-
208	`d = qryB("last_pv_id")`	202	`d = qryB("last_pv_id")`
209	`qryB.Close()`	203	`qryB.Close()`
210	`End Sub`	204	`End Sub`
211	`'--------------------------------------------------------------------------------------------------------------------------`	205	`'--------------------------------------------------------------------------------------------------------------------------`
212	`Sub Comments(Pv_Id)`	206	`Sub Comments(Pv_Id)`
213	`Dim comments`	207	`Dim comments`
214	`Set comments = OraDatabase.DbCreateDynaset("SELECT COMMENTS, PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&Pv_id &_`	208	`Set comments = OraDatabase.DbCreateDynaset("SELECT COMMENTS, PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&Pv_id, cint(0))`
215	`" UNION SELECT COMMENTS, PKG_VERSION FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID="&Pv_id, cint(0))`	-
216		209
217	`If comments("comments") <> "Rippled Build." Then`	210	`If comments("comments") <> "Rippled Build." Then`
218	`NewTextFile.WriteLine("<blockquote><blockquote><font color="&chr(34)&"blue"&chr(34)&">Version: "& comments("pkg_version")&"</font></blockquote></blockquote>")`	211	`NewTextFile.WriteLine("<blockquote><blockquote><font color="&chr(34)&"blue"&chr(34)&">Version: "& comments("pkg_version")&"</font></blockquote></blockquote>")`
219	`If comments("comments") <> "" Then`	212	`If comments("comments") <> "" Then`
220	`NewTextFile.WriteLine("<blockquote><blockquote>Comments: </blockquote></blockquote>")`	213	`NewTextFile.WriteLine("<blockquote><blockquote>Comments: </blockquote></blockquote>")`
Line 225...	Line 218...
225		218
226	`End Sub`	219	`End Sub`
227	`'--------------------------------------------------------------------------------------------------------------------------`	220	`'--------------------------------------------------------------------------------------------------------------------------`
228	`Sub Release(pvId)`	221	`Sub Release(pvId)`
229	`Dim release`	222	`Dim release`
230	`Set release = OraDatabase.DbCreateDynaset("SELECT INSERT_STAMP FROM RELEASE_CONTENT WHERE PV_ID="&pvId &_`	223	`Set release = OraDatabase.DbCreateDynaset("SELECT INSERT_STAMP FROM RELEASE_CONTENT WHERE PV_ID="&pvId, cint(0))`
231	`" UNION SELECT INSERT_STAMP FROM ARCHIVE_MANAGER.RELEASE_CONTENT WHERE PV_ID="&pvId, cint(0))`	-
232		224
233	`If release("insert_stamp") <> "" Then`	225	`If release("insert_stamp") <> "" Then`
234	`NewTextFile.Write(release("insert_stamp"))`	226	`NewTextFile.Write(release("insert_stamp"))`
235	`Else`	227	`Else`
236	`NewTextFile.Write("Version Not Used.")`	228	`NewTextFile.Write("Version Not Used.")`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/diff.asp @ 157 – Rev 129 → 131