Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
3 
'|                                                   |
121 hknight 4 
'|                 RELEASE NOTES                     |
119 ghuddy 5 
'|                                                   |
6 
'=====================================================
7 
%>
4254 dpurdie 8 
<!-- Required to support jiraIssues.vbs -->
9 
<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="class/classaspJSON.vbs"></SCRIPT>
10 
<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="common/base64encode.vbs"></SCRIPT>
11 
<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="common/jiraIssues.vbs"></SCRIPT>
119 ghuddy 12 
<%
13 
'------------ Variable Definition -------------
14 
Dim rsCQ
15 
Dim rsDepIss
16 
Dim SQLstr
17 
Dim fixedIssDict
18 
Dim notesIssDict
19 
Dim issArr()
20 
Dim depIssDict
21 
Dim sDocTitle
22 
Dim rsQry, rsTemp
23 
Dim iss_db_id, G1_template, G1_style, currG1
24 
Dim retVal
25 
Dim baseURL
26 
Dim rsProjId
27 
Dim rsPkgMetrics
28 
Dim rsCodeReviewURL
129 ghuddy 29 
Dim vcsInfoCollector
119 ghuddy 30 
'------------ Constants Declaration -----------
31 
Const enumLoc_iss_db = 0
32 
Const enumLoc_iss_id = 1
33 
Const enumLoc_iss_num = 2
34 
Const enumLoc_summary = 3
35 
Const enumLoc_status = 4
36 
Const enumLoc_priority = 5
37 
Const enumLoc_issue_type = 6
38 
'------------ Variable Init -------------------
39 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
40 
Set fixedIssDict = CreateObject("Scripting.Dictionary")
41 
Set notesIssDict = CreateObject("Scripting.Dictionary")
42 
Set depIssDict = CreateObject("Scripting.Dictionary")
129 ghuddy 43 
Set vcsInfoCollector = CreateObject("Scripting.Dictionary")
119 ghuddy 44 
'----------------------------------------------
45 
%>
46 
<%
47 
'----------------------------------------------------------------------------------------------------------------------------------------
48 
Function asDepIss ( SSiss_db_id, SScolumn )
121 hknight 49 
   If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
119 ghuddy 50 
 
121 hknight 51 
   asDepIss = issArr ( SScolumn, CInt( depIssDict.Item (SSiss_db_id) ) )
119 ghuddy 52 
End Function
53 
'----------------------------------------------------------------------------------------------------------------------------------------
54 
Function FixedIssues ( parPv_id )
121 hknight 55 
   Dim sqlstr, rsTemp
56 
   sqlstr = "SELECT pv_id FROM cq_issues WHERE pv_id = "& parPv_id &" AND iss_state = "& enumISSUES_STATE_FIXED
57 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
119 ghuddy 58 
 
121 hknight 59 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
60 
      FixedIssues = TRUE
61 
   Else
62 
      FixedIssues = FALSE
63 
   End If
119 ghuddy 64 
 
121 hknight 65 
   rsTemp.Close()
66 
   Set rsTemp = nothing
119 ghuddy 67 
End Function
68 
'----------------------------------------------------------------------------------------------------------------------------------------
69 
Function SQL_Package_Information ( nPv_id )
121 hknight 70 
   SQL_Package_Information = _
71 
   " SELECT *"&_
72 
   "   FROM PACKAGE_VERSIONS pv"&_
73 
   "  WHERE pv.pv_id = "& nPv_id
119 ghuddy 74 
End Function
75 
'----------------------------------------------------------------------------------------------------------------------------------------
76 
Function SQL_Dependency_Issues ( NNpv_id )
121 hknight 77 
   SQL_Dependency_Issues = _
78 
   " SELECT pkg.pkg_name, pv.pkg_version, pv.pv_id, cqi.iss_db, cqi.iss_id, cqi.iss_state, pv.comments AS reasons"&_
79 
   "     FROM cq_issues cqi,"&_
80 
   "          package_dependencies dep,"&_
81 
   "          packages pkg,"&_
82 
   "          package_versions pv"&_
83 
   "    WHERE dep.pv_id = "& NNpv_id &_
84 
   "      AND dep.dpv_id = cqi.pv_id(+)"&_
85 
   "      AND dep.dpv_id = pv.pv_id(+)"&_
86 
   "      AND pv.pkg_id = pkg.pkg_id"&_
87 
   "   ORDER BY UPPER(pkg.pkg_name) ASC, cqi.iss_state DESC"
119 ghuddy 88 
End Function
89 
'----------------------------------------------------------------------------------------------------------------------------------------
90 
Function SQL_Additional_Notes ( nPv_id )
121 hknight 91 
   SQL_Additional_Notes = ReadFile( rootPath & "queries\additional_notes.sql" )
92 
   SQL_Additional_Notes = Replace( SQL_Additional_Notes, ":PV_ID", nPv_id )
119 ghuddy 93 
End Function
94 
'----------------------------------------------------------------------------------------------------------------------------------------
95 
Function SQL_Unit_Tests ( nPv_id )
121 hknight 96 
   SQL_Unit_Tests = ReadFile( rootPath & "queries\unit_tests.sql" )
97 
   SQL_Unit_Tests = Replace( SQL_Unit_Tests, ":PV_ID", nPv_id )
119 ghuddy 98 
End Function
99 
'----------------------------------------------------------------------------------------------------------------------------------------
121 hknight 100 
' Function returns the number of imported clearquest issues
101 
' and builds a string suitable for querying the clearquest issues database
102 
Function Get_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
3975 dpurdie 103 
   Dim rsTemp, sqlstr, DEVIiss, retVal
119 ghuddy 104 
 
121 hknight 105 
   If IsObject(DDfixedIss) Then
106 
      ' Find this package issues
107 
      sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& NNpv_id &"  AND iss_state = "& nIssState
108 
   Else
109 
      ' Find dependency issues
110 
      sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE  pv_id IN ( "&_
111 
               " SELECT dpv_id FROM package_dependencies WHERE pv_id = "& NNpv_id &_
112 
               " )"
113 
   End If
119 ghuddy 114 
 
121 hknight 115 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
116 
   retVal = rsTemp.RecordCount
119 ghuddy 117 
 
121 hknight 118 
   DEVIiss  = "-1"
119 ghuddy 119 
 
121 hknight 120 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
121 
      If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
122 
         DEVIiss = DEVIiss &","& rsTemp("iss_id")
123 
      End If
119 ghuddy 124 
 
121 hknight 125 
      If IsObject(DDfixedIss) Then
126 
         ' Store only Fixed Issues
159 ghuddy 127 
         If CInt(rsTemp("iss_state")) = CInt(enumISSUES_STATE_FIXED) AND _
128 
           DDfixedIss.Exists(Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id"))) = false Then DDfixedIss.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), ""
121 hknight 129 
      End If
119 ghuddy 130 
 
121 hknight 131 
      If IsObject(DDnotesIssDict) Then
132 
         ' Store Notes
159 ghuddy 133 
         If Not IsNull(rsTemp("notes")) AND (rsTemp("notes") <> "") AND _
134 
           DDnotesIssDict.Exists(Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id"))) = false Then DDnotesIssDict.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), Cstr(rsTemp("notes"))
121 hknight 135 
      End If
119 ghuddy 136 
 
121 hknight 137 
      rsTemp.MoveNext
138 
   WEnd
119 ghuddy 139 
 
121 hknight 140 
   ' Construct SQL statement for CQ database
141 
   SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
142 
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
143 
   SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
119 ghuddy 144 
 
121 hknight 145 
   rsTemp.Close()
146 
   Set rsTemp = nothing
119 ghuddy 147 
 
121 hknight 148 
   Get_Package_Issues = retVal
119 ghuddy 149 
 
121 hknight 150 
End Function
119 ghuddy 151 
'----------------------------------------------------------------------------------------------------------------------------------------
152 
Sub LastPvId (PvId)
121 hknight 153 
   Dim sqlstr
119 ghuddy 154 
 
131 ghuddy 155 
   sqlstr = "SELECT pv_id, pkg_version, comments, last_pv_id FROM PACKAGE_VERSIONS WHERE PV_ID= "& PvId
119 ghuddy 156 
 
121 hknight 157 
   Set rsQry = OraDatabase.DbCreateDynaset( sqlstr, cint(0) )
119 ghuddy 158 
 
159 
End Sub
160 
'----------------------------------------------------------------------------------------------------------------------------------------
161 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
121 hknight 162 
   If OOrsCQ.State = 1 Then
163 
      OOrsCQ.Close()
164 
   End If
119 ghuddy 165 
 
121 hknight 166 
   On Error Resume Next
167 
   OOrsCQ.ActiveConnection = CQ_conn
168 
   OOrsCQ.Source = SSsql
169 
   OOrsCQ.CursorType = 0
170 
   OOrsCQ.CursorLocation = 2
171 
   OOrsCQ.LockType = 3
172 
   OOrsCQ.Open()
119 ghuddy 173 
 
121 hknight 174 
   Get_CQ_Issues = Err.Number
119 ghuddy 175 
 
176 
End Function
177 
'----------------------------------------------------------------------------------------------------------------------------------------
178 
Function Get_Dependency_CQ_Issues ( SSsql, OOrsCQ, DDdepIss, AAiss )
121 hknight 179 
   Dim recCnt
180 
   If OOrsCQ.State = 1 Then
181 
      OOrsCQ.Close()
182 
   End If
119 ghuddy 183 
 
121 hknight 184 
   OOrsCQ.ActiveConnection = CQ_conn
185 
   OOrsCQ.Source = SSsql
186 
   OOrsCQ.CursorType = 0
187 
   OOrsCQ.CursorLocation = 2
188 
   OOrsCQ.LockType = 3
119 ghuddy 189 
 
121 hknight 190 
   On Error Resume Next
191 
   OOrsCQ.Open()
119 ghuddy 192 
 
121 hknight 193 
   ' Exit with error if error occurs
194 
   Get_Dependency_CQ_Issues = Err.Number
195 
   If Err.Number <> 0 Then Exit Function
119 ghuddy 196 
 
197 
 
121 hknight 198 
   recCnt = 1
119 ghuddy 199 
 
121 hknight 200 
   While ((NOT OOrsCQ.BOF) AND (NOT OOrsCQ.EOF))
201 
      ReDim Preserve AAiss( 6, recCnt )
202 
      'If NOT DDdepIss.Exists Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")) Then
203 
         DDdepIss.Add Cstr(OOrsCQ("iss_db") &"."& OOrsCQ("iss_id")), Cstr(recCnt)
204 
      'End If
205 
      AAiss( enumLoc_iss_db, recCnt )    = OOrsCQ("iss_db")
206 
      AAiss( enumLoc_iss_id, recCnt )    = OOrsCQ("iss_id")
207 
      AAiss( enumLoc_iss_num, recCnt )   = OOrsCQ("iss_num")
208 
      AAiss( enumLoc_summary, recCnt )   = OOrsCQ("summary")
209 
      AAiss( enumLoc_status, recCnt )    = OOrsCQ("status")
210 
      AAiss( enumLoc_priority, recCnt )    = OOrsCQ("priority")
211 
      AAiss( enumLoc_issue_type, recCnt ) = OOrsCQ("issue_type")
119 ghuddy 212 
 
121 hknight 213 
      recCnt = recCnt + 1
214 
      OOrsCQ.MoveNext
215 
   WEnd
119 ghuddy 216 
 
121 hknight 217 
   OOrsCQ.Close()
119 ghuddy 218 
End Function
219 
'----------------------------------------------------------------------------------------------------------------------------------------
220 
Sub Group_By ( rsG, styleG, currG )
121 hknight 221 
   If rsG = currG Then Exit Sub
222 
   Response.write styleG
223 
   'currG = rsG
119 ghuddy 224 
End Sub
225 
'----------------------------------------------------------------------------------------------------------------------------------------
226 
Sub CheckUnitTestsState ( nPv_id, outMSG, outMSG_ID, outNote, outTestsFound )
121 hknight 227 
   Dim sqlstr, rsTemp
228 
   sqlstr = ReadFile( rootPath & "queries\unit_test_entries_check.sql" )
229 
   sqlstr = Replace( sqlstr, ":PV_ID", nPv_id)
230 
   sqlstr = Replace( sqlstr, ":enumTEST_TYPE_NOT_DONE", enumTEST_TYPE_NOT_DONE)
119 ghuddy 231 
 
121 hknight 232 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
119 ghuddy 233 
 
121 hknight 234 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
235 
      outMSG = rsTemp("msg")
236 
      outMSG_ID = CInt(rsTemp("msg_id"))
237 
      outNote = rsTemp("test_summary")
238 
      outTestsFound = FALSE
119 ghuddy 239 
 
121 hknight 240 
      If IsNull(rsTemp("msg")) Then outTestsFound = TRUE
241 
   End If
119 ghuddy 242 
 
121 hknight 243 
   rsTemp.Close()
244 
   Set rsTemp = nothing
119 ghuddy 245 
End Sub
246 
'----------------------------------------------------------------------------------------------------------------------------------------
247 
Function FormatAccepted ( sAccepted, nTest_id )
121 hknight 248 
   Dim tempSTR
249 
   If IsNull(nTest_id) Then Exit Function
119 ghuddy 250 
 
121 hknight 251 
   tempSTR = ""
119 ghuddy 252 
 
121 hknight 253 
   If pageIsEditable Then
254 
      tempSTR = "<select name='acc"& nTest_id &"' class='form_item'>"
255 
   Else
256 
      tempSTR = "<select name='acc"& nTest_id &"' class='form_item' disabled>"
257 
   End If
119 ghuddy 258 
 
121 hknight 259 
   If sAccepted = enumUNIT_TEST_ACCEPTED Then
260 
      tempSTR = tempSTR  &"<option></option>"&_
261 
                     "<option value='"& enumUNIT_TEST_ACCEPTED &"' SELECTED>Yes</option>"&_
262 
                     "<option value='"& enumUNIT_TEST_NOTACCEPTED &"'>No</option>"
119 ghuddy 263 
 
121 hknight 264 
   ElseIf sAccepted = enumUNIT_TEST_NOTACCEPTED Then
265 
      tempSTR = tempSTR  &"<option></option>"&_
266 
                     "<option value='"& enumUNIT_TEST_ACCEPTED &"'>Yes</option>"&_
267 
                     "<option value='"& enumUNIT_TEST_NOTACCEPTED &"' SELECTED>No</option>"
119 ghuddy 268 
 
121 hknight 269 
   Else
270 
      tempSTR = tempSTR  &"<option SELECTED></option>"&_
271 
                     "<option value='"& enumUNIT_TEST_ACCEPTED &"'>Yes</option>"&_
272 
                     "<option value='"& enumUNIT_TEST_NOTACCEPTED &"'>No</option>"
119 ghuddy 273 
 
121 hknight 274 
   End If
119 ghuddy 275 
 
121 hknight 276 
   tempSTR = tempSTR & "</select>"
119 ghuddy 277 
 
121 hknight 278 
   FormatAccepted = tempSTR
119 ghuddy 279 
 
280 
End Function
281 
'----------------------------------------------------------------------------------------------------------------------------------------
282 
Function SQL_CodeReview ( nPv_id )
121 hknight 283 
   SQL_CodeReview = _
284 
   "   SELECT cr.date_of_review, cr.time_spent, cr.review_reason, cr.rteam_domain_expert,"&_
285 
   "          cr.rteam_language_expert, cr.rteam_peer_developer, cr.rteam_author,"&_
286 
   "          cr.files_reviewed, cr.review_results, cr.issues_raised,"&_
287 
   "          cr.review_comments, cr.fnc_s_meets_functionality,"&_
288 
   "          cr.fnc_c_meets_functionality"&_
289 
   "     FROM code_reviews cr"&_
290 
   "    WHERE cr.pv_id = "& nPv_id
119 ghuddy 291 
End Function
292 
'----------------------------------------------------------------------------------------------------------------------------------------
293 
Function SQL_Build_Env ( nPv_id )
121 hknight 294 
   SQL_Build_Env = _
295 
   " SELECT pv.*, bm.BM_ID,"&_
296 
   "         bm.BM_NAME,"&_
4134 dpurdie 297 
   "         pkgbinfo.BSA_ID,"&_
298 
   "         bsa.BSA_NAME"&_
121 hknight 299 
   "     FROM PACKAGE_BUILD_INFO pkgbinfo,"&_
300 
   "           BUILD_MACHINES bm,"&_
4134 dpurdie 301 
   "           PACKAGE_VERSIONS pv,"&_
302 
   "           BUILD_STANDARDS_ADDENDUM bsa"&_
121 hknight 303 
   "    WHERE pkgbinfo.BM_ID = bm.BM_ID"&_
304 
   "    AND pv.PV_ID = pkgbinfo.PV_ID"&_
305 
   "      AND pkgbinfo.PV_ID = "& nPv_id  &_
4134 dpurdie 306 
   "      AND pkgbinfo.BSA_ID = bsa.BSA_ID"&_
121 hknight 307 
   "   ORDER BY UPPER(bm.BM_NAME) "
119 ghuddy 308 
End Function
309 
'----------------------------------------------------------------------------------------------------------------------------------------
310 
Function DecodeOverallResult ( ByVal cCheck )
121 hknight 311 
   If cCheck = "" OR IsNull(cCheck) Then cCheck = 0
119 ghuddy 312 
 
121 hknight 313 
   Select Case CInt( cCheck )
314 
      Case enumCODE_REVIEW_ACCEPTED
315 
         DecodeOverallResult = "Accepted"
316 
      Case enumCODE_REVIEW_MINOR_UPDATES
317 
         DecodeOverallResult = "Minor updates required"
318 
      Case enumCODE_REVIEW_MAJOR_REWORK
319 
         DecodeOverallResult = "Major rework required"
320 
      Case Else
321 
         DecodeOverallResult = ""
322 
   End Select
119 ghuddy 323 
 
324 
End Function
325 
'----------------------------------------------------------------------------------------------------------------------------------------
4134 dpurdie 326 
Function GetBuildType ( nBuildType, nBuildName )
119 ghuddy 327 
 
4134 dpurdie 328 
   if (IsNull(nBuildType) OR (nBuildType = "")) Then
329 
       GetBuildType = "Build type not defined"
330 
   ElseIf (IsNull(nBuildName) OR (nBuildName = "") ) Then
331 
       GetBuildType = "Build Name not defined"
121 hknight 332 
   Else
4134 dpurdie 333 
        GetBuildType = nBuildName
121 hknight 334 
   End If
119 ghuddy 335 
 
4134 dpurdie 336 
  '' Wrap around brackets
121 hknight 337 
   GetBuildType = "("& GetBuildType &")"
119 ghuddy 338 
 
339 
End Function
340 
'----------------------------------------------------------------------------------------------------------------------------------------
341 
Sub GetPackageMetrics (NNpv_id, rsTemp)
342 
 
121 hknight 343 
   OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
119 ghuddy 344 
 
121 hknight 345 
   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageMetrics.sql"), cint(0))
119 ghuddy 346 
 
121 hknight 347 
   OraDatabase.Parameters.Remove "PV_ID"
119 ghuddy 348 
 
349 
End Sub
350 
'----------------------------------------------------------------------------------------------------------------------------------------
351 
Sub GetCodeReviewURLs (NNpv_id, rsTemp)
352 
 
121 hknight 353 
   OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
119 ghuddy 354 
 
121 hknight 355 
   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("CodeReviewURLs.sql"), cint(0))
119 ghuddy 356 
 
121 hknight 357 
   OraDatabase.Parameters.Remove "PV_ID"
119 ghuddy 358 
 
359 
End Sub
161 iaugusti 360 
 
361 
 
362 
'---------------------------------------------------------------
363 
Sub Query_Config_Spec (NNRtag_id, NNPv_id)
364 
   OraDatabase.Parameters.Add "RTAG_ID", NNRtag_id,   ORAPARM_INPUT, ORATYPE_NUMBER
365 
   OraDatabase.Parameters.Add "PV_ID", NNPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
366 
   If NNRtag_id <> "" Then
367 
      If pkgInfoHash.Item ("dlocked") <> "Y" Then
368 
         Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("config_spec.sql"), cint(0))
369 
      Else
370 
         Set rsQry = OraDatabase.DbCreateDynaset( Replace(GetQuery("config_spec.sql"), "PV.LAST_PV_ID", "PV.PV_ID"), cint(0))
371 
      End If
372 
   Else
373 
      If pkgInfoHash.Item ("dlocked") <> "Y" Then
374 
         Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("config_spec_nortag.sql"), cint(0))
