Subversion Repositories DevTools

Rev

Rev 5513 | Rev 5958 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5513 Rev 5924
Line 154... Line 154...
154 
    NewTextFile.WriteLine("</script>")
 154 
    NewTextFile.WriteLine("</script>")
155 
End Sub
 155 
End Sub
156 
'--------------------------------------------------------------------------------------------------------------------------
 156 
'--------------------------------------------------------------------------------------------------------------------------
157 
Sub GetFixedIssues(pv_id, issues)
 157 
Sub GetFixedIssues(pv_id, issues)
158 
    If issues <> "Filter Issues" Then
 158 
    If issues <> "Filter Issues" Then
159 
        Set sqlstrC = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES" &_
 159 
        Set sqlstrC = OraDatabase.DbCreateDynaset( _
160 
                " WHERE pv_id="& pv_id &" AND iss_state = "& enumISSUES_STATE_FIXED &_
 - 
 
161 
                " UNION SELECT iss_db, iss_id, iss_state, notes FROM ARCHIVE_MANAGER.CQ_ISSUES" &_
 160 
                "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES" &_
162 
                " WHERE pv_id="& pv_id &" AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
 161 
                " WHERE pv_id="& pv_id &" AND iss_state = "& enumISSUES_STATE_FIXED _
- 
 
 162 
                , cint(0))
163 
 
 163 
 
164 
        If sqlstrC.RecordCount <> 0 Then
 164 
        If sqlstrC.RecordCount <> 0 Then
165 
            NewTextFile.WriteLine()
 165 
            NewTextFile.WriteLine()
166 
            NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
 166 
            NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
167 
            NewTextFile.WriteLine("<blockquote><blockquote><blockquote><table class='fixed_issues' width='100%'>")
 167 
            NewTextFile.WriteLine("<blockquote><blockquote><blockquote><table class='fixed_issues' width='100%'>")
Line 241... Line 241...
241 
    End If
 241 
    End If
242 
End Sub
 242 
End Sub
243 
'--------------------------------------------------------------------------------------------------------------------------
 243 
'--------------------------------------------------------------------------------------------------------------------------
244 
Function LastPvId(pvId)
 244 
Function LastPvId(pvId)
245 
    Dim qryA
 245 
    Dim qryA
246 
    Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId &_
 246 
    Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId, cint(0))
247 
	" UNION SELECT LAST_PV_ID FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID="&pvId, cint(0))
 - 
 
248 
 
 247 
 
249 
    LastPvId = pvId
 248 
    LastPvId = pvId
250 
 
 249 
 
251 
    If pvId <> qryA("last_pv_id") Then
 250 
    If pvId <> qryA("last_pv_id") Then
252 
        LastPvId = qryA("last_pv_id")
 251 
        LastPvId = qryA("last_pv_id")
Line 288... Line 287...
288 
End Sub
 287 
End Sub
289 
'--------------------------------------------------------------------------------------------------------------------------
 288 
'--------------------------------------------------------------------------------------------------------------------------
290 
Sub GetDependencies(pv_id_a, pv_id_b, versionA, versionB, comments, issues)
 289 
Sub GetDependencies(pv_id_a, pv_id_b, versionA, versionB, comments, issues)
291 
    On Error Resume Next
 290 
    On Error Resume Next
292 
 
 291 
 
293 
    Set sqlstrA = OraDatabase.DbCreateDynaset("select distinct dpv_id from package_dependencies where pv_id IN ("& pv_id_b &") and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id = "& pv_id_a &")" &_
 292 
    Set sqlstrA = OraDatabase.DbCreateDynaset( _
- 
 
 293 
            "select distinct dpv_id " &_
- 
 
 294 
            " from package_dependencies" &_
- 
 
 295 
            " where pv_id IN ("& pv_id_b &")" &_
294 
	" UNION select distinct dpv_id from ARCHIVE_MANAGER.package_dependencies where pv_id IN ("& pv_id_b &") and dpv_id NOT IN (SELECT dpv_id from ARCHIVE_MANAGER.package_dependencies where pv_id = "& pv_id_a &") order by dpv_id desc", cint(0))
 296 
            "   and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id = "& pv_id_a &")" &_
- 
 
 297 
	        " order by dpv_id desc", cint(0))
295 
 
 298 
 
296 
    If sqlstrA.RecordCount <> 0 Then
 299 
    If sqlstrA.RecordCount <> 0 Then
297 
        NewTextFile.WriteLine()
 300 
        NewTextFile.WriteLine()
298 
        NewTextFile.WriteLine("<b>Dependencies Changed Between "&versionA&" and "&versionB&":</b>")
 301 
        NewTextFile.WriteLine("<b>Dependencies Changed Between "&versionA&" and "&versionB&":</b>")
299 
 
 302 
 
Line 310... Line 313...
310 
 
 313 
 
311 
End Sub
 314 
End Sub
312 
'--------------------------------------------------------------------------------------------------------------------------
 315 
'--------------------------------------------------------------------------------------------------------------------------
313 
Sub dependencyComments(pv_id, comments)
 316 
Sub dependencyComments(pv_id, comments)
314 
 
 317 
 
315 
        Set sqlstrB = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS pv, PACKAGES pkg WHERE pkg.pkg_id = pv.pkg_id AND PV_ID ="&pv_id &_
 318 
        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))