375 
      Else
376 
         Set rsQry = OraDatabase.DbCreateDynaset( Replace(GetQuery("config_spec_nortag.sql"), "PV.LAST_PV_ID", "PV.PV_ID"), cint(0))
377 
      End If
378 
   End If
379 
   OraDatabase.Parameters.Remove "RTAG_ID"
380 
   OraDatabase.Parameters.Remove "PV_ID"
381 
End Sub
382 
 
383 
'---------------------------------------------------------------
167 brianf 384 
' Returns the jats extraction commands
2735 dpurdie 385 
Sub Jats_Extract_Command (ByRef sjats_cmds(), ByRef ajats_cmd_test, ByRef sjats_cmds_qh, ByRef sjats_extractable)
161 iaugusti 386 
   Dim dlocked: dlocked = pkgInfoHash.Item("dlocked")
169 brianf 387 
   Dim pkg_vcs_tag: pkg_vcs_tag = Get_Pkg_Vcs_Tag(Request("pv_id"))
1376 dpurdie 388 
   Dim ii: ii = -1
389 
   Dim baseCmd
2735 dpurdie 390 
   sjats_extractable = false
161 iaugusti 391 
 
167 brianf 392 
   ' if not released then use last package version vcs tag and branch else use current vcs tag
393 
   If dlocked <> "Y" Then
394 
     ' not released, so get last package version id
1376 dpurdie 395 
 
2365 dpurdie 396 
     Dim last_version_valid: last_version_valid = NOT IsNull(pkgInfoHash.Item ("previous_version"))
167 brianf 397 
     Dim last_pv_id: last_pv_id = pkgInfoHash.Item("last_pv_id")
169 brianf 398 
     Dim last_pkg_vcs_tag: last_pkg_vcs_tag = Get_Pkg_Vcs_Tag(last_pv_id)
1376 dpurdie 399 
     Dim VcsType
161 iaugusti 400 
 
2365 dpurdie 401 
     If (last_version_valid AND last_pkg_vcs_tag <> "") Then
402 
        VcsType = Mid(last_pkg_vcs_tag, 1, InStr(1, last_pkg_vcs_tag, "::") - 1 )
403 
        sjats_cmds_qh = VcsType
404 
        baseCmd =  "jats vcsrelease -extract -label """ & last_pkg_vcs_tag & """"
405 
        ii = ii+1 : sjats_cmds(ii) = baseCmd
1376 dpurdie 406 
 
407 
         ' ClearCase extraction may get a project specific branch appended
408 
         ' This will be used to automatically branch the files in the package
409 
         '
410 
         If (VcsType = "CC") Then
2735 dpurdie 411 
             sjats_extractable = true
1376 dpurdie 412 
             Call Query_Config_Spec (Request("rtag_id"), last_pv_id)
413 
             Dim config_branch: config_branch = rsQry("config_spec_branch")
414 
             If NOT IsNull(config_branch) AND (config_branch <> "") Then
415 
                 ii = ii+1 : sjats_cmds(ii) = baseCmd & " -branch " & config_branch
416 
             End If
417 
         End If
418 
 
419 
         If (VcsType = "SVN") Then
2735 dpurdie 420 
            sjats_extractable = true
1376 dpurdie 421 
            ii = ii+1 : sjats_cmds(ii) = baseCmd & " -devMode=Tag"
422 
            ii = ii+1 : sjats_cmds(ii) = baseCmd & " -devMode=Tip"
423 
            ii = ii+1 : sjats_cmds(ii) = baseCmd & " -devMode=Work"
424 
            ii = ii+1 : sjats_cmds(ii) = baseCmd & " -devMode=Exact"
425 
         End If
167 brianf 426 
     Else
1376 dpurdie 427 
         ii = ii+1 : sjats_cmds(ii) = "No Previous version to extract"
167 brianf 428 
     End If
1376 dpurdie 429 
 
430 
     baseCmd =  "jats vcsrelease -extract -label """ & pkg_vcs_tag & """"
431 
     ii = ii+1 : sjats_cmds(ii) = baseCmd
432 
 
161 iaugusti 433 
   Else
2735 dpurdie 434 
    ' released
435 
    sjats_cmds_qh = vcsInfoCollector.Item("vcs_tag")
1376 dpurdie 436 
 
2735 dpurdie 437 
    if ( sjats_cmds_qh = "CC" OR sjats_cmds_qh = "SVN" ) Then
438 
        sjats_extractable = true
439 
        baseCmd =  "jats vcsrelease -extract -label """ & pkg_vcs_tag & """"
440 
        ii = ii+1 : sjats_cmds(ii) = baseCmd
441 
    Else
442 
        baseCmd =  "Cannot be extracted with JATS"
443 
        ii = ii+1 : sjats_cmds(ii) = baseCmd
444 
    End If
445 
 
161 iaugusti 446 
   End If
167 brianf 447 
 
1376 dpurdie 448 
   ' Test Command
2735 dpurdie 449 
   if sjats_extractable Then
450 
        ajats_cmd_test = "jats vcsrelease -test -label """ & pkg_vcs_tag & """"
451 
   Else
452 
        ajats_cmd_test = "Cannot be extracted with JATS"
453 
   End If
161 iaugusti 454 
 
1376 dpurdie 455 
   ReDim Preserve sjats_cmds(ii)
161 iaugusti 456 
   rsQry.Close()
457 
   Set rsQry = nothing
458 
 
459 
End Sub
460 
 
167 brianf 461 
'---------------------------------------------------------------
462 
' Returns the VCS tag for the specified package version
2365 dpurdie 463 
' Note: ORAPARM_OUTPUT default size is 127 bytes. This is too short for some
464 
'
169 brianf 465 
Function Get_Pkg_Vcs_Tag(apv_id)
167 brianf 466 
   OraDatabase.Parameters.Add "PV_ID", apv_id, ORAPARM_INPUT, ORATYPE_NUMBER
2365 dpurdie 467 
   OraDatabase.Parameters.Add "RETURN_CODE","xxxx", ORAPARM_OUTPUT, ORATYPE_VARCHAR2
2735 dpurdie 468 
   OraDatabase.Parameters("RETURN_CODE").MinimumSize = 200
1376 dpurdie 469 
   On Error Resume Next
470 
        OraDatabase.ExecuteSQL ("BEGIN   :RETURN_CODE := PK_RMAPI.RETURN_VCS_TAG( :PV_ID );   END;")
471 
        Get_Pkg_Vcs_Tag = OraDatabase.Parameters("RETURN_CODE").Value
472 
   On Error Goto 0
167 brianf 473 
   OraDatabase.Parameters.Remove "PV_ID"
474 
   OraDatabase.Parameters.Remove "RETURN_CODE"
475 
End Function
119 ghuddy 476 
'----------------------------------------------------------------------------------------------------------------------------------------
477 
%>
478 
<%
479 
'------------------ MAIN LINE --------------------
480 
'-------------------------------------------------
481 
%>
482 
<!-- PACKAGE INFORMATION --------------------------------------------------------------------------------------------------------------->
161 iaugusti 483 
   <fieldset class="fset"><legend class="body_colb"><img src='images/s_info.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Package Information</legend>
121 hknight 484 
   <a name="PACKAGE_INFORMATION"></a>
485 
   <table width="100%" border="0" cellspacing="1" cellpadding="2">
486 
      <tr>
487 
         <td align="right" valign="bottom">
488 
            <%If pageIsEditable Then%>
489 
               <a href='javascript:;' onClick="MM_openBrWindow('_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','PackageInfo','resizable=yes,width=650,height=690')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
490 
            <%End If%>
491 
         </td>
492 
      </tr>
493 
   </table>
494 
   <table width="100%" border="0" cellspacing="1" cellpadding="2">
129 ghuddy 495 
      <%
496 
      Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))
161 iaugusti 497 
 
137 ghuddy 498 
      Call get_vcs_info_for_package( rsQry("pkg_label"), rsQry("build_type"), rsQry("vcs_type_id"), rsQry("dlocked"), vcsInfoCollector )
161 iaugusti 499 
 
500 
      %>
129 ghuddy 501 
 
161 iaugusti 502 
      <%
503 
        ' State
504 
        Dim sstate
171 brianf 505 
        Dim bcan_unlock
161 iaugusti 506 
        Dim stitle
171 brianf 507 
        Dim bis_patch
508 
        Dim slockonclick: slockonclick=""
161 iaugusti 509 
 
171 brianf 510 
        bis_patch = not IsNull(pkgInfoHash.Item ("is_patch"))
3616 dpurdie 511 
        If bis_patch Then
512 
          ' the user can unlock a patch if they have permission
513 
          ' packages can be unlocked by the btnUnlockRelease button
514 
          bcan_unlock = objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND objAccessControl.IsActive("UnlockPatch")
515 
        Else
516 
          bcan_unlock = objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
517 
        End If
171 brianf 518 
 
3959 dpurdie 519 
        Select Case pkgInfoHash.Item ("dlocked")
520 
            Case "Y"  sstate = "Released"
521 
            Case "N"  sstate = "Not Released"
522 
            Case "P"  sstate = "Not Released. Pending approval"
523 
            Case "A"  sstate = "Not Released. Aproved for build"
524 
            Case "R"  sstate = "Not Released. Rejected"
525 
            Case Else sstate = "Not Released. Invalid State"
526 
        End Select
527 
 
171 brianf 528 
        If bcan_unlock  Then
161 iaugusti 529 
          If (pkgInfoHash.Item ("dlocked") = "Y") Then
183 brianf 530 
            ' Unlock patch.
531 
            stitle="Unlock the patch"
161 iaugusti 532 
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
533 
          ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
183 brianf 534 
            ' lock patch.
3616 dpurdie 535 
            stitle="Lock the patch. Release requirements are not applied."
161 iaugusti 536 
            shref="_s_lock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
3616 dpurdie 537 
          Else
538 
            ' unlock patch.
539 
            stitle="Unlock the patch"
540 
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
541 
            bcan_unlock = FALSE
161 iaugusti 542 
          End If
543 
        End if
171 brianf 544 
 
129 ghuddy 545 
      %>
161 iaugusti 546 
 
121 hknight 547 
      <tr>
161 iaugusti 548 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top">
171 brianf 549 
         <% If bcan_unlock Then
550 
              If (slockonclick = "") Then%>
3616 dpurdie 551 
                <a class='body_txt' title='<%=stitle%>' href='<%=shref%>' > <strong>Status:</strong><img src='images/i_edit.gif' width='12' height='12' border='0' ></a>
171 brianf 552 
         <%   Else %>
3616 dpurdie 553 
                <a href='<%=shref%>' onClick='<%=slockonclick%>' class='body_txt' title='<%=stitle%>'> <strong>Status:</strong> <img src='images/i_edit.gif' width='12' height='12' border='0' ></a>
171 brianf 554 
         <%   End If %>
555 
         <% Else %>
556 
              <b><strong>Status:</strong></b>
557 
         <% End If %>
161 iaugusti 558 
         </td>
559 
         <td bgcolor=#f5f5f5 class="sublbox_txt"><%=sstate%></td>
560 
      </tr>
561 
 
562 
      <tr>
563 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Deployable:</b></td>
564 
         <td bgcolor=#f5f5f5 class="sublbox_txt">
121 hknight 565 
            <%If IsNull( rsQry("is_deployable") ) Then%>No<%Else%>Yes<%End If%>
566 
         </td>
567 
      </tr>
129 ghuddy 568 
 
161 iaugusti 569 
      <tr>
570 
         <td width="1%" nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Short Description:</b></td>
571 
         <td witdh="100%" bgcolor=#f5f5f5 class="sublbox_txt">
572 
            <%If IsNull( rsQry("pv_description") ) Then%>
573 
               <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pv_description") ) )%>
574 
            <%End If%>
575 
         </td>
576 
      </tr>
577 
      <tr>
578 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Package Overview:</b> </td>
579 
         <td bgcolor=#f5f5f5 class="sublbox_txt">
580 
            <%If IsNull( rsQry("pv_overview") ) Then%>
581 
               <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pv_overview") ) )%>
582 
            <%End If%>
583 
         </td>
584 
      </tr>
585 
 
586 
      <%
587 
        Dim shref
588 
        Dim smail
589 
        Dim sonclick
590 
 
591 
        ' Owner:
592 
        sonclick="MM_openBrWindow('_wform_change_owner.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"','ChangeOwner','resizable=yes,width=400,height=200')"
593 
        smail = pkgInfoHash.Item ("owner_email")
594 
        shref = "mailto:"& smail
595 
      %>
596 
 
597 
      <tr>
598 
        <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top">
599 
          <%If objAccessControl.UserLogedIn() Then%>
600 
            <a href='javascript:;' onClick=<%=sonclick%> class='body_txt'>
601 
            <strong>Owner:</strong><img src='images/i_edit.gif' width='12' height='12' border='0' alt='Change owner'>
602 
            </a>&nbsp;
603 
          <%Else%>
604 
            <strong>Owner:</strong><img src='images/i_edit_disable.gif' width='12' height='12' border='0' alt='Change owner'>
605 
          <%End If%>
606 
        </td>
607 
        <td bgcolor=#f5f5f5 class="sublbox_txt">
608 
          <table width="100%" border="0" cellspacing="0" cellpadding="0" ID="Table1">
609 
            <tr class="sublbox_txt">
610 
              <td><%=pkgInfoHash.Item ("owner")%></td>
611 
              <td><a href=<%=shref%> class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align=right alt=<%=smail%>></a></td>
612 
            </tr>
613 
          </table>
614 
        </td>
615 
      </tr>
616 
 
617 
      <%
618 
        ' Created:
619 
        smail = pkgInfoHash.Item ("creator_email")
620 
        shref = "mailto:"& smail
621 
      %>
622 
      <tr>
623 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Created:</b></td>
624 
         <td bgcolor=#f5f5f5 class="sublbox_txt">
625 
           <table width="100%" border="0" cellspacing="0" cellpadding="0" ID="Table3">
626 
             <tr class="sublbox_txt">
627 
               <td><%=EuroDate(pkgInfoHash.Item ("created_stamp"))&" by "& pkgInfoHash.Item ("creator")%></td>
628 
               <td><a href=<%=shref%> class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align=right alt=<%=smail%>></a></td>
629 
             </tr>
630 
           </table>
631 
         </td>
632 
      </tr>
633 
 
634 
      <%
635 
        ' Last Modified:
636 
        smail = pkgInfoHash.Item ("modifier_email")
637 
        shref = "mailto:"& smail
638 
      %>
639 
      <tr>
640 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Last Modified:</b></td>
641 
         <td bgcolor=#f5f5f5 class="sublbox_txt">
642 
           <table width="100%" border="0" cellspacing="0" cellpadding="0" ID="Table4">
643 
             <tr class="sublbox_txt">
644 
               <td><%=EuroDateTime(pkgInfoHash.Item ("modified_stamp")) &" by "& pkgInfoHash.Item ("modifier")%></td>
645 
               <td><a href=<%=shref%> class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align=right alt=<%=smail%>></a></td>
646 
             </tr>
647 
           </table>
648 
         </td>
649 
      </tr>
650 
 
651 
      <%
652 
        ' Added to Release
653 
        smail = pkgInfoHash.Item ("insertor_email")
654 
        shref = "mailto:"& smail
655 
        If IsNull(pkgInfoHash.Item ("is_patch"))  AND  (Request("rtag_id") <> "") AND (pkgInfoHash.Item ("insertor") <> "") Then
656 
      %>
657 
      <tr>
658 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Added to Release:</b></td>
659 
         <td bgcolor=#f5f5f5 class="sublbox_txt">
660 
           <table width="100%" border="0" cellspacing="0" cellpadding="0" ID="Table2">
661 
             <tr class="sublbox_txt">
662 
               <td><%=EuroDate(pkgInfoHash.Item ("insert_stamp")) &" by "& pkgInfoHash.Item ("insertor")%></td>
663 
               <td><a href=<%=shref%> class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align=right alt=<%=smail%>></a></td>
664 
             </tr>
665 
           </table>
666 
         </td>
667 
      </tr>
668 
      <%End If%>
669 
 
139 ghuddy 670 
      <%If (vcsInfoCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) OR (vcsInfoCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then%>
129 ghuddy 671 
         <tr>
161 iaugusti 672 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Version Control System:</b></td>
673 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
129 ghuddy 674 
               <%=NewLine_To_BR ( To_HTML( vcsInfoCollector.Item("vcs_name") ) )%>
675 
            </td>
676 
         </tr>
1376 dpurdie 677 
 
129 ghuddy 678 
         <tr>
1376 dpurdie 679 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Source Path:</b> </td>
161 iaugusti 680 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
1376 dpurdie 681 
               <%If IsNull( rsQry("src_path") ) Then%>
682 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
129 ghuddy 683 
               <%End If%>
684 
            </td>
685 
         </tr>
1376 dpurdie 686 
 
129 ghuddy 687 
         <tr>
1376 dpurdie 688 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Label:</b></td>
161 iaugusti 689 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
1376 dpurdie 690 
               <%If IsNull( rsQry("pkg_label") ) Then%>
691 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%>
129 ghuddy 692 
               <%End If%>
693 
            </td>
694 
         </tr>
695 
      <%ElseIf vcsInfoCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG Then%>
696 
         <tr>
161 iaugusti 697 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Version Control System:</b></td>
698 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
129 ghuddy 699 
               <%=NewLine_To_BR ( To_HTML( vcsInfoCollector.Item("vcs_name") ) )%>
700 
            </td>
701 
         </tr>
1376 dpurdie 702 
 
129 ghuddy 703 
         <tr>
1376 dpurdie 704 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Source Path:</b> </td>
161 iaugusti 705 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
129 ghuddy 706 
               <%If IsNull( rsQry("src_path") ) Then%>
707 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
708 
               <%End If%>
709 
            </td>
710 
         </tr>
1376 dpurdie 711 
 
183 brianf 712 
         <tr>
1376 dpurdie 713 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Tag:</b></td>
183 brianf 714 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
191 brianf 715 
               <%If IsNull( rsQry("pkg_label") ) Then%>
716 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%>
717 
               <%End If%>
183 brianf 718 
            </td>
719 
         </tr>
1376 dpurdie 720 
 
129 ghuddy 721 
      <%ElseIf vcsInfoCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG Then%>
722 
         <tr>
161 iaugusti 723 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Version Control System:</b></td>
724 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
129 ghuddy 725 
               <%=NewLine_To_BR ( To_HTML( vcsInfoCollector.Item("vcs_name") ) )%>
726 
            </td>
727 
         </tr>
728 
      <%Else%>
729 
         <tr>
161 iaugusti 730 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Version Control System:</b></td>
731 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
129 ghuddy 732 
               <span class='err_alert'>Required!</span>
733 
            </td>
734 
         </tr>
735 
      <%End If%>
736 
 
121 hknight 737 
      <tr>
161 iaugusti 738 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Base View:</b></td>
739 
         <td bgcolor=#f5f5f5 class="sublbox_txt">
740 
            <%=Get_Pkg_Base_View ( parPv_id, parRtag_id )%>
121 hknight 741 
         </td>
742 
      </tr>
161 iaugusti 743 
 
121 hknight 744 
      <tr>
161 iaugusti 745 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top">
123 ghuddy 746 
            <b>Build Standard:</b>
121 hknight 747 
         </td>
748 
         <%
749 
         If pkgInfoHash.Item ("bs_id") <> "" Then
750 
            If pkgInfoHash.Item ("bs_id") = "1" Then
161 iaugusti 751 
               Response.write "<td bgcolor=#f5f5f5 class='sublbox_txt'>JATS<br></td>"
119 ghuddy 752 
 
121 hknight 753 
            ElseIf pkgInfoHash.Item ("bs_id") = "2" Then
161 iaugusti 754 
               Response.write "<td bgcolor=#f5f5f5 class='sublbox_txt'>ANT<br></td>"
119 ghuddy 755 
 
121 hknight 756 
            ElseIf pkgInfoHash.Item ("bs_id") = "3" Then
161 iaugusti 757 
               Response.write "<td bgcolor=#f5f5f5 class='sublbox_txt'>NONE<br></td>"
121 hknight 758 
            End If
759 
         Else
129 ghuddy 760 
            If vcsInfoCollector.Item("vcs_tag") <> enum_VCS_UNCONTROLLED_TAG Then
161 iaugusti 761 
               Response.write "<td bgcolor=#f5f5f5 class='sublbox_txt'><span class='err_alert'>Required!</span><br></td>"
129 ghuddy 762 
            Else
161 iaugusti 763 
               Response.write "<td bgcolor=#f5f5f5 class='sublbox_txt'>Unspecified<br></td>"
129 ghuddy 764 
            End If
121 hknight 765 
         End If
766 
         %>
767 
      </tr>
129 ghuddy 768 
      <%If (NOT IsNull(pkgInfoHash.Item ("bs_id"))) AND (pkgInfoHash.Item ("bs_id") <> "3") Then%>
769 
         <tr>
161 iaugusti 770 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Build Environment:</b> </td>
129 ghuddy 771 
            <%
772 
            '--- Get Build Env Details
773 
            Set rsTemp = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
774 
            %>
161 iaugusti 775 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
129 ghuddy 776 
               <%If rsTemp.RecordCount = 0 Then%>
777 
                  <%If rsQry("is_build_env_required") = enumDB_NO Then%>
778 
                     Not Required
779 
                  <%Else%>
780 
                     <span class='err_alert'>Required!</span>
781 
                  <%End If%>
782 
               <%Else%>
783 
                  <%If (IsNull( rsQry("is_build_env_required") ) AND (rsQry("comments") <> "Rippled Build.")) Then%>
784 
                     <span class='err_alert'>Required!</span>
785 
                  <%ElseIf rsQry("is_build_env_required") = enumDB_NO Then%>
786 
                     Not Required.
787 
                  <%Else%>
1376 dpurdie 788 
                     <table width="40%"  border="0" cellspacing="0" cellpadding="1">
129 ghuddy 789 
                        <%
790 
                        currG1 = 0
791 
                        While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
4134 dpurdie 792 
                           If currG1 <> CInt(rsTemp("bm_id")) Then%>
129 ghuddy 793 
                              <tr>
1376 dpurdie 794 
                                 <td colspan="2" nowrap class="sublbox_txt">
4134 dpurdie 795 
                                    <%=rsTemp("bm_name")%>&nbsp;<%=GetBuildType( rsTemp("bsa_id"),rsTemp("bsa_name") )%>
129 ghuddy 796 
                                 </td>
797 
                              </tr>
798 
                              <%currG1 = CInt(rsTemp("bm_id"))
799 
                           End If
800 
                           rsTemp.MoveNext
801 
                        WEnd
802 
                        %>
803 
                        <tr>
804 
                           <td width="5%"></td>
805 
                           <td width="95%"></td>
806 
                        </tr>
807 
                     </table>
808 
                  <%End If%>
121 hknight 809 
               <%End If%>
129 ghuddy 810 
            </td>
811 
         </tr>
812 
      <%End If%>
813 
 
2735 dpurdie 814 
      <%
815 
      ' Get JATS extraction commands
816 
      Dim  sjats_cmd_test, sjats_cmds_qh, sjats_extractable
817 
      ReDim sjats_cmds(6)
818 
      call Jats_Extract_Command(sjats_cmds, sjats_cmd_test, sjats_cmds_qh, sjats_extractable)
819 
      %>
820 
 
821 
 
161 iaugusti 822 
      <%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
823 
         <tr>
824 
            <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
825 
            <%
826 
            ' Previous Version
827 
            sonclick="MM_openBrWindow(""_wform_change_previous_version.asp?rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &""",""ChangeOwner"",""resizable=yes,width=400,height=200"")"
828 
            If objAccessControl.IsActive("ChangePreviousVersion") Then
829 
            %>
830 
               <a href='javascript:;' onClick=<%=sonclick%> class='body_txt'>
831 
               <strong>Previous Version:</strong><img src='images/i_edit.gif' width='12' height='12' border='0' alt='Edit'>
832 
               </a>
833 
            <%Else%>
834 
               <strong>Previous Version:</strong><img src='images/i_edit_disable.gif' width='12' height='12' border='0' alt='Edit'>
835 
            <%End If%>
836 
            </td>
129 ghuddy 837 
 
161 iaugusti 838 
            <%
839 
              Dim sprevious_version_value
840 
              sprevious_version_value = ""
841 
              If IsNull(pkgInfoHash.Item ("previous_version")) Then
842 
                sprevious_version_value = "Unknown!"
843 
              Else
844 
                sprevious_version_value = pkgInfoHash.Item ("previous_version")
845 
              End If
129 ghuddy 846 
 
161 iaugusti 847 
              ' Previous pkg vcs tag
848 
              Dim last_pv_id
849 
              Dim rsQryPV, rsQryVT
850 
              Set rsQryPV = OraDatabase.DbCreateDynaset( "SELECT last_pv_id from package_versions where pv_id ="&parPv_id , cint(0))
191 brianf 851 
              Dim slast_vcs_tag
161 iaugusti 852 
              last_pv_id = rsQryPV("last_pv_id")
191 brianf 853 
              If (pv_id_exists(last_pv_id)) Then
854 
                slast_vcs_tag = Get_Pkg_Vcs_Tag(last_pv_id)
855 
              End If
161 iaugusti 856 
              %>
857 
                <td bgcolor=#f5f5f5 class="sublbox_txt">
858 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
859 
                    <tr class="sublbox_txt">
860 
                      <td width=15% colspan=2 nowrap class="sublbox_txt">
861 
                        <%=sprevious_version_value%>
862 
                      </td>
863 
                      <td colspan="2" nowrap class="sublbox_txt">
2735 dpurdie 864 
                      <% If sjats_extractable Then
865 
                        response.write( NewLine_To_BR ( To_HTML(slast_vcs_tag) ))
866 
                      Else
867 
                        response.write("Cannot be extracted with JATS")
868 
                      End If
869 
                      response.write(Quick_Help ( "PreviousVcsTag" ))
870 
                      %>
161 iaugusti 871 
                      </td>
872 
                    </tr>
873 
                  </table>
874 
                </td>
875 
         </tr>
876 
      <%End If%>
877 
      <%
878 
      Dim iLastSignificantPVID
879 
      Dim old_pkg_vcs_tag
880 
      Dim old_previous_version_value
881 
      iLastSignificantPVID = getLastSignificantPVID(pkgInfoHash.Item("pv_id"), pkgInfoHash.Item("last_pv_id"))
129 ghuddy 882 
 
161 iaugusti 883 
      If (pv_id_exists(iLastSignificantPVID) = TRUE) Then
884 
        Dim rsQryLPV
167 brianf 885 
        Set rsQryLPV = OraDatabase.DbCreateDynaset( "SELECT pkg_version from package_versions where pv_id ="&iLastSignificantPVID , cint(0))
161 iaugusti 886 
        old_previous_version_value = rsQryLPV("pkg_version")
169 brianf 887 
        old_pkg_vcs_tag = Get_Pkg_Vcs_Tag(iLastSignificantPVID)
161 iaugusti 888 
      %>
889 
         <tr>
890 
            <td width="20%" bgcolor=#e4e9ec class="sublbox_txt"><strong>Previous Significant Version:</strong></td>
891 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
892 
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
893 
                <tr class="sublbox_txt">
894 
                  <td width=15% colspan=2 nowrap class="sublbox_txt">
895 
                    <%=old_previous_version_value%>
129 ghuddy 896 
                  </td>
161 iaugusti 897 
                  <td colspan=2 nowrap class="sublbox_txt">
2735 dpurdie 898 
                      <% If sjats_extractable Then
899 
                        response.write( NewLine_To_BR ( To_HTML(old_pkg_vcs_tag) ))
900 
                      Else
901 
                        response.write("Cannot be extracted with JATS")
902 
                      End If
903 
                      response.write(Quick_Help ( "PreviousSignificantVcsTag" ))
904 
                      %>
129 ghuddy 905 
                  </td>
161 iaugusti 906 
                </tr>
907 
              </table>
908 
            </td>
909 
         </tr>
910 
      <%End If%>
129 ghuddy 911 
 
161 iaugusti 912 
      <tr>
1376 dpurdie 913 
         <td width="20%" bgcolor=#e4e9ec class="sublbox_txt" valign="top">
914 
           <strong>JATS extraction commands:</strong>
915 
                <%=Quick_Help ( "JatsExtraction_" & sjats_cmds_qh )%>
161 iaugusti 916 
         </td>
1376 dpurdie 917 
         <td>
918 
         <table class="embedded_table">
919 
         <% Dim ii : For ii = 0 to UBound(sjats_cmds) %>
920 
             <tr><td bgcolor=#f5f5f5 class="sublbox_txt">
921 
               <%=NewLine_To_BR ( To_HTML(sjats_cmds(ii)) )%>
922 
             </td>
923 
         <% Next %>
161 iaugusti 924 
         </td>
1376 dpurdie 925 
         </tr>
926 
         </table>
161 iaugusti 927 
      </tr>
928 
      <tr>
929 
         <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
1376 dpurdie 930 
           <strong>JATS Test:</strong><%=Quick_Help ( "JatsTest" )%>
161 iaugusti 931 
         </td>
932 
         <td bgcolor=#f5f5f5 class="sublbox_txt">
933 
           <%=NewLine_To_BR ( To_HTML(sjats_cmd_test) )%>
934 
         </td>
935 
      </tr>
129 ghuddy 936 
 
161 iaugusti 937 
      <%
1376 dpurdie 938 
      ' Beyond Compare difference command
939 
      Dim prevVcsTag
940 
      Dim curVcsTag
941 
      Dim sBcCmd
942 
 
943 
      prevVcsTag = Get_Pkg_Vcs_Tag(iLastSignificantPVID)
944 
      curVcsTag = Get_Pkg_Vcs_Tag(parPv_id)
945 
      sBcCmd = ""
946 
 
947 
      If (IsNull(prevVcsTag) OR prevVcsTag = "" ) Then
948 
            sBcCmd = "No prior label to compare against"
949 
      ElseIf (IsNull(curVcsTag) OR curVcsTag = "" ) Then
950 
            sBcCmd = "Current VCS tag not yet specified"