316 
    	" UNION SELECT * FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS pv, ARCHIVE_MANAGER.PACKAGES pkg WHERE pkg.pkg_id = pv.pkg_id AND PV_ID ="&pv_id, cint(0))
 - 
 
317 
        NewTextFile.WriteLine("<blockquote><blockquote><span class="&chr(34)&"highlight_text"&chr(34)&">"& sqlstrB("pkg_name") &" "& sqlstrB("pkg_version") &"</font></span></blockquote></blockquote>")
 319 
        NewTextFile.WriteLine("<blockquote><blockquote><span class="&chr(34)&"highlight_text"&chr(34)&">"& sqlstrB("pkg_name") &" "& sqlstrB("pkg_version") &"</font></span></blockquote></blockquote>")
318 
 
 320 
 
319 
        If comments <> "Filter Comments" Then
 321 
        If comments <> "Filter Comments" Then
320 
    NewTextFile.WriteLine("<blockquote><blockquote>Comments:</blockquote></blockquote>")
 322 
    NewTextFile.WriteLine("<blockquote><blockquote>Comments:</blockquote></blockquote>")
321 
    NewTextFile.Write("<blockquote><blockquote><blockquote>"& TextToHTML(sqlstrB("comments")) &"</blockquote></blockquote></blockquote>")
 323 
    NewTextFile.Write("<blockquote><blockquote><blockquote>"& TextToHTML(sqlstrB("comments")) &"</blockquote></blockquote></blockquote>")
Line 325... Line 327...
325 
        Set sqlstrB = nothing
 327 
        Set sqlstrB = nothing
326 
End Sub
 328 
End Sub
327 
'--------------------------------------------------------------------------------------------------------------------------
 329 
'--------------------------------------------------------------------------------------------------------------------------
328 
Sub pkg_Version(pv)
 330 
Sub pkg_Version(pv)
329 
    Dim qry
 331 
    Dim qry
330 
    Set qry = OraDatabase.DbCreateDynaset("SELECT PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&pv &_
 332 
    Set qry = OraDatabase.DbCreateDynaset("SELECT PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&pv, cint(0))
331 
	" UNION SELECT PKG_VERSION FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID="&pv, cint(0))
 - 
 
332 
    pkgversion = qry("pkg_version")
 333 
    pkgversion = qry("pkg_version")
333 
    qry.Close()
 334 
    qry.Close()
334 
    Set qry = Nothing
 335 
    Set qry = Nothing
335 
End Sub
 336 
End Sub
336 
'--------------------------------------------------------------------------------------------------------------------------
 337 
'--------------------------------------------------------------------------------------------------------------------------
337 
Sub Comments(Pv_Id, data)
 338 
Sub Comments(Pv_Id, data)
338 
        Dim comments
 339 
        Dim comments
339 
        Set comments = OraDatabase.DbCreateDynaset("SELECT COMMENTS, PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&Pv_id &_
 340 
        Set comments = OraDatabase.DbCreateDynaset("SELECT COMMENTS, PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&Pv_id, cint(0))
340 
    	" UNION SELECT COMMENTS, PKG_VERSION FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID="&Pv_id, cint(0))
 - 
 
341 
        'If comments("comments") <> "Rippled Build." Then
 341 
        'If comments("comments") <> "Rippled Build." Then
342 
            NewTextFile.WriteLine("<blockquote><blockquote><span class="&chr(34)&"highlight_text"&chr(34)&">Version: "& comments("pkg_version")&"</span></blockquote></blockquote>")
 342 
            NewTextFile.WriteLine("<blockquote><blockquote><span class="&chr(34)&"highlight_text"&chr(34)&">Version: "& comments("pkg_version")&"</span></blockquote></blockquote>")
343 
            If data <> "Filter Comments" Then
 343 
            If data <> "Filter Comments" Then
344 
                If comments("comments") <> "" Then
 344 
                If comments("comments") <> "" Then
345 
                    NewTextFile.WriteLine("<blockquote><blockquote>Comments: </blockquote></blockquote>")
 345 
                    NewTextFile.WriteLine("<blockquote><blockquote>Comments: </blockquote></blockquote>")
Line 349... Line 349...
349 
        'End If
 349 
        'End If
350 
End Sub
 350 
End Sub
351 
'--------------------------------------------------------------------------------------------------------------------------
 351 
'--------------------------------------------------------------------------------------------------------------------------
352 
Sub Release(pvId)
 352 
Sub Release(pvId)
353 
    Dim release
 353 
    Dim release
354 
    Set release = OraDatabase.DbCreateDynaset("SELECT INSERT_STAMP FROM RELEASE_CONTENT WHERE PV_ID="&pvId &_
 354 
    Set release = OraDatabase.DbCreateDynaset("SELECT INSERT_STAMP FROM RELEASE_CONTENT WHERE PV_ID="&pvId, cint(0))
355 
	" UNION SELECT INSERT_STAMP FROM ARCHIVE_MANAGER.RELEASE_CONTENT WHERE PV_ID="&pvId, cint(0))
 - 
 
356 
 
 355 
 
357 
    If release("insert_stamp") <> "" Then
 356 
    If release("insert_stamp") <> "" Then
358 
        NewTextFile.Write(release("insert_stamp"))
 357 
        NewTextFile.Write(release("insert_stamp"))
359 
    Else
 358 
    Else
360 
        NewTextFile.Write("Version Not Used.")
 359 
        NewTextFile.Write("Version Not Used.")