2735 dpurdie 951 
      ElseIf (not sjats_extractable) Then
952 
            sBcCmd = "Cannot be extracted with JATS"
1376 dpurdie 953 
      Else
954 
            sBcCmd = "jats vcsdiff -old=" & prevVcsTag & " -new=" & curVcsTag
955 
      End If
956 
      sBcCmd = NewLine_To_BR( To_HTML (sBcCmd) )
957 
 
958 
      ' Codestriker commands - Only for ClearCase
161 iaugusti 959 
      Dim sCsCmd
960 
      sCsCmd = ""
1376 dpurdie 961 
 
161 iaugusti 962 
      If vcsInfoCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG Then
1376 dpurdie 963 
         Dim oldLabel
964 
         Dim old_vcs_tag
161 iaugusti 965 
         If (pv_id_exists(iLastSignificantPVID) = TRUE) Then
966 
            old_vcs_tag = get_vcs_tag(iLastSignificantPVID)
967 
            If (old_vcs_tag = enum_VCS_CLEARCASE_TAG) Then
968 
               oldLabel = get_Pkg_Label(iLastSignificantPVID)
1376 dpurdie 969 
               sCsCmd = NewLine_To_BR ( To_HTML( Codestriker_Command (oldLabel, pkgInfoHash.Item("pkg_label")) ) )
161 iaugusti 970 
           End If
129 ghuddy 971 
         End If
972 
      End If%>
161 iaugusti 973 
 
974 
      <tr>
975 
        <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
976 
          <strong>Codestriker command:</strong><%=Quick_Help ( "Codestriker" )%>
977 
        </td>
978 
        <td bgcolor=#f5f5f5 class="sublbox_txt">
979 
          <%=sCsCmd%>
980 
        </td>
981 
      </tr>
982 
      <tr>
983 
        <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
984 
          <strong>Beyond Compare command:</strong><%=Quick_Help ( "BeyondCompare" )%>
985 
        </td>
986 
        <td bgcolor=#f5f5f5 class="sublbox_txt">
987 
          <%=sBcCmd%>
988 
        </td>
989 
      </tr>
990 
 
119 ghuddy 991 
 
121 hknight 992 
      <%If pkgInfoHash.Item("is_deployable") = "Y" Then
993 
         OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item ("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
994 
         Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("DeploymentManagerReference.sql"), cint(0))
995 
         If rsTemp.RecordCount = 0 Then%>
996 
            <tr>
161 iaugusti 997 
               <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>SBOM Information:</b></td>
121 hknight 998 
               <%If pkgInfoHash.Item("product_state") = 3 Then%>
161 iaugusti 999 
                  <td bgcolor=#f5f5f5 class="err_alert"><b>Ready For Deployment!</b></td>
121 hknight 1000 
               <%ElseIf pkgInfoHash.Item("product_state") = 2 Then%>
161 iaugusti 1001 
                  <td bgcolor=#f5f5f5 class="err_alert"><b>Ready For Testing!</b></td>
121 hknight 1002 
               <%ElseIf pkgInfoHash.Item("product_state") = 1 Then%>
161 iaugusti 1003 
                  <td bgcolor=#f5f5f5 class="err_alert"><b>Ready For Integration!</b></td>
121 hknight 1004 
               <%ElseIf pkgInfoHash.Item("product_state") = 5 Then%>
161 iaugusti 1005 
                  <td bgcolor=#f5f5f5 class="err_alert"><b>Ready For Integration and Deployment!</b></td>
121 hknight 1006 
               <%ElseIf IsNull(pkgInfoHash.Item("product_state")) Then%>
161 iaugusti 1007 
                  <td bgcolor=#f5f5f5 class="err_alert"><b>Information Unavailable!</b></td>
121 hknight 1008 
               <%End If%>
119 ghuddy 1009 
 
1010 
            </tr>
121 hknight 1011 
         <%Else%>
119 ghuddy 1012 
            <tr>
161 iaugusti 1013 
               <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>SBOM Added/Updated:</b></td>
1014 
               <td bgcolor=#f5f5f5 class="sublbox_txt">
121 hknight 1015 
                  <%=rsTemp("branch_name")%> - <%=rsTemp("bom_name")%><%=VBNewLine%><%=rsTemp("version")%>
1016 
               </td>
119 ghuddy 1017 
            </tr>
121 hknight 1018 
         <%End If
1019 
         rsTemp.Close()
1020 
         Set rsTemp = Nothing
1021 
         OraDatabase.Parameters.Remove "PV_ID"
1022 
      End If
1023 
      %>
1024 
   </table>
161 iaugusti 1025 
   </fieldset>
121 hknight 1026 
   <br>
1376 dpurdie 1027 
 
121 hknight 1028 
<!-- PACKAGE METRICS -------------------------------------------------------------------------------------------------------------------->
1029 
   <%If Request("rtag_id") <> "" Then%>
1030 
      <%
1031 
      Call GetPackageMetrics( parPv_id, rsPkgMetrics )
1032 
      %>
1033 
      <fieldset class="fset"><a href="javascript:;" onclick="ToggleDisplay('divPkgMetrics','pkg_metrics_filler')" class="lbl_link">
1034 
         <legend class="body_colb">
1035 
            <img src="images/i_metrics.gif" width="20" height="24" hspace="4" border="0" align="absmiddle" alt="Click to display Package Metrics">Package Metrics...
1036 
         </legend></a>
1037 
         <div name="pkg_metrics_filler" id="pkg_metrics_filler" style="display:block;" class="div_filler">
1038 
            <a href="javascript:;" onclick="ToggleDisplay('divPkgMetrics','pkg_metrics_filler')" class="txt_linked">Show...</a>
1039 
         </div>
1040 
         <div name="divPkgMetrics" id="divPkgMetrics" style="display:none;">
1041 
            <a name="PACKAGE_METRICS"></a>
1042 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1043 
               <tr>
161 iaugusti 1044 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt" width="20%"><b>Autobuilt:</b></td>
1045 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%If rsPkgMetrics("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%></td>
121 hknight 1046 
               </tr>
1047 
               <tr>
161 iaugusti 1048 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Unit Tested:</b></td>
1049 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%If rsPkgMetrics("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%></td>
121 hknight 1050 
               </tr>
1051 
               <tr>
161 iaugusti 1052 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Autotested:</b></td>
1053 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%If rsPkgMetrics("autotested") = "Y" Then%>Yes<%Else%>No<%End If%></td>
121 hknight 1054 
               </tr>
1055 
               <%If NOT IsNull(rsPkgMetrics("code_lines")) Then%>
1056 
               <tr>
161 iaugusti 1057 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Code Lines:</b></td>
1058 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("code_lines")%></td>
121 hknight 1059 
               </tr>
1060 
               <%End If%>
1061 
               <%If NOT IsNull(rsPkgMetrics("comment_lines")) Then%>
1062 
               <tr>
161 iaugusti 1063 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Comment Lines:</b></td>
1064 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("comment_lines")%></td>
121 hknight 1065 
               </tr>
1066 
               <%End If%>
1067 
               <%If NOT IsNull(rsPkgMetrics("blank_lines")) Then%>
1068 
               <tr>
161 iaugusti 1069 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Blank Lines:</b></td>
1070 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("blank_lines")%></td>
121 hknight 1071 
               </tr>
1072 
               <%End If%>
1073 
               <%If NOT IsNull(rsPkgMetrics("branches")) Then%>
1074 
               <tr>
161 iaugusti 1075 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Number of Branches:</b></td>
1076 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("branches")%></td>
121 hknight 1077 
               </tr>
1078 
               <%End If%>
1079 
               <%If NOT IsNull(rsPkgMetrics("branch_list")) Then%>
1080 
               <tr>
161 iaugusti 1081 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Branch List:</b></td>
1082 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("branch_list")%></td>
121 hknight 1083 
               </tr>
1084 
               <%End If%>
1085 
               <%If NOT IsNull(rsPkgMetrics("code_files")) Then%>
1086 
               <tr>
161 iaugusti 1087 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Code Files:</b></td>
1088 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("code_files")%></td>
121 hknight 1089 
               </tr>
1090 
               <%End If%>
1091 
               <%If NOT IsNull(rsPkgMetrics("ignored_files")) Then%>
1092 
               <tr>
161 iaugusti 1093 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Ignored Files:</b></td>
1094 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("ignored_files")%></td>
121 hknight 1095 
               </tr>
1096 
               <%End If%>
1097 
               <%If NOT IsNull(rsPkgMetrics("makefiles")) Then%>
1098 
               <tr>
161 iaugusti 1099 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Makefiles:</b></td>
1100 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("makefiles")%></td>
121 hknight 1101 
               </tr>
1102 
               <%End If%>
1103 
               <%If NOT IsNull(rsPkgMetrics("total_files")) Then%>
1104 
               <tr>
161 iaugusti 1105 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Total Files:</b></td>
1106 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("total_files")%></td>
121 hknight 1107 
               </tr>
1108 
               <%End If%>
1109 
               <%If NOT IsNull(rsPkgMetrics("directories")) Then%>
1110 
               <tr>
161 iaugusti 1111 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Number of Directories:</b></td>
1112 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("directories")%></td>
121 hknight 1113 
               </tr>
1114 
               <%End If%>
1115 
               <%If NOT IsNull(rsPkgMetrics("directory_depth")) Then%>
1116 
               <tr>
161 iaugusti 1117 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Directory Depth:</b></td>
1118 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("directory_depth")%></td>
121 hknight 1119 
               </tr>
1120 
               <%End If%>
1121 
               <%If NOT IsNull(rsPkgMetrics("created_stamp")) Then%>
1122 
               <tr>
161 iaugusti 1123 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt"><b>Metrics Collected:</b></td>
1124 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsPkgMetrics("created_stamp")%></td>
121 hknight 1125 
               </tr>
1126 
               <%End If%>
1127 
            </table>
1128 
         </div>
1129 
      </fieldset>
1130 
      <br>
1131 
      <%
1132 
      rsPkgMetrics.Close()
1133 
      Set rsPkgMetrics = nothing
1134 
      %>
1135 
   <%End If%>
1136 
<!-- PRODUCTS AFFECTED BY CHANGE -------------------------------------------------------------------------------------------------------->
119 ghuddy 1137 
 
1138 
<!-- REASON FOR DEPRECATION/DEPENDANCY DEPRECATED ----------------------------------------------------------------------------------------------------------------->
121 hknight 1139 
   <%If pkgInfoHash.Item("deprecated_state") = 6 Then %>
119 ghuddy 1140 
 
121 hknight 1141 
      <fieldset class="fset"><legend class="body_colb"><img src='images/s_notes.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Reason for deprecation</legend>
1142 
         <a name="REASON_FOR_DEPRECATION"></a>
1143 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1144 
            <tr>
161 iaugusti 1145 
               <td bgcolor=#f5f5f5>
119 ghuddy 1146 
 
121 hknight 1147 
                  <%
1148 
                  Dim rsComment
1149 
                  Set rsComment = OraDatabase.DbCreateDynaset("SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& Request("rtag_id") &" AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
1150 
                  If rsComment("comments") <> "" Then
1151 
                     Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
1152 
                     Response.write "<tr>"
1153 
                     Response.write "<td class='sublbox_txt'>"& NewLine_To_BR((  rsComment("comments") ) ) &"<br></td>"
1154 
                     Response.write "</tr>"
1155 
                     Response.write "</table>"
1156 
                  'Else
1157 
                  '   If FixedIssues ( parPv_id ) Then
1158 
                  '      Response.write "<span class='sublbox_txt'>Not specified.</span><br>"
1159 
                  '   Else
1160 
                  '      Response.write "<span class='err_alert'>Required!</span><br>"
1161 
                  '   End If
1162 
                  End If
1163 
                  rsComment.Close()
1164 
                  Set rsComment = nothing
1165 
                  %>
1166 
               </td>
1167 
            </tr>
1168 
         </table>
1169 
      </fieldset>
4230 dpurdie 1170 
      <br>
121 hknight 1171 
   <%End If%>
119 ghuddy 1172 
<!-- SBOM PRIORITY/CRITICALITY  --------------------------------------------------------------------------------------------------------->
121 hknight 1173 
   <%If NOT pageIsEditable AND pkgInfoHash.Item ("is_deployable") = "Y" Then%>
1174 
      <fieldset class="fset"><legend class="body_colb"><img src='icons/i_prod_sbom_priority.gif' hspace='4' border='0' align='absmiddle'>SBOM Priority</legend>
1175 
         <a name="SBOM_PRIORITY"></a>
1176 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1177 
            <tr>
1178 
               <td align="right" valign="bottom">
1179 
                  <%If (pkgInfoHash.Item ("dlocked") = "Y") Then%>
1180 
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_sbom_priority.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','SBOMPriority','resizable=yes,width=400,height=400')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
1181 
                  <%End If%>
1182 
               </td>
1183 
            </tr>
1184 
         </table>
1185 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1186 
            <tr>
161 iaugusti 1187 
               <td bgcolor=#f5f5f5>
121 hknight 1188 
                  <%If pkgInfoHash.Item ("sbom_priority") <> "" Then%>
1189 
                     <table border='0' cellspacing='0' cellpadding='0'>
1190 
                        <tr>
1191 
                           <td class='sublbox_txt'>
1192 
                              <%
1193 
                              If pkgInfoHash.Item ("sbom_priority") = "C" Then
1194 
                                 Response.write "<b><font color='red'>Critical.</font></b>"
1195 
                              ElseIf pkgInfoHash.Item ("sbom_priority") = "I" Then
1196 
                                 Response.write "<b>Important.</b>"
1197 
                              ElseIf pkgInfoHash.Item ("sbom_priority") = "R" Then
1198 
                                 Response.write "Routine"
1199 
                              ElseIf pkgInfoHash.Item ("sbom_priority") = "L" Then
1200 
                                 Response.write "Low"
1201 
                              End If
1202 
                              %>
1203 
                           </td>
1204 
                        </tr>
1205 
                     </table>
1206 
                  <%Else%>
1207 
                     <span class='err_alert'>Required!</span><br>
1208 
                  <%End If%>
1209 
               </td>
1210 
            </tr>
1211 
         </table>
1212 
      </fieldset>
4230 dpurdie 1213 
      <br>
121 hknight 1214 
   <%End If%>
119 ghuddy 1215 
<!-- CHANGE TYPE  ----------------------------------------------------------------------------------------------------------------------->
4230 dpurdie 1216 
   <fieldset class="fset">
1217 
   <a name="CHANGE_TYPE"></a>
121 hknight 1218 
   <%If pkgInfoHash.Item ("build_type") = "A" Then%>
4218 dpurdie 1219 
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Change Type</legend>
121 hknight 1220 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1221 
            <tr>
1222 
               <td align="right" valign="bottom">
1223 
                  <%If (pkgInfoHash.Item ("dlocked") <> "A")  AND (pkgInfoHash.Item ("dlocked") <> "Y") AND criticalSectionIsEditable Then%>
4230 dpurdie 1224 
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_rename_version.asp?renameMode=2&rfile=<%=ScriptName%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','ChangeType','resizable=yes,width=650,height=450')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
121 hknight 1225 
                  <%End If%>
1226 
               </td>
1227 
            </tr>
1228 
         </table>
1229 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1230 
            <tr>
161 iaugusti 1231 
               <td bgcolor=#f5f5f5>
121 hknight 1232 
                  <%
1233 
                  If pkgInfoHash.Item ("change_type") <> "" Then
1234 
                     Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
1235 
                     Response.write "<tr>"
1236 
                     If pkgInfoHash.Item ("change_type") = "M" Then
1237 
                        Response.write "<td class='sublbox_txt'>Major Change.<br></td>"
1238 
                     ElseIf pkgInfoHash.Item ("change_type") = "N" Then
1239 
                        Response.write "<td class='sublbox_txt'>Minor Change.<br></td>"
1240 
                     ElseIf pkgInfoHash.Item ("change_type") = "P" Then
1241 
                        Response.write "<td class='sublbox_txt'>Patch Change.<br></td>"
4230 dpurdie 1242 
                     ElseIf pkgInfoHash.Item ("change_type") = "F" Then
1243 
                        Response.write "<td class='sublbox_txt'>Version Specified by User.<br></td>"
1244 
                     Else
1245 
                        Response.write "<td><span class='err_alert'>Unknown Change Type: " & pkgInfoHash.Item ("change_type") & "</span></td>"
121 hknight 1246 
                     End If
1247 
                     Response.write "</tr>"
1248 
                     Response.write "</table>"
1249 
                  Else
1250 
                     Response.write "<span class='err_alert'>Required!</span><br>"
1251 
                  End If
1252 
                  %>
1253 
               </td>
1254 
            </tr>
1255 
         </table>
4230 dpurdie 1256 
   <%ElseIf pkgInfoHash.Item ("build_type") = "M" Then%>
1257 
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Build Type</legend>
1258 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1259 
            <tr>
1260 
               <td bgcolor=#f5f5f5>
1261 
               <span class='sublbox_txt'>Manually Built Package.</span>
1262 
                  <%If pkgInfoHash.Item ("change_type") <> "F" Then%>
1263 
                        <span class='err_alert'>Unexpected Change Type: <%=pkgInfoHash.Item ("change_type")%></span>
1264 
                  <%End If%>
1265 
               </td>
1266 
            </tr>
1267 
         </table>
1268 
   <%ElseIf pkgInfoHash.Item ("build_type") = "Y" Then%>
1269 
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Build Type</legend>
1270 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1271 
            <tr>
1272 
               <td bgcolor=#f5f5f5>
4254 dpurdie 1273 
                    <span class='sublbox_txt'>Ripple Built</span>
4230 dpurdie 1274 
               </td>
1275 
            </tr>
1276 
         </table>
1277 
   <%Else%>
1278 
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Build Type</legend>
1279 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1280 
            <tr>
1281 
               <td bgcolor=#f5f5f5>
1282 
                    <span class='err_alert'>Unknown Build Type (<%=pkgInfoHash.Item ("build_type")%>) Change Type (<%=pkgInfoHash.Item ("change_type")%>)</span>
1283 
               </td>
1284 
            </tr>
1285 
         </table>
121 hknight 1286 
   <%End If%>
4230 dpurdie 1287 
   </fieldset>
1288 
   <br>
131 ghuddy 1289 
 
119 ghuddy 1290 
<!-- RIPPLE PROPERTIES  ----------------------------------------------------------------------------------------------------------------------->
131 ghuddy 1291 
   <%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
121 hknight 1292 
      <fieldset class="fset"><legend class="body_colb"><img src='icons/i_pkg_ripple_type.gif' hspace='4' border='0' align='absmiddle' height='25' width='25'>Ripple Properties</legend>
1293 
         <a name="RIPPLE_PROPERTIES"></a>
1294 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1295 
            <tr>
1296 
               <td align="right" valign="bottom">
3616 dpurdie 1297 
                  <%If (objAccessControl.IsVisible( "RipplePackage" ) AND pageIsEditable) OR criticalSectionIsEditable OR objAccessControl.IsVisible( "PegPackageVersions" ) Then%>
131 ghuddy 1298 
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_ripple_properties.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','RippleType','resizable=yes,width=800,height=500')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
121 hknight 1299 
                  <%End If%>
1300 
               </td>
1301 
            </tr>
1302 
         </table>
1303 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
131 ghuddy 1304 
 
1305 
            <%If Request("rtag_id") <> "" Then
1306 
               Dim rsQryPegged
1307 
               Dim isPegged
1308 
               Set rsQryPegged = OraDatabase.DbCreateDynaset( "SELECT * FROM PEGGED_VERSIONS WHERE RTAG_ID ="& Request("rtag_id") &"AND PV_ID ="& Request("pv_id"), cint(0))
1309 
 
1310 
               If rsQryPegged.RecordCount = 0  Then
1311 
                  isPegged = FALSE%>
1312 
               <%Else
1313 
                  isPegged = TRUE %>
1314 
                  <tr>
161 iaugusti 1315 
                     <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
131 ghuddy 1316 
                        <strong>Is Pegged</strong>
1317 
                        <%=Quick_Help ( "pegged_version" )%>
1318 
                     </td>
161 iaugusti 1319 
                     <td bgcolor=#f5f5f5 class="sublbox_txt">Yes</td>
131 ghuddy 1320 
                  </tr>
1321 
               <%End If%>
1322 
               <%rsQryPegged.Close()
1323 
               Set rsQryPegged = nothing
1324 
            End If%>
1325 
 
1326 
            <%If isPegged = FALSE Then%>
1327 
               <tr>
161 iaugusti 1328 
                  <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
131 ghuddy 1329 
                     <strong>Build Inclusion</strong>
1330 
                     <%=Quick_Help ( "ripple_build" )%>
1331 
                  </td>
1332 
                  <%If Request("rtag_id") <> "" Then
1333 
                     Dim rsQryRipple
1334 
                     Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT * FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& Request("rtag_id") &"AND PV_ID ="&Request("pv_id"), cint(0))
1335 
                        If rsQryRipple.RecordCount = 0  Then %>
161 iaugusti 1336 
                        <td bgcolor=#f5f5f5 class="sublbox_txt">Yes</td>
131 ghuddy 1337 
                     <%Else%>
161 iaugusti 1338 
                        <td bgcolor=#f5f5f5 class="sublbox_txt">No</td>
131 ghuddy 1339 
                     <%End If%>
1340 
                     <%rsQryRipple.Close()
1341 
                     Set rsQryRipple = nothing
1342 
                  End If%>
1343 
               </tr>
1344 
               <tr>
161 iaugusti 1345 
                  <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
131 ghuddy 1346 
                     <strong>Ripple Type</strong>
1347 
                     <%=Quick_Help ( "ripple_type" )%>
1348 
                  </td>
161 iaugusti 1349 
                  <td width="80%" bgcolor=#f5f5f5>
131 ghuddy 1350 
                     <p>
1351 
                        <%
1352 
                        Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
1353 
                        Response.write "<tr>"
1354 
                        Response.write "<td class='sublbox_txt'>"
1355 
                        Dim anotherQry, selectedRippleType
1356 
                        selectedRippleType = pkgInfoHash.Item ("ripple_field")
1357 
                        Set anotherQry = OraDatabase.DbCreateDynaset( "SELECT state_name from ripple_field_states WHERE state_acronym ='"& selectedRippleType &"'", cint(0))
1358 
                        If anotherQry.RecordCount = 0  Then
1359 
                           Response.write "<span class='err_alert'>Required!</span>"
1360 
                        Else
1361 
                        Response.write( anotherQry.Fields("state_name").Value )
1362 
                        End If
1363 
                        anotherQry.Close()
1364 
                        Set anotherQry = nothing
1365 
                        If ( selectedRippleType = "L" ) Then
1366 
                        Dim qry
1367 
                        Set qry = OraDatabase.DbCreateDynaset( "SELECT major_limit, minor_limit, patch_limit, build_number_limit from package_versions where pv_id="& Request("pv_id"), cint(0))
1368 
                        Response.write " "
1369 
                        If isNull(qry("major_limit")) Then
1370 
                           Response.write("0")
1371 
                        Else
1372 
                           Response.write( qry.Fields( "major_limit" ).Value )
1373 
                        End If
1374 
                        Response.write ", "
1375 
                        If isNull(qry("minor_limit")) Then
1376 
                           Response.write("0")
1377 
                        Else
1378 
                           Response.write( qry.Fields( "minor_limit" ).Value )
1379 
                        End If
1380 
                        Response.write ", "
1381 
                        If isNull(qry("patch_limit")) Then
1382 
                           Response.write("0")
1383 
                        Else
1384 
                           Response.write( qry.Fields( "patch_limit" ).Value )
1385 
                        End If
1386 
                        Response.write ", "
1387 
                        If isNull(qry("build_number_limit")) Then
1388 
                           Response.write("0")
1389 
                        Else
1390 
                           Response.write( qry.Fields( "build_number_limit" ).Value )
1391 
                        End If
1392 
                        qry.Close()
1393 
                        Set qry = nothing
1394 
                        End If
1395 
                        Response.Write "<br></td>"
1396 
                        Response.write "</tr>"
1397 
                        Response.write "</table>"
1398 
                        %>
1399 
                     </p>
1400 
                  </td>
1401 
               </tr>
1402 
            <%End If%>
121 hknight 1403 
         </table>
1404 
      </fieldset>
1405 
      <br>
1406 
   <%End If%>
131 ghuddy 1407 
 
119 ghuddy 1408 
<!-- REASON FOR RELEASE ----------------------------------------------------------------------------------------------------------------->
121 hknight 1409 
   <fieldset class="fset"><legend class="body_colb"><img src='images/s_notes.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Reason for this version</legend>
1410 
      <a name="REASON_FOR_THIS_RELEASE"></a>
1411 
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1412 
         <tr>
1413 
            <td align="right" valign="bottom">
1414 
               <%If pageIsEditable Then%>
1415 
                  <form name="updateversions" method="post" action="_update_versions.asp">
1416 
                     <input type="submit" name="btn" value="Update Dependencies" class="form_btn" onClick="return confirmAction('Current comments would be deleted. Do you wish to continue?')">
1417 
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_reason_for_version.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','ReasonForRelease','resizable=yes,width=500,height=270')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
1418 
                     <input name="pv_id" type="hidden" value="<%=parPv_id%>">
1419 
                     <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
1420 
                  </form>
1421 
               <%End If%>
1422 
            </td>
1423 
         </tr>
1424 
      </table>
119 ghuddy 1425 
 
121 hknight 1426 
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1427 
         <tr>
161 iaugusti 1428 
            <td bgcolor=#f5f5f5>
121 hknight 1429 
            <%If pkgInfoHash.Item ("comments") <> "" Then%>
1430 
               <table border='0' cellspacing='0' cellpadding='0'>
1431 
                  <tr>
1432 
                     <td class='sublbox_txt'> <%Response.Write( NewLine_To_BR(pkgInfoHash.Item("comments")) )%><br></td>
1433 
                  </tr>
1434 
               </table>
1435 
            <%ElseIf FixedIssues ( parPv_id ) Then%>
1436 
               <span class='sublbox_txt'>Not specified.</span><br>
1437 
            <%Else%>
1438 
               <span class='err_alert'>Required!</span><br>
1439 
            <%End If%>
1440 
            </td>
1441 
         </tr>
1442 
      </table>
1443 
   </fieldset>
4230 dpurdie 1444 
   <br>
119 ghuddy 1445 
<!-- REASON FOR NON_RIPPLE RELEASE ----------------------------------------------------------------------------------------------------------------->
121 hknight 1446 
   <%If pkgInfoHash.Item ("comments") = "Rippled Build." Then%>
119 ghuddy 1447 
 
121 hknight 1448 
      <fieldset class="fset"><legend class="body_colb"><img src='images/s_notes.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Reason for last non-ripple build</legend>
119 ghuddy 1449 
 
121 hknight 1450 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1451 
            <tr>
161 iaugusti 1452 
               <td bgcolor=#f5f5f5>
121 hknight 1453 
                  <%
1454 
                  'Dim rsQry
1455 
                  Call LastPvId(pkgInfoHash.Item ("pv_id"))
119 ghuddy 1456 
 
121 hknight 1457 
                  While rsQry("comments") = "Rippled Build."
1458 
                     Call LastPvId(rsQry("last_pv_id"))
1459 
                  Wend
119 ghuddy 1460 
 
121 hknight 1461 
                  If pkgInfoHash.Item ("comments") <> "" Then
1462 
                     Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
1463 
                     Response.write "<tr>"
1464 
                     Response.write "<td class='sublbox_txt'><b>Package Version:</b> <b>"& NewLine_To_BR(( rsQry ("pkg_version") ) ) &"</b><br></td>"
1465 
                     Response.write "</tr>"
1466 
                     Response.write "<tr>"
1467 
                     Response.write "<td class='sublbox_txt'>"& NewLine_To_BR(( rsQry ("comments") ) ) &"<br></td>"
1468 
                     Response.write "</tr>"
119 ghuddy 1469 
 
121 hknight 1470 
                     Response.write "</table>"%>
119 ghuddy 1471 
 
121 hknight 1472 
                     <table width="100%" border="0" cellspacing="1" cellpadding="2">
1473 
                        <tr>
1474 
                           <td valign="top" class="sublbox_txt"><b>Fixed Issues For Last Non-Ripple Build</b></td>
1475 
                           <td align="right" valign="top">
1476 
                              <%If pageIsEditable Then%>
1477 
                                 <a href="javascript:;" onClick="MM_openBrWindow('_wform_import_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&skip_open=true','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">Import Fixed Issues from ClearQuest<img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
1478 
                              <%End If%>
1479 
                           </td>
1480 
                        </tr>
1481 
                     </table>
1482 
                     <%Call Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )
1483 
                     If (retVal > 0) Then
1484 
                        retVal = Get_CQ_Issues ( SQLstr, rsCQ )
1485 
                        If retVal = 0 Then%>
1486 
                           <table width="100%" border="0" cellspacing="1" cellpadding="3">
1487 
                              <tr>
161 iaugusti 1488 
                                 <td bgcolor=#e4e9ec nowrap width="1" class="form_field" align="center">Fixed</td>
1489 
                                 <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1490 
                                 <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1491 
                                 <td bgcolor=#e4e9ec nowrap width="100%" class="form_field">Summary</td>
1492 
                                 <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1493 
                                 <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Priority</td>
1494 
                                 <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Status</td>
1495 
                                 <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Note</td>
1496 
                                 <td bgcolor=#e4e9ec nowrap width="1" class="form_field">&nbsp;</td>
121 hknight 1497 
                              </tr>
1498 
                              <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1499 
                                 <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1500 
                                    <tr>
161 iaugusti 1501 
                                       <td align="center" nowrap bgcolor=#e4e9ec><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
1502 
                                       <td bgcolor=#f5f5f5 nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=rsCQ("iss_num")%></a></td>
3975 dpurdie 1503 
                                       <td bgcolor=#f5f5f5 class="form_item">
1504 
                                            <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
1505 
                                                DEVI
1506 
                                            <%Else%>
1507 
                                                UNKNOWN
1508 
                                            <%End If%></td>
161 iaugusti 1509 
                                       <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1510 
                                       <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("issue_type")%></td>
1511 
                                       <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("priority")%></td>
1512 
                                       <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("Status")%></td>
121 hknight 1513 
                                       <%If sectionIsEditable Then%>
1514 
                                           <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
161 iaugusti 1515 
                                             <td align="center" bgcolor=#f5f5f5 class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></a></td>
121 hknight 1516 
                                          <%Else%>
161 iaugusti 1517 
                                             <td align="center" bgcolor=#f5f5f5 class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_off.gif" width="11" height="12" border="0" title="Add Note"></a></td>
121 hknight 1518 
                                          <%End If%>
1519 
                                       <%Else%>
1520 
                                          <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
161 iaugusti 1521 
                                             <td align="center" bgcolor=#f5f5f5 class="form_item"><img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></td>
121 hknight 1522 
                                          <%Else%>
161 iaugusti 1523 
                                             <td align="center" bgcolor=#f5f5f5 class="form_item"><img src="images/i_note_off.gif" width="11" height="12" border="0"></td>
121 hknight 1524 
                                          <%End If%>
1525 
                                       <%End If%>
1526 
                                       <%If NOT pageIsEditable Then%>
161 iaugusti 1527 
                                          <td align="center" bgcolor=#f5f5f5 class="form_item"><img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0"></td>
121 hknight 1528 
                                       <%Else%>
161 iaugusti 1529 
                                          <td align="center" bgcolor=#f5f5f5 class="form_item"><a href="_remove_issue.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list"></a></td>
121 hknight 1530 
                                       <%End If%>
1531 
                                    </tr>
1532 
                                    <%rsCQ.MoveNext
1533 
                                 WEnd
1534 
                                 rsCQ.Close()%>
1535 
                              <%Else%>
1536 
                                 <tr>
161 iaugusti 1537 
                                    <td bgcolor=#e4e9ec nowrap>&nbsp;</td>
1538 
                                    <td bgcolor=#f5f5f5 nowrap></td>
1539 
                                    <td bgcolor=#f5f5f5 class="form_item"></td>
1540 
                                    <td bgcolor=#f5f5f5 class="form_item"></td>
1541 
                                    <td bgcolor=#f5f5f5 class="form_item"></td>
1542 
                                    <td bgcolor=#f5f5f5 class="form_item"></td>
1543 
                                    <td bgcolor=#f5f5f5 class="form_item"></td>
1544 
                                    <td bgcolor=#f5f5f5 class="form_item"></td>
1545 
                                    <td align="center" bgcolor=#f5f5f5 class="form_item"></td>
121 hknight 1546 
                                 </tr>
1547 
                              <%End If%>
1548 
                           </table>
1549 
                        <%End If%>
1550 
                        <%If retVal <> 0 Then Response.write enumMSSQL_ERROR
1551 
                     End If
1552 
                  Else
1553 
                     If FixedIssues ( parPv_id ) Then
1554 
                        Response.write "<span class='sublbox_txt'>Not specified.</span><br>"
1555 
                     Else
1556 
                        Response.write "<span class='err_alert'>Required!</span><br>"
1557 
                     End If
1558 
                  End If
119 ghuddy 1559 
 
121 hknight 1560 
                  rsQry.Close()
1561 
                  Set rsQry = nothing
1562 
                  %>
1563 
               </td>
1564 
            </tr>
1565 
         </table>
1566 
      </fieldset>
4230 dpurdie 1567 
      <br>
121 hknight 1568 
   <%End If%>
1569 
<!-- FIXED ISSUES ----------------------------------------------------------------------------------------------------------------------->
123 ghuddy 1570 
   <fieldset class="fset">
1571 
      <legend class="body_colb">
1572 
         <img src="images/s_bugs.gif" width="21" height="18" border="0" hspace="4" align="absmiddle">
1573 
         Issues
1574 
      </legend>
121 hknight 1575 
      <p class="body_colb"><a name="ISSUES"></a></p>
1576 
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
1577 
         <tr>
4254 dpurdie 1578 
            <!-- Jira Issues -->
121 hknight 1579 
            <td valign="top" class="body_colb">JIRA Issues</td>
1580 
            <td align="right" valign="top">
1581 
               <%If pageIsEditable Then%>
123 ghuddy 1582 
                  <a href="javascript:;" onClick="MM_openBrWindow('_wform_import_jira_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&skip_open=true','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">
1583 
                     Import JIRA issues
1584 
                     <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
1585 
                  </a>
121 hknight 1586 
               <%End If%>
1587 
            </td>
119 ghuddy 1588 
 
4254 dpurdie 1589 
            <%
1590 
            Dim issueInfo, el, key
1591 
            Set issueInfo = CreateObject( "Scripting.Dictionary" )
1592 
            Call getJiraIssueDetails(parPv_id,issueInfo, 0)
1593 
            If issueInfo.Count > 0 Then
1594 
            %>
121 hknight 1595 
 
4254 dpurdie 1596 
            <table width="100%" border="0" cellspacing="1" cellpadding="3">
1597 
                <tr>
1598 
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field" align="center">Fixed</td>
1599 
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1600 
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1601 
                   <td bgcolor=#e4e9ec nowrap width="100%" class="form_field">Summary</td>
1602 
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1603 
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Priority</td>
1604 
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Status</td>
1605 
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Note</td>
1606 
                   <td bgcolor=#e4e9ec nowrap width="1" class="form_field">&nbsp;</td>
1607 
                </tr>
1608 
                <%
1609 
                For Each key In issueInfo
1610 
                Set el = issueInfo.item(key)
1611 
                %>
1612 
                <tr>
1613 
                  <%If el.Exists("resolution") Then %>
1614 
                     <td align="center" nowrap bgcolor=#e4e9ec>
1615 
                        <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
1616 
                     </td>
1617 
                  <%Else%>
1618 
                     <td align="center" nowrap bgcolor=#e4e9ec></td>
1619 
                  <%End If%>
1620 
                  <td bgcolor=#f5f5f5 nowrap class="form_item">
1621 
                     <a href="<%=el.item("url")%>" target="_blank" class="txt_linked"><%=key%></a>
1622 
                  </td>
1623 
                  <td bgcolor=#f5f5f5 class="form_item"><%=el.item("type")%></td>
1624 
                  <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( el.item("summary") ) )%></td>
1625 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=el.item("issuetype")%></td>
1626 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=el.item("priority")%></td>
1627 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"><%=el.item("status")%></td>
1628 
                  <td nowrap bgcolor=#f5f5f5 class="form_item"></td>
1629 
                  <%If NOT pageIsEditable Then%>
1630 
                     <td align="center" bgcolor=#f5f5f5 class="form_item">
1631 
                        <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
1632 
                     </td>
1633 
                  <%Else%>
1634 
                     <td align="center" bgcolor=#f5f5f5 class="form_item">
1635 
                        <a href="_remove_jira_issue.asp?iss_link=<%=el.item("key")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');">
1636 
                           <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
1637 
                        </a>
1638 
                     </td>
1639 
                  <%End If%>
1640 
               </tr>
1641 
               <%
1642 
               Next
1643 
               Set issueInfo = nothing
1644 
               %>
1645 
            </table>
121 hknight 1646 
            <%End If%>
119 ghuddy 1647 
 
4254 dpurdie 1648 
            <!-- Fixed ClearCase Issues -->
121 hknight 1649 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1650 
               <tr>
1651 
                  <td valign="top" class="body_colb">Fixed Issues</td>
1652 
                  <td align="right" valign="top">
1653 
                     <%If pageIsEditable Then%>
123 ghuddy 1654 
                        <a href="javascript:;" onClick="MM_openBrWindow('_wform_import_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&skip_open=true','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">
1655 
                           Import Fixed Issues from ClearQuest
1656 
                           <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
1657 
                        </a>
121 hknight 1658 
                     <%End If%>
1659 
                  </td>
1660 
               </tr>
1661 
            </table>
119 ghuddy 1662 
 
121 hknight 1663 
            <%retVal = Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )
1664 
            If (retVal > 0) Then
1665 
               retVal = Get_CQ_Issues ( SQLstr, rsCQ )
1666 
               If retVal = 0 Then%>
1667 
                  <table width="100%" border="0" cellspacing="1" cellpadding="3">
1668 
                     <tr>
161 iaugusti 1669 
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field" align="center">Fixed</td>
1670 
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1671 
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1672 
                        <td bgcolor=#e4e9ec nowrap width="100%" class="form_field">Summary</td>
1673 
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1674 
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Priority</td>
1675 
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Status</td>
1676 
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">Note</td>
1677 
                        <td bgcolor=#e4e9ec nowrap width="1" class="form_field">&nbsp;</td>
121 hknight 1678 
                     </tr>
1679 
                     <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1680 
                        <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1681 
                           <tr>
161 iaugusti 1682 
                              <td align="center" nowrap bgcolor=#e4e9ec><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
1683 
                              <td bgcolor=#f5f5f5 nowrap class="form_item">
123 ghuddy 1684 
                                 <a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked">
1685 
                                    <%=rsCQ("iss_num")%>
1686 
                                 </a>
1687 
                              </td>
161 iaugusti 1688 
                              <td bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1689 
                                 <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
1690 
                                    DEVI
1691 
                                 <%Else%>
3975 dpurdie 1692 
                                    UNKNOWN
123 ghuddy 1693 
                                 <%End If%>
1694 
                              </td>
161 iaugusti 1695 
                              <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1696 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("issue_type")%></td>
1697 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("priority")%></td>
1698 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("Status")%></td>
121 hknight 1699 
                              <%If sectionIsEditable AND pageIsEditable Then%>
1700 
                                 <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
161 iaugusti 1701 
                                    <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1702 
                                       <a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')">
1703 
                                          <img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1704 
                                       </a>
1705 
                                    </td>
121 hknight 1706 
                                 <%Else%>
161 iaugusti 1707 
                                    <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1708 
                                       <a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')">
1709 
                                          <img src="images/i_note_off.gif" width="11" height="12" border="0" title="Add Note">
1710 
                                       </a>
1711 
                                    </td>
121 hknight 1712 
                                 <%End If%>
1713 
                              <%Else%>
1714 
                                 <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
161 iaugusti 1715 
                                    <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1716 
                                       <img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1717 
                                    </td>
121 hknight 1718 
                                 <%Else%>
161 iaugusti 1719 
                                    <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1720 
                                       <img src="images/i_note_off.gif" width="11" height="12" border="0">
1721 
                                    </td>
121 hknight 1722 
                                 <%End If%>
1723 
                              <%End If%>
1724 
                              <%If NOT pageIsEditable Then%>
161 iaugusti 1725 
                                 <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1726 
                                    <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
1727 
                                 </td>
121 hknight 1728 
                              <%Else%>
161 iaugusti 1729 
                                 <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1730 
                                    <a href="_remove_issue.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');">
1731 
                                       <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
1732 
                                    </a>
1733 
                                 </td>
121 hknight 1734 
                              <%End If%>
1735 
                           </tr>
1736 
                           <%rsCQ.MoveNext
1737 
                        WEnd
1738 
                        rsCQ.Close()%>
1739 
                     <%Else%>
1740 
                        <tr>
161 iaugusti 1741 
                           <td bgcolor=#e4e9ec nowrap>&nbsp;</td>
1742 
                           <td bgcolor=#f5f5f5 nowrap></td>
1743 
                           <td bgcolor=#f5f5f5 class="form_item"></td>
1744 
                           <td bgcolor=#f5f5f5 class="form_item"></td>
1745 
                           <td bgcolor=#f5f5f5 class="form_item"></td>
1746 
                           <td bgcolor=#f5f5f5 class="form_item"></td>
1747 
                           <td bgcolor=#f5f5f5 class="form_item"></td>
1748 
                           <td bgcolor=#f5f5f5 class="form_item"></td>
1749 
                           <td align="center" bgcolor=#f5f5f5 class="form_item"></td>
121 hknight 1750 
                        </tr>
1751 
                     <%End If%>
119 ghuddy 1752 
 
121 hknight 1753 
                  </table>
1754 
               <%End If%>
1755 
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1756 
            <%End If%>
119 ghuddy 1757 
 
4254 dpurdie 1758 
            <!-- Outstanding ClearCase Issues -->
121 hknight 1759 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1760 
               <tr>
1761 
                  <td valign="top" class="body_colb">Outstanding Issues</td>
1762 
                  <td align="right" valign="top">
1763 
                     <%If pageIsEditable Then%>
123 ghuddy 1764 
                        <a href="javascript:;" onClick="MM_openBrWindow('_wform_import_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">
1765 
                           Import Outstanding Issues from ClearQuest
1766 
                           <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
1767 
                        </a>
121 hknight 1768 
                     <%End If%>
1769 
                  </td>
1770 
               </tr>
1771 
            </table>
119 ghuddy 1772 
 
121 hknight 1773 
            <%retVal = Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_IMPORTED )
1774 
            If (retVal > 0) Then
1775 
               retVal = Get_CQ_Issues ( SQLstr, rsCQ )
1776 
               If retVal = 0 Then%>
1777 
                  <table width="100%" border="0" cellspacing="1" cellpadding="2">
1778 
                     <form name="fixedissues" method="get" action="_update_issues_state.asp">
1779 
                        <tr>
1780 
                           <%If pageIsEditable Then%>
161 iaugusti 1781 
                              <td bgcolor=#e4e9ec nowrap width="1%" class="form_field" align="center">Fixed</td>
121 hknight 1782 
                           <%End If%>
161 iaugusti 1783 
                           <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Issue&nbsp;Id&nbsp;</td>
1784 
                           <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Issue DB&nbsp;</td>
1785 
                           <td bgcolor=#e4e9ec nowrap width="100%" class="form_field">Summary</td>
1786 
                           <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Issue&nbsp;Type&nbsp;</td>
1787 
                           <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Priority</td>
1788 
                           <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Status</td>
1789 
                           <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Note</td>
1790 
                           <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">&nbsp;</td>
121 hknight 1791 
                        </tr>
1792 
                        <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1793 
                           <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1794 
                              <tr>
1795 
                                 <%If pageIsEditable Then%>
161 iaugusti 1796 
                                    <td align="center" nowrap bgcolor=#e4e9ec>
123 ghuddy 1797 
                                       <input type="checkbox" name="FRfixed" value="<%=rsCQ("iss_db") &"."& rsCQ("iss_id")%>">
1798 
                                    </td>
121 hknight 1799 
                                 <%End If%>
161 iaugusti 1800 
                                 <td bgcolor=#f5f5f5 nowrap class="form_item">
123 ghuddy 1801 
                                    <a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked">
1802 
                                       <%=rsCQ("iss_num")%>
1803 
                                    </a>
1804 
                                 </td>
161 iaugusti 1805 
                                 <td bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1806 
                                    <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
1807 
                                       DEVI
1808 
                                    <%Else%>
3975 dpurdie 1809 
                                       UNKNWOWN
123 ghuddy 1810 
                                    <%End If%>
1811 
                                 </td>
161 iaugusti 1812 
                                 <td bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1813 
                                 <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("issue_type")%></td>
1814 
                                 <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("priority")%></td>
1815 
                                 <td nowrap bgcolor=#f5f5f5 class="form_item"><%=rsCQ("Status")%></td>
121 hknight 1816 
                                 <%If sectionIsEditable AND pageIsEditable Then%>
1817 
                                    <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
161 iaugusti 1818 
                                       <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1819 
                                          <a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')">
1820 
                                             <img src="images/i_note_on.gif" width="11" height="12" border="0" alt="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1821 
                                          </a>
1822 
                                       </td>
121 hknight 1823 
                                    <%Else%>
161 iaugusti 1824 
                                       <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1825 
                                          <a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')">
1826 
                                             <img src="images/i_note_off.gif" width="11" height="12" border="0" alt="Add Note">
1827 
                                          </a>
1828 
                                       </td>
121 hknight 1829 
                                    <%End If%>
1830 
                                 <%Else%>
1831 
                                    <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
161 iaugusti 1832 
                                       <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1833 
                                          <img src="images/i_note_on.gif" width="11" height="12" border="0" alt="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1834 
                                       </td>
121 hknight 1835 
                                    <%Else%>
161 iaugusti 1836 
                                       <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1837 
                                          <img src="images/i_note_off.gif" width="11" height="12" border="0">
1838 
                                       </td>
121 hknight 1839 
                                    <%End If%>
1840 
                                 <%End If%>
1841 
                                 <%If NOT pageIsEditable Then%>
161 iaugusti 1842 
                                    <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1843 
                                       <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
1844 
                                    </td>
121 hknight 1845 
                                 <%Else%>
161 iaugusti 1846 
                                    <td align="center" bgcolor=#f5f5f5 class="form_item">
123 ghuddy 1847 
                                       <a href="_remove_issue.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');">
1848 
                                          <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
1849 
                                       </a>
1850 
                                    </td>
121 hknight 1851 
                                 <%End If%>
1852 
                              </tr>
1853 
                              <%rsCQ.MoveNext
1854 
                           WEnd
1855 
                           rsCQ.Close()%>
1856 
                           <%If pageIsEditable Then%>
1857 
                              <tr>
161 iaugusti 1858 
                                 <td align="center" nowrap bgcolor=#e4e9ec>
123 ghuddy 1859 
                                    <input type="submit" name="Apply" value="Apply" class="form_btn">
1860 
                                 </td>
121 hknight 1861 
                                 <td></td>
1862 
                                 <td></td>
1863 
                                 <td></td>
1864 
                                 <td></td>
1865 
                                 <td></td>
1866 
                                 <td></td>
1867 
                                 <td></td>
1868 
                                 <td></td>
1869 
                              </tr>
1870 
                           <%End If%>
1871 
                        <%Else%>
1872 
                           <tr>
1873 
                              <%If pageIsEditable Then%>
161 iaugusti 1874 
                                 <td bgcolor=#e4e9ec nowrap>&nbsp;</td>
121 hknight 1875 
                              <%End If%>
161 iaugusti 1876 
                              <td bgcolor=#f5f5f5 nowrap></td>
1877 
                              <td bgcolor=#f5f5f5 class="form_item"></td>
1878 
                              <td bgcolor=#f5f5f5 class="form_item"></td>
1879 
                              <td bgcolor=#f5f5f5 class="form_item"></td>
1880 
                              <td bgcolor=#f5f5f5 class="form_item"></td>
1881 
                              <td bgcolor=#f5f5f5 class="form_item"></td>
1882 
                              <td bgcolor=#f5f5f5 class="form_item"></td>
1883 
                              <td align="center" bgcolor=#f5f5f5 class="form_item"></td>
121 hknight 1884 
                           </tr>
1885 
                        <%End If%>
1886 
                        <input name="pv_id" type="hidden" value="<%=parPv_id%>">
1887 
                        <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
1888 
                     </form>
1889 
                  </table>
1890 
               <%End If%>
1891 
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1892 
            <%End If%>
123 ghuddy 1893 
<!-- DEVI-050133 Although it would seem to the human eye that the following row and table closing tags are needed, -->
1894 
<!--             they do in fact cause the page to be rendered incorrectly. Hence they are commented out for now   -->
1895 
<!--             until the true cause of the mis-rendering can be ascertained.                                    -->
1896 
<!--     </tr> -->
1897 
<!--  </table> -->
121 hknight 1898 
   </fieldset>
4230 dpurdie 1899 
   <br>
119 ghuddy 1900 
<!-- DEPENDENCY ISSUES (NOT FOR PATCHES!) ------------------------------------------------------------------------------------------------------->
1901 
 
121 hknight 1902 
   <%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
1903 
      <fieldset class="fset"><legend class="body_colb"><img src="images/s_bugs.gif" width="21" height="18" border="0" hspace="4" align="absmiddle">Dependency Issues</legend>
1904 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
119 ghuddy 1905 
 
121 hknight 1906 
            <%Call Get_Package_Issues ( parPv_id, SQLstr, NULL, NULL, NULL )
1907 
            If (retVal > 0) Then
1908 
               retVal = Get_Dependency_CQ_Issues ( SQLstr, rsCQ, depIssDict, issArr )
1909 
               If retVal = 0 Then%>
1910 
                  <%
1911 
                  currG1 = 0
1912 
                  G1_template = _
1913 
                  "<tr>"&_
1914 
                  "  <td colspan='7'><img src='images/spacer.gif' width='2' height='2'></td>"&_
1915 
                  "</tr>"&_
1916 
                  "<tr>"&_
161 iaugusti 1917 
                  "  <td colspan='7' bgcolor=#e4e9ec class='form_item'>/*DEP_NAME_VERSION*//*REASONS*/</td>"&_
121 hknight 1918 
                  "</tr>"
1919 
                  Set rsDepIss = OraDatabase.DbCreateDynaset( SQL_Dependency_Issues( parPv_id ), cint(0))
1920 
                  %>
1921 
                  <%If ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF)) Then%>
1922 
                     <%While ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF))%>
1923 
                        <%
1924 
                        iss_db_id = Cstr(rsDepIss("iss_db") &"."& rsDepIss("iss_id"))
1925 
                        G1_style = Replace(G1_template, "/*DEP_NAME_VERSION*/", "<SPAN class='envolPkg'><b>"& rsDepIss("pkg_name") &" "& rsDepIss("pkg_version") &"</b></SPAN>")
1926 
                        If IsNull(rsDepIss("iss_id")) Then
1927 
                           If IsNull(rsDepIss("reasons")) Then
1928 
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>Reason for this version is not specified.")
1929 
                           Else
1930 
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
1931 
                           End If
1932 
                        Else
1933 
                           If IsNull(rsDepIss("reasons")) Then
1934 
                              G1_style = Replace(G1_style, "/*REASONS*/", "")
1935 
                           Else
1936 
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
1937 
                           End If
1938 
                        End If
119 ghuddy 1939 
 
121 hknight 1940 
                        Call Group_By ( rsDepIss("pv_id"), G1_style, currG1 )
1941 
                        If NOT IsNull(rsDepIss("iss_id")) Then
1942 
                           If rsDepIss("pv_id") <> currG1 Then
1943 
                              currG1 = rsDepIss("pv_id")%>
1944 
                              <tr>
161 iaugusti 1945 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field" align="center"></td>
1946 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field" align="center">Fixed</td>
1947 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Issue&nbsp;Id&nbsp;</td>
1948 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Issue DB&nbsp;</td>
1949 
                                 <td bgcolor=#e4e9ec nowrap width="100%" class="form_field">Summary</td>
1950 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Issue&nbsp;Type&nbsp;</td>
1951 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Priority</td>
121 hknight 1952 
                              </tr>
1953 
                           <%End If%>
1954 
                           <tr>
161 iaugusti 1955 
                              <td bgcolor=#e4e9ec></td>
1956 
                              <td align="center" nowrap bgcolor=#f5f5f5>
121 hknight 1957 
                                 <%If CInt(rsDepIss("iss_state")) = enumISSUES_STATE_FIXED Then%>
1958 
                                    <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
1959 
                                 <%Else%>
1960 
                                    <img src="images/spacer.gif" width="7" height="7" vspace="2">
1961 
                                 <%End If%>
1962 
                              </td>
4198 dpurdie 1963 
                              <td bgcolor=#f5f5f5 nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=asDepIss( iss_db_id, enumLoc_iss_db )%>&iss_id=<%=asDepIss( iss_db_id, enumLoc_iss_id )%>','IssueDetails','resizable=yes,width=580,height=520')" class="txt_linked"><%=asDepIss( iss_db_id, enumLoc_iss_num )%></a></td>
3975 dpurdie 1964 
                              <td bgcolor=#f5f5f5 class="form_item">
1965 
                                    <%If asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_DEVI_ID Then%>
1966 
                                        DEVI
1967 
                                    <%Else%>
1968 
                                        UNKNOWN
1969 
                                    <%End If%></td>
161 iaugusti 1970 
                              <td bgcolor=#f5f5f5 class="form_item"><%=asDepIss( iss_db_id, enumLoc_summary)%></td>
1971 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=asDepIss( iss_db_id, enumLoc_issue_type)%></td>
1972 
                              <td nowrap bgcolor=#f5f5f5 class="form_item"><%=asDepIss( iss_db_id, enumLoc_priority)%></td>
121 hknight 1973 
                           </tr>
1974 
                        <%End If%>
1975 
                        <%rsDepIss.MoveNext
1976 
                     WEnd
1977 
                     rsDepIss.Close()
1978 
                     Set rsDepIss = nothing%>
1979 
                  <%Else%>
1980 
                     <tr>
161 iaugusti 1981 
                        <td bgcolor=#e4e9ec nowrap>&nbsp;</td>
1982 
                        <td bgcolor=#f5f5f5></td>
1983 
                        <td bgcolor=#f5f5f5></td>
1984 
                        <td bgcolor=#f5f5f5 class="form_item"></td>
1985 
                        <td bgcolor=#f5f5f5 class="form_item"></td>
1986 
                        <td bgcolor=#f5f5f5 class="form_item"></td>
1987 
                        <td bgcolor=#f5f5f5 class="form_item"></td>
121 hknight 1988 
                     </tr>
1989 
                  <%End If%>
1990 
               <%End If%>
1991 
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1992 
            <%End If%>
1993 
         </table>
1994 
      </fieldset>
4230 dpurdie 1995 
      <br>
121 hknight 1996 
   <%End If%>
119 ghuddy 1997 
<!-- UNIT TESTS --------------------------------------------------------------------------------------------------------------------->
121 hknight 1998 
   <%
1999 
   Dim testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound
2000 
   Call CheckUnitTestsState ( parPv_id, testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound  )
2001 
   Set rsQry = OraDatabase.DbCreateDynaset( SQL_Unit_Tests ( parPv_id ), cint(0))
2002 
   %>
2003 
   <fieldset class="fset"><legend class="body_colb"><img src="images/i_unit_test.gif" width="18" height="25" hspace="4" border="0" align="absmiddle" alt="">Unit Tests
2004 
      <%If testCheckMSG_ID = 0 Then%>
2005 
         &nbsp;&nbsp;<%=testCheckMSG%>
2006 
      <%End If%></legend>
2007 
      <a name="UNIT_TESTS"></a>
2008 
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
2009 
         <tr>
2010 
            <td align="right" valign="bottom">
157 ghuddy 2011 
               <%If ( scriptName = "fixed_issues.asp" ) Then%>
2012 
                  <%If objAccessControl.UserLogedIn AND (pageIsEditable OR (pkgInfoHash.Item("dlocked") = "Y")) Then%>
2013 
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_unit_test.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','UnitTest','resizable=yes,width=700,height=550')" class="txt_linked">New Test<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Add new test."></a>
2014 
                  <%End If%>
121 hknight 2015 
                  <%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = 0)  Then%>
2016 
                     <a href='_not_done_unit_test.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&notdone=Y' class='txt_linked'>Click here if Not Done!<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Add new test."></a>
2017 
                  <%End If%>
2018 
               <%End If%>
2019 
            </td>
2020 
         </tr>
2021 
      </table>
2022 
      <%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = -1) Then%>
2023 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
2024 
            <tr>
161 iaugusti 2025 
               <td bgcolor=#f5f5f5 class="form_item">
121 hknight 2026 
                  <%Call DisplayInfo ( "UNIT_TEST_NOT_DONE", 300 )%>
2027 
                  <span class="rep_small">Last Modified: <%=testCheckMSG%></span><br>
2028 
                  <%=NewLine_To_BR( To_HTML ( testCheckNote ) )%>
2029 
               </td>
2030 
            </tr>
2031 
         </table>
2032 
      <%End If%>
119 ghuddy 2033 
 
121 hknight 2034 
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
2035 
         <form name="review" method="get" action="_update_unit_test_accepted_state.asp">
2036 
            <tr>
161 iaugusti 2037 
               <td width="1%" nowrap bgcolor=#e4e9ec class="form_field" valign="middle">&nbsp;Test Type&nbsp;</td>
2038 
               <td width="100%" nowrap bgcolor=#e4e9ec class="form_field" valign="middle">&nbsp;Test Summary&nbsp;</td>
2039 
               <td width="1%" nowrap bgcolor=#e4e9ec class="form_field" align="center" valign="middle">Test<br>Completed</td>
2040 
               <td width="1%" nowrap bgcolor=#e4e9ec class="form_field" align="center" valign="middle">&nbsp;Passed<br># / Total&nbsp;</td>
2041 
               <td width="1%" nowrap bgcolor=#e4e9ec class="form_field" align="center" valign="middle">&nbsp;Results&nbsp;</td>
2042 
               <td width="1%" nowrap bgcolor=#e4e9ec class="form_field" align="center" valign="middle">&nbsp;Accepted&nbsp;</td>
2043 
               <td width="1%" nowrap bgcolor=#e4e9ec class="form_field" align="center" valign="middle">Review<br>Completed</td>
2044 
               <td width="1%" nowrap bgcolor=#e4e9ec class="form_field" valign="middle">Comments /<br>Issue#</td>
2045 
               <td width="1%" bgcolor=#e4e9ec></td>
121 hknight 2046 
            </tr>
2047 
            <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) )%>
2048 
               <tr>
2049 
                  <%If NOT pageIsEditable Then%>
2050 
                     <%If NOT IsNull(rsQry("test_id")) AND ( scriptName = "fixed_issues.asp") Then%>
161 iaugusti 2051 
                        <td nowrap bgcolor=#f5f5f5 class="form_item" valign="top"><a href="javascript:;" onClick="MM_openBrWindow('_wform_update_unit_test.asp?test_id=<%=rsQry("test_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','UpdateUT','resizable=yes,width=700,height=550')" class="txt_linked"><img src="images/i_test.gif" width="16" height="16" hspace="3" align="absmiddle" border="0"><%=rsQry("test_type_name")%></a></td>
121 hknight 2052 
                     <%Else%>
161 iaugusti 2053 
                        <td nowrap bgcolor=#f5f5f5 class="form_item" valign="top"><img src="images/i_test.gif" width="16" height="16" hspace="3" align="absmiddle"><%=rsQry("test_type_name")%></td>
121 hknight 2054 
                     <%End If%>
2055 
                  <%Else%>
161 iaugusti 2056 
                     <td nowrap bgcolor=#f5f5f5 class="form_item" valign="top"><a href="javascript:;" onClick="MM_openBrWindow('<%If Not IsNull(rsQry("test_id")) Then%>_wform_update_unit_test.asp<%Else%>_wform_unit_test.asp<%End If%>?test_id=<%=rsQry("test_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&test_type_id=<%=rsQry("test_type_id")%>','UpdateUT','resizable=yes,width=700,height=550')" class="txt_linked"><img src="images/i_test.gif" width="16" height="16" hspace="3" align="absmiddle" border="0"><%=rsQry("test_type_name")%></a></td>
121 hknight 2057 
                  <%End If%>
161 iaugusti 2058 
                  <td bgcolor=#f5f5f5 class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("test_summary") ))%></td>
2059 
                  <td nowrap bgcolor=#f5f5f5 class="form_item" valign="top"><%If ( NOT IsNull(rsQry("tester")) ) Then%><%=EuroDate ( rsQry("completion_date") )%><br>by <a href="mailto:<%=rsQry("tester_email")%>" class="txt_linked"><%=rsQry("tester")%></a><%End If%></td>
2060 
                  <td nowrap bgcolor=#f5f5f5 class="form_item" valign="top" align="center"><%=rsQry("numof_test")%></td>
119 ghuddy 2061 
 
121 hknight 2062 
                  <%If CInt(rsQry("test_type_id")) = enumTEST_TYPE_AUTOMATIC Then%>
161 iaugusti 2063 
                     <td bgcolor=#f5f5f5 class="form_item" align="center" valign="top">
121 hknight 2064 
                        <%If NOT IsNull( rsQry("results_url") ) Then%>
2065 
                           <%If InStr( rsQry("results_url"), "http://" ) = 1 Then%>
2066 
                              <a href="<%=rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
2067 
                           <%Else%>
3959 dpurdie 2068 
                              <a href="<%=dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") & rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
121 hknight 2069 
                           <%End If%>
2070 
                        <%End If%>
2071 
                     </td>
2072 
                  <%Else%>
161 iaugusti 2073 
                     <td bgcolor=#f5f5f5 class="form_item"  align="center" valign="top">
121 hknight 2074 
                        <%If NOT IsNull( rsQry("results_attachment_name") ) Then%>
2075 
                           <%If pkgInfoHash.Item ("dlocked") = "Y" Then%>
3959 dpurdie 2076 
                              <a href="<%=dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& rsQry("results_attachment_name")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
121 hknight 2077 
                           <%Else%>
2078 
                              <a href="<%=TEMP_FOLDER &"/"& pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& rsQry("results_attachment_name")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
2079 
                           <%End If%>
2080 
                        <%End If%>
2081 
                     </td>
2082 
                  <%End If%>
119 ghuddy 2083 
 
161 iaugusti 2084 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top" align="center"><%=FormatAccepted( rsQry("test_accepted"), rsQry("test_id") )%></td>
2085 
                  <td nowrap bgcolor=#f5f5f5 class="form_item" valign="top"><%If NOT IsNull(rsQry("reviewee")) Then%><%=EuroDate ( rsQry("acceptance_date") )%><br>by <a href="mailto:<%=rsQry("reviewee_email")%>" class="txt_linked"><%=rsQry("reviewee")%></a><%End If%></td>
2086 
                  <td bgcolor=#f5f5f5 class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("review_comments") ))%></td>
119 ghuddy 2087 
 
157 ghuddy 2088 
                  <%
2089 
                  If (  (    pageIsEditable _
2090 
                         AND (scriptName = "fixed_issues.asp") _
2091 
                         AND (IsNull(rsQry("test_accepted")) OR (rsQry("test_accepted") = enumUNIT_TEST_NOTACCEPTED))) _
2092 
                      OR _
2093 
                        (    objAccessControl.UserLogedIn _
2094 
                         AND (scriptName = "fixed_issues.asp") _
2095 
                         AND (pkgInfoHash.Item("dlocked") = "Y") _
2096 
                         AND (IsNull(rsQry("test_accepted")) OR (rsQry("test_accepted") = enumUNIT_TEST_NOTACCEPTED)) _
2097 
                         AND (rsQry("test_type_id") <> CStr(enumTEST_TYPE_AUTOBUILD_UTF))) ) Then
2098 
                  %>
161 iaugusti 2099 
                     <td bgcolor=#f5f5f5 valign="top"><%If NOT IsNull(rsQry("test_id")) Then%><a href="_remove_unit_test.asp?test_id=<%=rsQry("test_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this unit test');"><img src="images/i_delete.gif" alt="Remove this test." width="13" height="12" hspace="3" border="0"></a><%End If%></td>
157 ghuddy 2100 
                  <%Else%>
161 iaugusti 2101 
                     <td bgcolor=#f5f5f5 valign="top"></td>
121 hknight 2102 
                  <%End If%>
2103 
               </tr>
157 ghuddy 2104 
               <%
2105 
               rsQry.MoveNext
2106 
            WEnd
2107 
            %>
121 hknight 2108 
            <tr>
2109 
               <td class="form_field"></td>
2110 
               <td class="form_field"></td>
2111 
               <td class="form_field"></td>
2112 
               <td class="form_field"></td>
2113 
               <td class="form_field"></td>
157 ghuddy 2114 
               <td class="form_field" align="center">
2115 
                  <%If (testCheckTestsFound) AND (testCheckMSG_ID = 0) AND ( scriptName = "fixed_issues.asp" ) AND pageIsEditable Then%>
2116 
                     <input type="submit" name="Apply" value="Apply" class="form_btn">
2117 
                  <%End If%>
2118 
               </td>
121 hknight 2119 
               <td class="form_field"></td>
2120 
               <td class="form_field"></td>
2121 
               <td class="form_field"></td>
2122 
            </tr>
2123 
            <input name="pv_id" type="hidden" value="<%=parPv_id%>">
2124 
            <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
2125 
         </form>
2126 
      </table>
2127 
   </fieldset>
4230 dpurdie 2128 
    <br>
119 ghuddy 2129 
<!-- CODE REVIEW ------------------------------------------------------------------------------------------------------------------->
121 hknight 2130 
   <fieldset class="fset"><legend class="body_colb"><img src='images/s_code_review.gif' width='21' height='23' hspace='4' border='0' align='absmiddle'>Code Review</legend>
2131 
      <a name="CODE_REVIEW" id="CODE_REVIEW"></a>
2132 
      <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_CodeReview ( parPv_id ), cint(0))%>
2133 
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
2134 
         <tr>
157 ghuddy 2135 
            <td align="right" valign="bottom">
2136 
               <%If ( scriptName = "fixed_issues.asp" ) Then%>
2137 
                  <%If objAccessControl.UserLogedIn AND (pageIsEditable OR (pkgInfoHash.Item("dlocked") = "Y")) Then%>
161 iaugusti 2138 
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_update_code_review.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','CodeReviewEdit','scrollbars=yes,status=yes,resizable=yes,width=950,height='+ ( screen.height - 100 ) +',top=0,left=0')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
119 ghuddy 2139 
                  <%End If%>
157 ghuddy 2140 
                  <%If rsQry.RecordCount > 0 Then%>
2141 
                     <%If NOT IsNull(rsQry("date_of_review")) Then%>
2142 
                        &nbsp;
161 iaugusti 2143 
                        <a href='javascript:;' onClick="MM_openBrWindow('_wform_code_review.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','CodeReviewView','scrollbars=yes,status=yes,resizable=yes,width=950,height='+ ( screen.height - 100 ) +',top=0,left=0')" class="txt_linked">View<img src="images/i_open.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
157 ghuddy 2144 
                     <%End If%>
2145 
                  <%End If%>
121 hknight 2146 
               <%End If%>
2147 
            </td>
2148 
         </tr>
2149 
      </table>
2150 
      <%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then%>
2151 
         <%If NOT IsNull(rsQry("date_of_review")) Then%>
119 ghuddy 2152 
            <table width="100%"  border="0" cellspacing="1" cellpadding="4">
121 hknight 2153 
               <tr>
161 iaugusti 2154 
                  <td width="1%" align="right" nowrap bgcolor=#e4e9ec class="form_field">Date of Review</td>
2155 
                  <td width="1%" nowrap bgcolor=#f5f5f5 class="form_item"><%=EuroDate ( rsQry("date_of_review") )%>&nbsp;&nbsp;&nbsp;</td>
2156 
                  <td width="1%" align="right" nowrap bgcolor=#e4e9ec class="form_field">&nbsp;&nbsp;&nbsp;Time Spent:</td>
2157 
                  <td width="100%" bgcolor=#f5f5f5 class="form_item"><%=rsQry("time_spent")%> hrs </td>
121 hknight 2158 
               </tr>
2159 
               <tr>
161 iaugusti 2160 
                  <td align="right" valign="top" nowrap bgcolor=#e4e9ec class="form_field">Reason for Review</td>
2161 
                  <td colspan="3" bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("review_reason") ))%></td>
121 hknight 2162 
               </tr>
2163 
               <tr>
161 iaugusti 2164 
                  <td align="right" nowrap bgcolor=#e4e9ec class="form_field">Review Results </td>
2165 
                  <td colspan="3" bgcolor=#f5f5f5 class="form_item">
121 hknight 2166 
                  <%=DecodeOverallResult( rsQry("review_results") )%>
2167 
                  </td>
2168 
               </tr>
2169 
               <tr>
161 iaugusti 2170 
                  <td align="right" nowrap bgcolor=#e4e9ec class="form_field">Issues Raised </td>
2171 
                  <td colspan="3" bgcolor=#f5f5f5 class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("issues_raised") ))%></td>
121 hknight 2172 
               </tr>
119 ghuddy 2173 
            </table>
121 hknight 2174 
         <%Else%>
119 ghuddy 2175 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
121 hknight 2176 
               <tr>
161 iaugusti 2177 
                  <td bgcolor=#f5f5f5><span class='sublbox_txt'>No details found.</span></td>
121 hknight 2178 
               </tr>
119 ghuddy 2179 
            </table>
121 hknight 2180 
         <%End If%>
2181 
      <%Else%>
2182 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
2183 
            <tr>
161 iaugusti 2184 
               <td bgcolor=#f5f5f5><span class='sublbox_txt'>No details found.</span></td>
121 hknight 2185 
            </tr>
2186 
         </table>
2187 
      <%End If%>
119 ghuddy 2188 
 
121 hknight 2189 
      <!-- Code Review URL section for this version -->
2190 
      <%Call GetCodeReviewURLs( parPv_id, rsCodeReviewURL )%>
2191 
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
2192 
         <tr>
2193 
            <td align="left" valign="top" class="body_colb">Code Review URL for this version</td>
2194 
            <td align="right" valign="top" <%If NOT IsNull(rsCodeReviewURL("url")) Then Response.Write("colspan='5'")%>>
157 ghuddy 2195 
               <%If (scriptName = "fixed_issues.asp") AND objAccessControl.UserLogedIn AND (pageIsEditable OR (pkgInfoHash.Item("dlocked") = "Y")) Then%>
161 iaugusti 2196 
                  <a href="javascript:;" onclick="MM_openBrWindow('_wform_edit_code_review_url.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','CodeReviewURLEdit','scrollbars=yes,status=yes,resizable=yes,width=930,height=185,top=0,left=0')" class="txt_linked">New<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle"></a>
121 hknight 2197 
               <%End If%>
2198 
            </td>
2199 
         </tr>
2200 
         <%If IsNull(rsCodeReviewURL("full_url")) Then %>
2201 
            <tr>
161 iaugusti 2202 
               <td bgcolor=#f5f5f5 width="100%" class="form_item" colspan="2">
121 hknight 2203 
                  <span class='sublbox_txt'>No details found.</span>
2204 
               </td>
2205 
            </tr>
2206 
         <%Else%>
2207 
            <tr>
161 iaugusti 2208 
               <td bgcolor=#e4e9ec class="form_field">URL</td>
2209 
               <td bgcolor=#e4e9ec width="25%" class="form_field">Reason for Review</td>
2210 
               <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Date of Review</td>
2211 
               <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Last Modified</td>
2212 
               <td bgcolor=#e4e9ec nowrap width="18px" class="form_field"></td>
2213 
               <td bgcolor=#e4e9ec nowrap width="18px" class="form_field"></td>
121 hknight 2214 
            </tr>
2215 
            <%If ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF)) Then
2216 
               While ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF))%>
2217 
                  <tr>
2218 
                     <%If (Left(rsCodeReviewURL("url"),4) = "http") Then%>
161 iaugusti 2219 
                        <td bgcolor=#f5f5f5 class="form_item" valign="top"><a href="<%=rsCodeReviewURL("url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("url")%></a></td>
121 hknight 2220 
                     <%Else%>
161 iaugusti 2221 
                        <td bgcolor=#f5f5f5 class="form_item" valign="top"><a href="<%=rsCodeReviewURL("full_url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("full_url")%></a></td>
121 hknight 2222 
                     <%End If%>
161 iaugusti 2223 
                     <td bgcolor=#f5f5f5 class="form_item" valign="top"><%=rsCodeReviewURL("reason")%></td>
2224 
                     <td bgcolor=#f5f5f5 class="form_item" valign="top"><%=rsCodeReviewURL("date_of_review")%></td>
2225 
                     <td bgcolor=#f5f5f5 class="form_item" valign="top"><%=rsCodeReviewURL("last_modified")%></td>
157 ghuddy 2226 
                     <%If (scriptName = "fixed_issues.asp") AND objAccessControl.UserLogedIn AND (pageIsEditable OR (pkgInfoHash.Item("dlocked") = "Y")) Then%>
161 iaugusti 2227 
                        <td bgcolor=#f5f5f5 class="form_item" valign="top"><a href="javascript:;" onclick="MM_openBrWindow('_wform_edit_code_review_url.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&cr_id=<%=rsCodeReviewURL("cr_id")%>','CodeReviewURLEdit','scrollbars=no,status=yes,resizable=yes,width=930,height=185')" class="txt_linked"><img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle" alt="Edit this code review URL"></a></td>
2228 
                        <td bgcolor=#f5f5f5 class="form_item" valign="top"><a href="_remove_code_review_url.asp?cr_id=<%=rsCodeReviewURL("cr_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onclick="return confirmDelete('this code review URL from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this code review URL"></a></td>
121 hknight 2229 
                     <%Else%>
161 iaugusti 2230 
                        <td bgcolor=#f5f5f5 class="form_item" valign="top"></td>
2231 
                        <td bgcolor=#f5f5f5 class="form_item" valign="top"></td>
121 hknight 2232 
                     <%End If%>
2233 
                  </tr>
2234 
                  <%rsCodeReviewURL.MoveNext
2235 
               WEnd
2236 
            Else%>
2237 
               <tr>
161 iaugusti 2238 
                  <td bgcolor=#f5f5f5 class="form_item"></td>
2239 
                  <td bgcolor=#f5f5f5 class="form_item"></td>
2240 
                  <td bgcolor=#f5f5f5 class="form_item"></td>
2241 
                  <td bgcolor=#f5f5f5 class="form_item"></td>
2242 
                  <td bgcolor=#f5f5f5 class="form_item"></td>
2243 
                  <td bgcolor=#f5f5f5 class="form_item"></td>
121 hknight 2244 
               </tr>
2245 
            <%End If
2246 
         End If%>
2247 
      </table>
119 ghuddy 2248 
 
121 hknight 2249 
      <!-- Code Review URL section for last non-ripple build -->
2250 
      <%If pkgInfoHash.Item ("comments") = "Rippled Build." Then
2251 
         Call LastPvId(pkgInfoHash.Item ("pv_id"))
2252 
         While rsQry("comments") = "Rippled Build."
119 ghuddy 2253 
            Call LastPvId(rsQry("last_pv_id"))
121 hknight 2254 
         Wend
2255 
         Dim sOldPkgVersion
157 ghuddy 2256 
         Dim oldDlocked
2257 
         Call Get_Pkg_Short_Info ( rsQry("pv_id"), NULL, NULL, sOldPkgVersion, NULL, NULL, oldDlocked )
121 hknight 2258 
         Call GetCodeReviewURLs( rsQry("pv_id"), rsCodeReviewURL )
2259 
         %>
2260 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
2261 
            <tr>
2262 
               <td align="left" valign="top" class="body_colb" <%If NOT IsNull(rsCodeReviewURL("url")) Then Response.Write("colspan='6'")%>>Code Review URL for last non-ripple build (<a class="lbl_link" href="fixed_issues.asp?pv_id=<%=rsQry("pv_id")%>"><%=sOldPkgVersion%></a>)</td>
2263 
            </tr>
2264 
            <%If IsNull(rsCodeReviewURL("url")) Then%>
2265 
               <tr>
161 iaugusti 2266 
                  <td bgcolor=#f5f5f5 width="100%" class="form_item" colspan="2">
121 hknight 2267 
                     <span class='sublbox_txt'>No details found.</span>
119 ghuddy 2268 
                  </td>
121 hknight 2269 
               </tr>
2270 
            <%Else%>
2271 
               <tr>
161 iaugusti 2272 
                  <td bgcolor=#e4e9ec class="form_field">URL</td>
2273 
                  <td bgcolor=#e4e9ec width="30%" class="form_field">Reason for Review</td>
2274 
                  <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Date of Review</td>
2275 
                  <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Last Modified</td>
2276 
                  <td bgcolor=#e4e9ec nowrap width="18px" class="form_field"></td>
2277 
                  <td bgcolor=#e4e9ec nowrap width="18px" class="form_field"></td>
121 hknight 2278 
               </tr>
2279 
               <%If ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF)) Then
119 ghuddy 2280 
                  While ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF))%>
121 hknight 2281 
                     <tr>
2282 
                        <%If (Left(rsCodeReviewURL("url"),4) = "http") Then%>
161 iaugusti 2283 
                           <td bgcolor=#f5f5f5 class="form_item" valign="top"><a href="<%=rsCodeReviewURL("url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("url")%></a></td>
121 hknight 2284 
                        <%Else%>
161 iaugusti 2285 
                           <td bgcolor=#f5f5f5 class="form_item" valign="top"><a href="<%=rsCodeReviewURL("full_url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("full_url")%></a></td>
121 hknight 2286 
                        <%End If%>
161 iaugusti 2287 
                        <td bgcolor=#f5f5f5 class="form_item" valign="top"><%=rsCodeReviewURL("reason")%></td>
2288 
                        <td bgcolor=#f5f5f5 class="form_item" valign="top"><%=rsCodeReviewURL("date_of_review")%></td>
2289 
                        <td bgcolor=#f5f5f5 class="form_item" valign="top"><%=rsCodeReviewURL("last_modified")%></td>
157 ghuddy 2290 
                        <%If (scriptName = "fixed_issues.asp") AND objAccessControl.UserLogedIn AND (pageIsEditable OR (oldDlocked = "Y")) Then%>
161 iaugusti 2291 
                           <td bgcolor=#f5f5f5 class="form_item" valign="top"><a href="javascript:;" onclick="MM_openBrWindow('_wform_edit_code_review_url.asp?pv_id=<%=rsCodeReviewURL("pv_id")%>&rtag_id=<%=parRtag_id%>&cr_id=<%=rsCodeReviewURL("cr_id")%>','CodeReviewURLEdit','scrollbars=no,resizable=yes,width=930,height=185')" class="txt_linked"><img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle" alt="Edit this code review URL"></a></td>
2292 
                           <td bgcolor=#f5f5f5 class="form_item" valign="top"><a href="_remove_code_review_url.asp?cr_id=<%=rsCodeReviewURL("cr_id")%>&pv_id=<%=rsCodeReviewURL("pv_id")%>&rtag_id=<%=parRtag_id%>" onclick="return confirmDelete('this code review URL from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this code review URL"></a></td>
121 hknight 2293 
                        <%Else%>
161 iaugusti 2294 
                           <td bgcolor=#f5f5f5 class="form_item" valign="top"></td>
2295 
                           <td bgcolor=#f5f5f5 class="form_item" valign="top"></td>
121 hknight 2296 
                        <%End If%>
2297 
                     </tr>
2298 
                     <%rsCodeReviewURL.MoveNext
119 ghuddy 2299 
                  WEnd
121 hknight 2300 
               Else%>
119 ghuddy 2301 
                  <tr>
161 iaugusti 2302 
                     <td bgcolor=#f5f5f5 class="form_item"></td>
2303 
                     <td bgcolor=#f5f5f5 class="form_item"></td>
2304 
                     <td bgcolor=#f5f5f5 class="form_item"></td>
2305 
                     <td bgcolor=#f5f5f5 class="form_item"></td>
2306 
                     <td bgcolor=#f5f5f5 class="form_item"></td>
2307 
                     <td bgcolor=#f5f5f5 class="form_item"></td>
119 ghuddy 2308 
                  </tr>
121 hknight 2309 
               <%End If
2310 
            End If%>
2311 
         </table>
2312 
      <%End If%>
119 ghuddy 2313 
 
121 hknight 2314 
   </fieldset>
2315 
   <br>
119 ghuddy 2316 
<!-- ADDITIONAL NOTES ------------------------------------------------------------------------------------------------------------------->
121 hknight 2317 
   <fieldset class="fset"><legend class="body_colb"><img src="images/i_additional_notes.gif" width="26" height="20" hspace="4" border="0" align="absmiddle" alt="">Additional Notes</legend>
2318 
      <a name="ADDITIONAL_NOTES"></a>
2319 
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
2320 
         <tr>
2321 
            <td align="right" valign="bottom">
2322 
               <%If pageIsEditable Then%>
2323 
                  <a href='javascript:;' onClick="MM_openBrWindow('_wform_additional_note.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','AdditionalNotes','resizable=yes,width=600,height=400')" class="txt_linked">New Note<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Add new note."></a>
2324 
               <%End If%>
2325 
            </td>
2326 
         </tr>
2327 
      </table>
2328 
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
2329 
         <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Additional_Notes ( parPv_id ), cint(0))%>
2330 
         <%If rsQry.RecordCount < 1 Then%>
2331 
            <tr>
161 iaugusti 2332 
               <td class="form_field" width="100%" bgcolor=#f5f5f5>&nbsp;</td>
121 hknight 2333 
            </tr>
2334 
         <%End If%>
2335 
         <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
2336 
            <tr>
161 iaugusti 2337 
               <td width="100%" nowrap bgcolor=#e4e9ec class="body_col">
121 hknight 2338 
                  <%If pageIsEditable Then%>
2339 
                     <a href="javascript:;" onClick="MM_openBrWindow('_wform_update_additional_note.asp?note_id=<%=rsQry("note_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','UpdateAN','resizable=yes,width=600,height=400')" class="body_col"><img src="images/i_edit.gif" alt="Edit" width="12" height="12" hspace="3" vspace="3" border="0" align="absmiddle"><%=To_HTML (rsQry("note_title"))%></a>
2340 
                  <%Else%>
2341 
                     <%=To_HTML (rsQry("note_title"))%>
2342 
                  <%End If%>
2343 
               </td>
161 iaugusti 2344 
               <td width="1" bgcolor=#e4e9ec>
121 hknight 2345 
                  <%If pageIsEditable Then%>
2346 
                     <a href="_remove_additional_note.asp?note_id=<%=rsQry("note_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this note');"><img src="images/i_delete.gif" alt="Remove this note." width="13" height="12" hspace="3" border="0"></a>
2347 
                  <%End If%>
2348 
               </td>
2349 
            </tr>
2350 
            <tr>
161 iaugusti 2351 
               <td colspan="2" bgcolor=#f5f5f5 class="sublbox_txt">
4230 dpurdie 2352 
                  <%=NewLine_To_BR( To_HTML ( rsQry("note_body") ) )%><br>
121 hknight 2353 
                  <span class="rep_small">Last Modified: <%=rsQry("lastmod")%></span>
2354 
               </td>
2355 
            </tr>
2356 
            <tr>
2357 
               <td colspan="2"><img src='images/spacer.gif' width='2' height='2'></td>
2358 
            </tr>
2359 
            <%rsQry.MoveNext
2360 
         WEnd%>
2361 
      </table>
2362 
   </fieldset>
4230 dpurdie 2363 
   <br>