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
%>
8
<%
9
'------------ Variable Definition -------------
10
Dim rsCQ
11
Dim rsDepIss
12
Dim SQLstr
13
Dim fixedIssDict
14
Dim notesIssDict
15
Dim issArr()
16
Dim depIssDict
17
Dim sDocTitle
18
Dim rsQry, rsTemp
19
Dim iss_db_id, G1_template, G1_style, currG1
20
Dim retVal
21
Dim baseURL
22
Dim rsProjId
23
Dim rsPkgMetrics
24
Dim rsCodeReviewURL
25
'------------ Constants Declaration -----------
26
Const enumLoc_iss_db = 0
27
Const enumLoc_iss_id = 1
28
Const enumLoc_iss_num = 2
29
Const enumLoc_summary = 3
30
Const enumLoc_status = 4
31
Const enumLoc_priority = 5
32
Const enumLoc_issue_type = 6
33
'------------ Variable Init -------------------
34
Set rsCQ = Server.CreateObject("ADODB.Recordset")
35
Set fixedIssDict = CreateObject("Scripting.Dictionary")
36
Set notesIssDict = CreateObject("Scripting.Dictionary")
37
Set depIssDict = CreateObject("Scripting.Dictionary")
38
'----------------------------------------------
39
%>
40
<%
41
'----------------------------------------------------------------------------------------------------------------------------------------
42
Function asDepIss ( SSiss_db_id, SScolumn )
121 hknight 43
   If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
119 ghuddy 44
 
121 hknight 45
   asDepIss = issArr ( SScolumn, CInt( depIssDict.Item (SSiss_db_id) ) )
119 ghuddy 46
End Function
47
'----------------------------------------------------------------------------------------------------------------------------------------
48
Function FixedIssues ( parPv_id )
121 hknight 49
   Dim sqlstr, rsTemp
50
   sqlstr = "SELECT pv_id FROM cq_issues WHERE pv_id = "& parPv_id &" AND iss_state = "& enumISSUES_STATE_FIXED
51
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
119 ghuddy 52
 
121 hknight 53
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
54
      FixedIssues = TRUE
55
   Else
56
      FixedIssues = FALSE
57
   End If
119 ghuddy 58
 
121 hknight 59
   rsTemp.Close()
60
   Set rsTemp = nothing
119 ghuddy 61
End Function
62
'----------------------------------------------------------------------------------------------------------------------------------------
63
Function SQL_Package_Information ( nPv_id )
121 hknight 64
   SQL_Package_Information = _
65
   " SELECT *"&_
66
   "   FROM PACKAGE_VERSIONS pv"&_
67
   "  WHERE pv.pv_id = "& nPv_id
119 ghuddy 68
End Function
69
'----------------------------------------------------------------------------------------------------------------------------------------
70
Function SQL_Dependency_Issues ( NNpv_id )
121 hknight 71
   SQL_Dependency_Issues = _
72
   " SELECT pkg.pkg_name, pv.pkg_version, pv.pv_id, cqi.iss_db, cqi.iss_id, cqi.iss_state, pv.comments AS reasons"&_
73
   "     FROM cq_issues cqi,"&_
74
   "          package_dependencies dep,"&_
75
   "          packages pkg,"&_
76
   "          package_versions pv"&_
77
   "    WHERE dep.pv_id = "& NNpv_id &_
78
   "      AND dep.dpv_id = cqi.pv_id(+)"&_
79
   "      AND dep.dpv_id = pv.pv_id(+)"&_
80
   "      AND pv.pkg_id = pkg.pkg_id"&_
81
   "   ORDER BY UPPER(pkg.pkg_name) ASC, cqi.iss_state DESC"
119 ghuddy 82
End Function
83
'----------------------------------------------------------------------------------------------------------------------------------------
84
Function SQL_Additional_Notes ( nPv_id )
121 hknight 85
   SQL_Additional_Notes = ReadFile( rootPath & "queries\additional_notes.sql" )
86
   SQL_Additional_Notes = Replace( SQL_Additional_Notes, ":PV_ID", nPv_id )
119 ghuddy 87
End Function
88
'----------------------------------------------------------------------------------------------------------------------------------------
89
Function SQL_Unit_Tests ( nPv_id )
121 hknight 90
   SQL_Unit_Tests = ReadFile( rootPath & "queries\unit_tests.sql" )
91
   SQL_Unit_Tests = Replace( SQL_Unit_Tests, ":PV_ID", nPv_id )
119 ghuddy 92
End Function
93
'----------------------------------------------------------------------------------------------------------------------------------------
121 hknight 94
' Function returns the number of imported clearquest issues
95
' and builds a string suitable for querying the clearquest issues database
96
Function Get_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
97
   Dim rsTemp, sqlstr, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss, retVal
119 ghuddy 98
 
121 hknight 99
   If IsObject(DDfixedIss) Then
100
      ' Find this package issues
101
      sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& NNpv_id &"  AND iss_state = "& nIssState
102
   Else
103
      ' Find dependency issues
104
      sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE  pv_id IN ( "&_
105
               " SELECT dpv_id FROM package_dependencies WHERE pv_id = "& NNpv_id &_
106
               " )"
107
   End If
119 ghuddy 108
 
121 hknight 109
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
110
   retVal = rsTemp.RecordCount
119 ghuddy 111
 
121 hknight 112
   DEVIiss  = "-1"
113
   TDSEiss  = "-1"
114
   VT5DMiss = "-1"
115
   VTSUPiss = "-1"
119 ghuddy 116
 
121 hknight 117
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
118
      If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
119
         DEVIiss = DEVIiss &","& rsTemp("iss_id")
119 ghuddy 120
 
121 hknight 121
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
122
         TDSEiss = TDSEiss &","& rsTemp("iss_id")
123
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
124
         VT5DMiss = VT5DMiss &","& rsTemp("iss_id")
125
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
126
         VTSUPiss = VTSUPiss &","& rsTemp("iss_id")
119 ghuddy 127
 
121 hknight 128
      End If
119 ghuddy 129
 
121 hknight 130
      If IsObject(DDfixedIss) Then
131
         ' Store only Fixed Issues
132
         If CInt(rsTemp("iss_state")) = CInt(enumISSUES_STATE_FIXED) Then DDfixedIss.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), ""
133
      End If
119 ghuddy 134
 
121 hknight 135
      If IsObject(DDnotesIssDict) Then
136
         ' Store Notes
137
         If Not IsNull(rsTemp("notes")) AND (rsTemp("notes") <> "")Then DDnotesIssDict.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), Cstr(rsTemp("notes"))
138
      End If
119 ghuddy 139
 
121 hknight 140
      rsTemp.MoveNext
141
   WEnd
119 ghuddy 142
 
121 hknight 143
   ' Construct SQL statement for CQ database
144
   SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
145
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
146
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
147
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
148
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
149
   SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
150
   SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
151
   SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
152
   SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
119 ghuddy 153
 
121 hknight 154
   rsTemp.Close()
155
   Set rsTemp = nothing
119 ghuddy 156
 
121 hknight 157
   Get_Package_Issues = retVal
119 ghuddy 158
 
121 hknight 159
End Function
119 ghuddy 160
'----------------------------------------------------------------------------------------------------------------------------------------
121 hknight 161
' Function returns the number of imported jira issues
162
' and builds a string suitable for querying the jira issues database
163
Function Get_JIRA_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
164
   Dim rsTemp, sqlstr, JIRAIss, retVal
119 ghuddy 165
 
121 hknight 166
   JIRAIss = "'-1'"
167
   sqlstr = "SELECT iss_key FROM JIRA_ISSUES WHERE pv_id="& NNpv_id
119 ghuddy 168
 
121 hknight 169
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
170
   retVal = rsTemp.RecordCount
119 ghuddy 171
 
121 hknight 172
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
173
      JIRAIss = JIRAIss &",'"& rsTemp("iss_key")&"'"
174
      rsTemp.MoveNext
175
   WEnd
119 ghuddy 176
 
121 hknight 177
   SSsql = "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state,  IT.pname as IssueType, PR.pname as Priority, I.RESOLUTION "&_
178
           " FROM jiraissue I, issuestatus ISS, issuetype IT, priority PR "&_
179
           " WHERE I.pkey IN ("& JIRAIss &") "&_
180
           " AND I.issuestatus = ISS.ID "&_
181
           " AND IT.ID = I.issuetype "&_
182
           " AND PR.ID = I.PRIORITY "
119 ghuddy 183
 
121 hknight 184
   rsTemp.Close()
185
   Set rsTemp = nothing
119 ghuddy 186
 
121 hknight 187
   Get_JIRA_Package_Issues = retVal
119 ghuddy 188
 
121 hknight 189
End Function
119 ghuddy 190
'----------------------------------------------------------------------------------------------------------------------------------------
191
Sub LastPvId (PvId)
121 hknight 192
   Dim sqlstr
119 ghuddy 193
 
121 hknight 194
   sqlstr = "SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID= "& PvId &_
195
            " UNION SELECT * FROM ARCHIVE_MANAGER.PACKAGE_VERSIONS WHERE PV_ID= "& PvId
119 ghuddy 196
 
121 hknight 197
   Set rsQry = OraDatabase.DbCreateDynaset( sqlstr, cint(0) )
119 ghuddy 198
 
199
End Sub
200
'----------------------------------------------------------------------------------------------------------------------------------------
201
Function  Get_JIRA_Issues ( SSsql, OOrsCQ )
121 hknight 202
   If OOrsCQ.State = 1 Then
203
      OOrsCQ.Close()
204
   End If
119 ghuddy 205
 
206
 
207
 
121 hknight 208
   On Error Resume Next
209
   OOrsCQ.ActiveConnection = JIRA_conn
210
   OOrsCQ.Source = SSsql
211
   OOrsCQ.CursorType = 0
212
   OOrsCQ.CursorLocation = 3
213
   OOrsCQ.LockType = 3
214
   OOrsCQ.Open()
119 ghuddy 215
 
216
 
121 hknight 217
   Get_JIRA_Issues = Err.Number
119 ghuddy 218
 
219
End Function
220
'----------------------------------------------------------------------------------------------------------------------------------------
221
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
121 hknight 222
   If OOrsCQ.State = 1 Then
223
      OOrsCQ.Close()
224
   End If
119 ghuddy 225
 
121 hknight 226
   On Error Resume Next
227
   OOrsCQ.ActiveConnection = CQ_conn
228
   OOrsCQ.Source = SSsql
229
   OOrsCQ.CursorType = 0
230
   OOrsCQ.CursorLocation = 2
231
   OOrsCQ.LockType = 3
232
   OOrsCQ.Open()
119 ghuddy 233
 
121 hknight 234
   Get_CQ_Issues = Err.Number
119 ghuddy 235
 
236
End Function
237
'----------------------------------------------------------------------------------------------------------------------------------------
238
Function Get_Dependency_CQ_Issues ( SSsql, OOrsCQ, DDdepIss, AAiss )
121 hknight 239
   Dim recCnt
240
   If OOrsCQ.State = 1 Then
241
      OOrsCQ.Close()
242
   End If
119 ghuddy 243
 
121 hknight 244
   OOrsCQ.ActiveConnection = CQ_conn
245
   OOrsCQ.Source = SSsql
246
   OOrsCQ.CursorType = 0
247
   OOrsCQ.CursorLocation = 2
248
   OOrsCQ.LockType = 3
119 ghuddy 249
 
121 hknight 250
   On Error Resume Next
251
   OOrsCQ.Open()
119 ghuddy 252
 
121 hknight 253
   ' Exit with error if error occurs
254
   Get_Dependency_CQ_Issues = Err.Number
255
   If Err.Number <> 0 Then Exit Function
119 ghuddy 256
 
257
 
121 hknight 258
   recCnt = 1
119 ghuddy 259
 
121 hknight 260
   While ((NOT OOrsCQ.BOF) AND (NOT OOrsCQ.EOF))
261
      ReDim Preserve AAiss( 6, recCnt )
262
      'If NOT DDdepIss.Exists Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")) Then
263
         DDdepIss.Add Cstr(OOrsCQ("iss_db") &"."& OOrsCQ("iss_id")), Cstr(recCnt)
264
      'End If
265
      AAiss( enumLoc_iss_db, recCnt )    = OOrsCQ("iss_db")
266
      AAiss( enumLoc_iss_id, recCnt )    = OOrsCQ("iss_id")
267
      AAiss( enumLoc_iss_num, recCnt )   = OOrsCQ("iss_num")
268
      AAiss( enumLoc_summary, recCnt )   = OOrsCQ("summary")
269
      AAiss( enumLoc_status, recCnt )    = OOrsCQ("status")
270
      AAiss( enumLoc_priority, recCnt )    = OOrsCQ("priority")
271
      AAiss( enumLoc_issue_type, recCnt ) = OOrsCQ("issue_type")
119 ghuddy 272
 
121 hknight 273
      recCnt = recCnt + 1
274
      OOrsCQ.MoveNext
275
   WEnd
119 ghuddy 276
 
121 hknight 277
   OOrsCQ.Close()
119 ghuddy 278
End Function
279
'----------------------------------------------------------------------------------------------------------------------------------------
280
Function FormatPath ( SSpath )
281
 
121 hknight 282
   If (SSpath = "") Then
283
      FormatPath = ""
284
      Exit Function
285
   End If
119 ghuddy 286
 
121 hknight 287
   If (InStr(1, LCase(SSpath), "http") = 1) OR (InStr(1, LCase(SSpath), "www") = 1) Then
288
      ' Source path is URL
289
      FormatPath = "<a href='"& SSpath &"' class='txt_linked'>"& SSpath &"</a>"
290
   Else
291
      FormatPath = SSpath
292
   End If
119 ghuddy 293
 
294
End Function
295
'----------------------------------------------------------------------------------------------------------------------------------------
296
Sub Group_By ( rsG, styleG, currG )
121 hknight 297
   If rsG = currG Then Exit Sub
298
   Response.write styleG
299
   'currG = rsG
119 ghuddy 300
End Sub
301
'----------------------------------------------------------------------------------------------------------------------------------------
302
Sub CheckUnitTestsState ( nPv_id, outMSG, outMSG_ID, outNote, outTestsFound )
121 hknight 303
   Dim sqlstr, rsTemp
304
   sqlstr = ReadFile( rootPath & "queries\unit_test_entries_check.sql" )
305
   sqlstr = Replace( sqlstr, ":PV_ID", nPv_id)
306
   sqlstr = Replace( sqlstr, ":enumTEST_TYPE_NOT_DONE", enumTEST_TYPE_NOT_DONE)
119 ghuddy 307
 
121 hknight 308
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
119 ghuddy 309
 
121 hknight 310
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
311
      outMSG = rsTemp("msg")
312
      outMSG_ID = CInt(rsTemp("msg_id"))
313
      outNote = rsTemp("test_summary")
314
      outTestsFound = FALSE
119 ghuddy 315
 
121 hknight 316
      If IsNull(rsTemp("msg")) Then outTestsFound = TRUE
317
   End If
119 ghuddy 318
 
121 hknight 319
   rsTemp.Close()
320
   Set rsTemp = nothing
119 ghuddy 321
End Sub
322
'----------------------------------------------------------------------------------------------------------------------------------------
323
Function FormatAccepted ( sAccepted, nTest_id )
121 hknight 324
   Dim tempSTR
325
   If IsNull(nTest_id) Then Exit Function
119 ghuddy 326
 
121 hknight 327
   tempSTR = ""
119 ghuddy 328
 
121 hknight 329
   If pageIsEditable Then
330
      tempSTR = "<select name='acc"& nTest_id &"' class='form_item'>"
331
   Else
332
      tempSTR = "<select name='acc"& nTest_id &"' class='form_item' disabled>"
333
   End If
119 ghuddy 334
 
121 hknight 335
   If sAccepted = enumUNIT_TEST_ACCEPTED Then
336
      tempSTR = tempSTR  &"<option></option>"&_
337
                     "<option value='"& enumUNIT_TEST_ACCEPTED &"' SELECTED>Yes</option>"&_
338
                     "<option value='"& enumUNIT_TEST_NOTACCEPTED &"'>No</option>"
119 ghuddy 339
 
121 hknight 340
   ElseIf sAccepted = enumUNIT_TEST_NOTACCEPTED Then
341
      tempSTR = tempSTR  &"<option></option>"&_
342
                     "<option value='"& enumUNIT_TEST_ACCEPTED &"'>Yes</option>"&_
343
                     "<option value='"& enumUNIT_TEST_NOTACCEPTED &"' SELECTED>No</option>"
119 ghuddy 344
 
121 hknight 345
   Else
346
      tempSTR = tempSTR  &"<option SELECTED></option>"&_
347
                     "<option value='"& enumUNIT_TEST_ACCEPTED &"'>Yes</option>"&_
348
                     "<option value='"& enumUNIT_TEST_NOTACCEPTED &"'>No</option>"
119 ghuddy 349
 
121 hknight 350
   End If
119 ghuddy 351
 
121 hknight 352
   tempSTR = tempSTR & "</select>"
119 ghuddy 353
 
121 hknight 354
   FormatAccepted = tempSTR
119 ghuddy 355
 
356
End Function
357
'----------------------------------------------------------------------------------------------------------------------------------------
358
Function SQL_CodeReview ( nPv_id )
121 hknight 359
   SQL_CodeReview = _
360
   "   SELECT cr.date_of_review, cr.time_spent, cr.review_reason, cr.rteam_domain_expert,"&_
361
   "          cr.rteam_language_expert, cr.rteam_peer_developer, cr.rteam_author,"&_
362
   "          cr.files_reviewed, cr.review_results, cr.issues_raised,"&_
363
   "          cr.review_comments, cr.fnc_s_meets_functionality,"&_
364
   "          cr.fnc_c_meets_functionality"&_
365
   "     FROM code_reviews cr"&_
366
   "    WHERE cr.pv_id = "& nPv_id
119 ghuddy 367
End Function
368
'----------------------------------------------------------------------------------------------------------------------------------------
369
Function SQL_Build_Env ( nPv_id )
121 hknight 370
   SQL_Build_Env = _
371
   " SELECT pv.*, bm.BM_ID,"&_
372
   "         bm.BM_NAME,"&_
373
   "         pkgbinfo.BSA_ID"&_
374
   "     FROM PACKAGE_BUILD_INFO pkgbinfo,"&_
375
   "           BUILD_MACHINES bm,"&_
376
   "           PACKAGE_VERSIONS pv"&_
377
   "    WHERE pkgbinfo.BM_ID = bm.BM_ID"&_
378
   "    AND pv.PV_ID = pkgbinfo.PV_ID"&_
379
   "      AND pkgbinfo.PV_ID = "& nPv_id  &_
380
   "   ORDER BY UPPER(bm.BM_NAME) "
119 ghuddy 381
End Function
382
'----------------------------------------------------------------------------------------------------------------------------------------
383
Function DecodeOverallResult ( ByVal cCheck )
121 hknight 384
   If cCheck = "" OR IsNull(cCheck) Then cCheck = 0
119 ghuddy 385
 
121 hknight 386
   Select Case CInt( cCheck )
387
      Case enumCODE_REVIEW_ACCEPTED
388
         DecodeOverallResult = "Accepted"
389
      Case enumCODE_REVIEW_MINOR_UPDATES
390
         DecodeOverallResult = "Minor updates required"
391
      Case enumCODE_REVIEW_MAJOR_REWORK
392
         DecodeOverallResult = "Major rework required"
393
      Case Else
394
         DecodeOverallResult = ""
395
   End Select
119 ghuddy 396
 
397
End Function
398
'----------------------------------------------------------------------------------------------------------------------------------------
399
Function GetBuildType ( nBuildType )
400
 
121 hknight 401
   If (NOT IsNull(nBuildType)) OR (NOT nBuildType = "") Then
119 ghuddy 402
 
121 hknight 403
      If ( CInt(nBuildType) = enumDB_BUILD_TYPE_NONE ) Then
404
         GetBuildType = "Build type not specified!"
405
      Else
406
         GetBuildType = GetBuildTypeString( nBuildType )
407
      End If
119 ghuddy 408
 
121 hknight 409
   Else
410
      GetBuildType = GetBuildTypeString( nBuildType )
119 ghuddy 411
 
121 hknight 412
   End If
119 ghuddy 413
 
121 hknight 414
   '' Wrap around brackets
415
   GetBuildType = "("& GetBuildType &")"
119 ghuddy 416
 
417
End Function
418
'----------------------------------------------------------------------------------------------------------------------------------------
419
Sub GetPackageMetrics (NNpv_id, rsTemp)
420
 
121 hknight 421
   OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
119 ghuddy 422
 
121 hknight 423
   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageMetrics.sql"), cint(0))
119 ghuddy 424
 
121 hknight 425
   OraDatabase.Parameters.Remove "PV_ID"
119 ghuddy 426
 
427
End Sub
428
'----------------------------------------------------------------------------------------------------------------------------------------
429
Sub GetCodeReviewURLs (NNpv_id, rsTemp)
430
 
121 hknight 431
   OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
119 ghuddy 432
 
121 hknight 433
   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("CodeReviewURLs.sql"), cint(0))
119 ghuddy 434
 
121 hknight 435
   OraDatabase.Parameters.Remove "PV_ID"
119 ghuddy 436
 
437
End Sub
438
'----------------------------------------------------------------------------------------------------------------------------------------
439
%>
440
<%
441
'------------------ MAIN LINE --------------------
442
'-------------------------------------------------
443
%>
444
<!-- PACKAGE INFORMATION --------------------------------------------------------------------------------------------------------------->
121 hknight 445
   <a name="PACKAGE_INFORMATION"></a>
446
   <table width="100%" border="0" cellspacing="1" cellpadding="2">
447
      <tr>
448
         <td class="body_colb"><img src="images/s_info.gif" width="22" height="22" hspace="4" border="0" align="absmiddle">Package Information</td>
449
         <td align="right" valign="bottom">
450
            <%If pageIsEditable Then%>
451
               <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>
452
            <%End If%>
453
         </td>
454
      </tr>
455
   </table>
456
   <table width="100%" border="0" cellspacing="1" cellpadding="2">
457
      <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))%>
458
      <tr>
459
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Deployable:</b></td>
460
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
461
            <%If IsNull( rsQry("is_deployable") ) Then%>No<%Else%>Yes<%End If%>
462
         </td>
463
      </tr>
464
      <tr>
465
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Label:</b></td>
466
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
467
            <%If IsNull( rsQry("pkg_label") ) Then%>
468
               <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%>
469
            <%End If%>
470
         </td>
471
      </tr>
472
      <tr>
473
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Source Path:</b> </td>
474
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
475
            <%If IsNull( rsQry("src_path") ) Then%>
476
               <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
477
            <%End If%>
478
         </td>
479
      </tr>
480
      <tr>
481
         <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Short Description:</b></td>
482
         <td witdh="100%" background="images/bg_form_lightgray.gif" class="sublbox_txt">
483
            <%If IsNull( rsQry("pv_description") ) Then%>
484
               <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pv_description") ) )%>
485
            <%End If%>
486
         </td>
487
      </tr>
488
      <tr>
489
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Package Overview:</b> </td>
490
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
491
            <%If IsNull( rsQry("pv_overview") ) Then%>
492
               <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pv_overview") ) )%>
493
            <%End If%>
494
         </td>
495
      </tr>
496
      <tr>
123 ghuddy 497
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top">
498
            <b>Build Standard:</b>
121 hknight 499
            <%If pkgInfoHash.Item ("dlocked") <> "A" AND pkgInfoHash.Item ("dlocked") <> "Y" AND criticalSectionIsEditable Then%>
123 ghuddy 500
               <a href='javascript:;' onClick="MM_openBrWindow('_wform_build_standard.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','BuildStandard','resizable=yes,width=400,height=300')" class="txt_linked">
501
                  <img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
502
               </a>
121 hknight 503
            <%Else%>
504
               <img src="images/i_edit_disable.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
505
            <%End If%>
506
         </td>
507
         <%
508
         If pkgInfoHash.Item ("bs_id") <> "" Then
509
            If pkgInfoHash.Item ("bs_id") = "1" Then
510
               Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'>JATS<br></td>"
119 ghuddy 511
 
121 hknight 512
            ElseIf pkgInfoHash.Item ("bs_id") = "2" Then
513
               Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'>ANT<br></td>"
119 ghuddy 514
 
121 hknight 515
            ElseIf pkgInfoHash.Item ("bs_id") = "3" Then
516
               Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'>NONE<br></td>"
517
            End If
518
         Else
519
            Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'><span class='err_alert'>Required!</span><br></td>"
520
         End If
521
         %>
522
      </tr>
523
      <tr>
524
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Build Environment:</b> </td>
525
         <%
526
         '--- Get Build Env Details
527
         Set rsTemp = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
528
         %>
119 ghuddy 529
 
121 hknight 530
         <%If rsTemp.RecordCount = 0 Then%>
531
            <%If rsQry("is_build_env_required") = enumDB_NO Then%>
532
               <td background="images/bg_form_lightgray.gif" class="sublbox_txt">Not Required.
533
            <%Else%>
534
               <td background="images/bg_form_lightgray.gif" class="sublbox_txt"><span class='err_alert'>Required!</span>
535
            <%End If%>
536
         <%Else%>
537
            <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
538
               <%If (IsNull( rsQry("is_build_env_required") ) AND (rsQry("comments") <> "Rippled Build.")) Then%>
539
                  <span class='err_alert'>Required!</span><%ElseIf rsQry("is_build_env_required") = enumDB_NO Then%>Not Required.
540
               <%End If%>
541
         <%End If%>
542
         <%If rsTemp.RecordCount > 0 Then%>
543
            <table width="40%"  border="0" cellspacing="3" cellpadding="2">
544
               <%
545
               currG1 = 0
546
               While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
547
                  'retVal = Lookup_Document ( rsQry("doc_num"), sDocTitle, NULL, NULL, NULL  )
548
               %>
549
                  <%If currG1 <> CInt(rsTemp("bm_id")) Then%>
550
                     <tr>
551
                        <td colspan="2" nowrap class="sublbox_txt" background="images/bg_form_lightbluedark.gif">
552
                           <%=rsTemp("bm_name")%>&nbsp;<%=GetBuildType( rsTemp("bsa_id") )%>
553
                        </td>
554
                     </tr>
555
                     <%currG1 = CInt(rsTemp("bm_id"))
556
                  End If
557
                  rsTemp.MoveNext
558
               WEnd
559
               %>
560
               <tr>
561
                   <td width="5%"></td>
562
                  <td width="95%"></td>
563
               </tr>
564
            </table>
565
         <%End If%>
566
         <!-- The following tag completes the scope of one of the 3 opening tags setup by vbscript code 30 or so lines earlier in this file -------->
567
         </td>
568
      </tr>
569
      <tr>
570
         <%
571
         ' Previous Label
572
         Dim rsQry2, rsQry3
573
         Set rsQry2 = OraDatabase.DbCreateDynaset( "SELECT * from package_versions where pv_id ="&parPv_id , cint(0))
574
         Set rsQry3 = OraDatabase.DbCreateDynaset( "SELECT pkg_label from package_versions where pv_id ="&rsQry2("last_pv_id") , cint(0))
575
         %>
576
         <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Previous Label:</strong><%=Quick_Help ( "PreviousLabel" )%></td>
577
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
578
            <%=NewLine_To_BR ( To_HTML( rsQry3("pkg_label") ) )%>
579
         </td>
580
      </tr>
119 ghuddy 581
 
121 hknight 582
      <%
583
      ' Codestriker and Beyond Compare differencing commands
584
      Dim oldLabel
585
      oldLabel = getOldLabel(pkgInfoHash.Item("pv_id"), pkgInfoHash.Item("last_pv_id"))
586
      %>
587
      <tr>
588
         <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
589
            <strong>Previous Significant Label:</strong><%=Quick_Help ( "PreviousSignificantLabel" )%>
590
         </td>
591
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
592
            <%=NewLine_To_BR ( To_HTML( oldLabel ) )%>
593
         </td>
594
      </tr>
595
      <tr>
596
         <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Codestriker command:
597
            </strong><%=Quick_Help ( "Codestriker" )%>
598
         </td>
599
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
600
            <%=NewLine_To_BR ( To_HTML( Codestriker_Command (oldLabel, pkgInfoHash.Item("pkg_label")) ) )%>
601
         </td>
602
      </tr>
603
      <tr>
604
         <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
605
            <strong>Beyond Compare command:</strong><%=Quick_Help ( "BeyondCompare" )%>
606
         </td>
607
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
608
            <%=NewLine_To_BR ( To_HTML( BeyondCompare_Command (oldLabel, pkgInfoHash.Item("pkg_label")) ) )%>
609
         </td>
610
      </tr>
119 ghuddy 611
 
121 hknight 612
      <%If pkgInfoHash.Item("is_deployable") = "Y" Then
613
         OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item ("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
614
         Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("DeploymentManagerReference.sql"), cint(0))
615
         If rsTemp.RecordCount = 0 Then%>
616
            <tr>
617
               <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>SBOM Information:</b></td>
618
               <%If pkgInfoHash.Item("product_state") = 3 Then%>
619
                  <td background="images/bg_form_lightgray.gif" class="err_alert"><b>Ready For Deployment!</b></td>
620
               <%ElseIf pkgInfoHash.Item("product_state") = 2 Then%>
621
                  <td background="images/bg_form_lightgray.gif" class="err_alert"><b>Ready For Testing!</b></td>
622
               <%ElseIf pkgInfoHash.Item("product_state") = 1 Then%>
623
                  <td background="images/bg_form_lightgray.gif" class="err_alert"><b>Ready For Integration!</b></td>
624
               <%ElseIf pkgInfoHash.Item("product_state") = 5 Then%>
625
                  <td background="images/bg_form_lightgray.gif" class="err_alert"><b>Ready For Integration and Deployment!</b></td>
626
               <%ElseIf IsNull(pkgInfoHash.Item("product_state")) Then%>
627
                  <td background="images/bg_form_lightgray.gif" class="err_alert"><b>Information Unavailable!</b></td>
628
               <%End If%>
119 ghuddy 629
 
630
            </tr>
121 hknight 631
         <%Else%>
119 ghuddy 632
            <tr>
121 hknight 633
               <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>SBOM Added/Updated:</b></td>
634
               <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
635
                  <%=rsTemp("branch_name")%> - <%=rsTemp("bom_name")%><%=VBNewLine%><%=rsTemp("version")%>
636
               </td>
119 ghuddy 637
            </tr>
121 hknight 638
         <%End If
639
         rsTemp.Close()
640
         Set rsTemp = Nothing
641
         OraDatabase.Parameters.Remove "PV_ID"
642
      End If
643
      %>
644
   </table>
645
   <br>
646
<!-- PACKAGE METRICS -------------------------------------------------------------------------------------------------------------------->
647
   <%If Request("rtag_id") <> "" Then%>
648
      <%
649
      Call GetPackageMetrics( parPv_id, rsPkgMetrics )
650
      %>
651
      <fieldset class="fset"><a href="javascript:;" onclick="ToggleDisplay('divPkgMetrics','pkg_metrics_filler')" class="lbl_link">
652
         <legend class="body_colb">
653
            <img src="images/i_metrics.gif" width="20" height="24" hspace="4" border="0" align="absmiddle" alt="Click to display Package Metrics">Package Metrics...
654
         </legend></a>
655
         <div name="pkg_metrics_filler" id="pkg_metrics_filler" style="display:block;" class="div_filler">
656
            <a href="javascript:;" onclick="ToggleDisplay('divPkgMetrics','pkg_metrics_filler')" class="txt_linked">Show...</a>
657
         </div>
658
         <div name="divPkgMetrics" id="divPkgMetrics" style="display:none;">
659
            <a name="PACKAGE_METRICS"></a>
660
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
661
               <tr>
662
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" width="20%"><b>Autobuilt:</b></td>
663
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%If rsPkgMetrics("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%></td>
664
               </tr>
665
               <tr>
666
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Unit Tested:</b></td>
667
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%If rsPkgMetrics("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%></td>
668
               </tr>
669
               <tr>
670
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Autotested:</b></td>
671
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%If rsPkgMetrics("autotested") = "Y" Then%>Yes<%Else%>No<%End If%></td>
672
               </tr>
673
               <%If NOT IsNull(rsPkgMetrics("code_lines")) Then%>
674
               <tr>
675
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Code Lines:</b></td>
676
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("code_lines")%></td>
677
               </tr>
678
               <%End If%>
679
               <%If NOT IsNull(rsPkgMetrics("comment_lines")) Then%>
680
               <tr>
681
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Comment Lines:</b></td>
682
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("comment_lines")%></td>
683
               </tr>
684
               <%End If%>
685
               <%If NOT IsNull(rsPkgMetrics("blank_lines")) Then%>
686
               <tr>
687
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Blank Lines:</b></td>
688
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("blank_lines")%></td>
689
               </tr>
690
               <%End If%>
691
               <%If NOT IsNull(rsPkgMetrics("branches")) Then%>
692
               <tr>
693
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Number of Branches:</b></td>
694
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("branches")%></td>
695
               </tr>
696
               <%End If%>
697
               <%If NOT IsNull(rsPkgMetrics("branch_list")) Then%>
698
               <tr>
699
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Branch List:</b></td>
700
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("branch_list")%></td>
701
               </tr>
702
               <%End If%>
703
               <%If NOT IsNull(rsPkgMetrics("code_files")) Then%>
704
               <tr>
705
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Code Files:</b></td>
706
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("code_files")%></td>
707
               </tr>
708
               <%End If%>
709
               <%If NOT IsNull(rsPkgMetrics("ignored_files")) Then%>
710
               <tr>
711
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Ignored Files:</b></td>
712
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("ignored_files")%></td>
713
               </tr>
714
               <%End If%>
715
               <%If NOT IsNull(rsPkgMetrics("makefiles")) Then%>
716
               <tr>
717
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Makefiles:</b></td>
718
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("makefiles")%></td>
719
               </tr>
720
               <%End If%>
721
               <%If NOT IsNull(rsPkgMetrics("total_files")) Then%>
722
               <tr>
723
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Total Files:</b></td>
724
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("total_files")%></td>
725
               </tr>
726
               <%End If%>
727
               <%If NOT IsNull(rsPkgMetrics("directories")) Then%>
728
               <tr>
729
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Number of Directories:</b></td>
730
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("directories")%></td>
731
               </tr>
732
               <%End If%>
733
               <%If NOT IsNull(rsPkgMetrics("directory_depth")) Then%>
734
               <tr>
735
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Directory Depth:</b></td>
736
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("directory_depth")%></td>
737
               </tr>
738
               <%End If%>
739
               <%If NOT IsNull(rsPkgMetrics("created_stamp")) Then%>
740
               <tr>
741
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><b>Metrics Collected:</b></td>
742
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsPkgMetrics("created_stamp")%></td>
743
               </tr>
744
               <%End If%>
745
            </table>
746
         </div>
747
      </fieldset>
748
      <br>
749
      <%
750
      rsPkgMetrics.Close()
751
      Set rsPkgMetrics = nothing
752
      %>
753
   <%End If%>
754
<!-- PRODUCTS AFFECTED BY CHANGE -------------------------------------------------------------------------------------------------------->
119 ghuddy 755
 
756
<!-- REASON FOR DEPRECATION/DEPENDANCY DEPRECATED ----------------------------------------------------------------------------------------------------------------->
121 hknight 757
   <%If pkgInfoHash.Item("deprecated_state") = 6 Then %>
119 ghuddy 758
 
121 hknight 759
      <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>
760
         <a name="REASON_FOR_DEPRECATION"></a>
761
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
762
            <tr>
763
               <td background="images/bg_form_lightgray.gif">
119 ghuddy 764
 
121 hknight 765
                  <%
766
                  Dim rsComment
767
                  Set rsComment = OraDatabase.DbCreateDynaset("SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& Request("rtag_id") &" AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
768
                  If rsComment("comments") <> "" Then
769
                     Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
770
                     Response.write "<tr>"
771
                     Response.write "<td class='sublbox_txt'>"& NewLine_To_BR((  rsComment("comments") ) ) &"<br></td>"
772
                     Response.write "</tr>"
773
                     Response.write "</table>"
774
                  'Else
775
                  '   If FixedIssues ( parPv_id ) Then
776
                  '      Response.write "<span class='sublbox_txt'>Not specified.</span><br>"
777
                  '   Else
778
                  '      Response.write "<span class='err_alert'>Required!</span><br>"
779
                  '   End If
780
                  End If
781
                  rsComment.Close()
782
                  Set rsComment = nothing
783
                  %>
784
               </td>
785
            </tr>
786
         </table>
787
      </fieldset>
788
      <br><br>
789
   <%End If%>
119 ghuddy 790
<!-- SBOM PRIORITY/CRITICALITY  --------------------------------------------------------------------------------------------------------->
121 hknight 791
   <%If NOT pageIsEditable AND pkgInfoHash.Item ("is_deployable") = "Y" Then%>
792
      <fieldset class="fset"><legend class="body_colb"><img src='icons/i_prod_sbom_priority.gif' hspace='4' border='0' align='absmiddle'>SBOM Priority</legend>
793
         <a name="SBOM_PRIORITY"></a>
794
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
795
            <tr>
796
               <td class="body_colb"></td>
797
               <td align="right" valign="bottom">
798
                  <%If (pkgInfoHash.Item ("dlocked") = "Y") Then%>
799
                     <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>
800
                  <%End If%>
801
               </td>
802
            </tr>
803
         </table>
804
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
805
            <tr>
806
               <td background="images/bg_form_lightgray.gif">
807
                  <%If pkgInfoHash.Item ("sbom_priority") <> "" Then%>
808
                     <table border='0' cellspacing='0' cellpadding='0'>
809
                        <tr>
810
                           <td class='sublbox_txt'>
811
                              <%
812
                              If pkgInfoHash.Item ("sbom_priority") = "C" Then
813
                                 Response.write "<b><font color='red'>Critical.</font></b>"
814
                              ElseIf pkgInfoHash.Item ("sbom_priority") = "I" Then
815
                                 Response.write "<b>Important.</b>"
816
                              ElseIf pkgInfoHash.Item ("sbom_priority") = "R" Then
817
                                 Response.write "Routine"
818
                              ElseIf pkgInfoHash.Item ("sbom_priority") = "L" Then
819
                                 Response.write "Low"
820
                              End If
821
                              %>
822
                           </td>
823
                        </tr>
824
                     </table>
825
                  <%Else%>
826
                     <span class='err_alert'>Required!</span><br>
827
                  <%End If%>
828
               </td>
829
            </tr>
830
         </table>
831
      </fieldset>
832
      <br><br>
833
   <%End If%>
119 ghuddy 834
<!-- CHANGE TYPE  ----------------------------------------------------------------------------------------------------------------------->
121 hknight 835
   <%If pkgInfoHash.Item ("build_type") = "A" Then%>
836
      <fieldset class="fset"><legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Change Type</legend>
837
         <a name="CHANGE_TYPE"></a>
838
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
839
            <tr>
840
               <td class="body_colb"></td>
841
               <td align="right" valign="bottom">
842
                  <%If (pkgInfoHash.Item ("dlocked") <> "A")  AND (pkgInfoHash.Item ("dlocked") <> "Y") AND criticalSectionIsEditable Then%>
843
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_change_type.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','ChangeType','resizable=yes,width=530,height=290')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
844
                  <%End If%>
845
               </td>
846
            </tr>
847
         </table>
848
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
849
            <tr>
850
               <td background="images/bg_form_lightgray.gif">
851
                  <%
852
                  If pkgInfoHash.Item ("change_type") <> "" Then
853
                     Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
854
                     Response.write "<tr>"
855
                     If pkgInfoHash.Item ("change_type") = "M" Then
856
                        Response.write "<td class='sublbox_txt'>Major Change.<br></td>"
857
                     ElseIf pkgInfoHash.Item ("change_type") = "N" Then
858
                        Response.write "<td class='sublbox_txt'>Minor Change.<br></td>"
859
                     ElseIf pkgInfoHash.Item ("change_type") = "P" Then
860
                        Response.write "<td class='sublbox_txt'>Patch Change.<br></td>"
861
                     End If
862
                     Response.write "</tr>"
863
                     Response.write "</table>"
864
                  Else
865
                     Response.write "<span class='err_alert'>Required!</span><br>"
866
                  End If
867
                  %>
868
               </td>
869
            </tr>
870
         </table>
871
      </fieldset>
872
      <br><br>
873
   <%End If%>
119 ghuddy 874
<!-- RIPPLE PROPERTIES  ----------------------------------------------------------------------------------------------------------------------->
121 hknight 875
   <%If IsNull(pkgInfoHash.Item ("is_patch"))  Then%>
876
      <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>
877
         <a name="RIPPLE_PROPERTIES"></a>
878
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
879
            <tr>
880
               <td class="body_colb"></td>
881
               <td align="right" valign="bottom">
882
                  <%If (objAccessControl.IsVisible( "RipplePackage" ) AND pageIsEditable) OR criticalSectionIsEditable Then%>
883
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_ripple_properties.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','RippleType','resizable=yes,width=1000,height=230')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
884
                  <%End If%>
885
               </td>
886
            </tr>
887
         </table>
888
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
889
            <tr>
890
               <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
891
                  <strong>Build Inclusion</strong>
892
                  <%=Quick_Help ( "ripple_build" )%>
893
               </td>
894
               <%If Request("rtag_id") <> "" Then
895
                  Dim rsQryRipple
896
                  Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT * FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& Request("rtag_id") &"AND PV_ID ="&Request("pv_id"), cint(0))
897
                     If rsQryRipple.RecordCount = 0  Then %>
898
                     <td background="images/bg_form_lightgray.gif" class="sublbox_txt">Yes</td>
899
                  <%Else%>
900
                     <td background="images/bg_form_lightgray.gif" class="sublbox_txt">No</td>
901
                  <%End If%>
902
                  <%rsQryRipple.Close()
903
                  Set rsQryRipple = nothing
904
               End If%>
905
            </tr>
906
            <tr>
907
               <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
908
                  <strong>Ripple Type</strong>
909
                  <%=Quick_Help ( "ripple_type" )%>
910
               </td>
911
               <td width="80%" background="images/bg_form_lightgray.gif">
912
                  <p>
913
                     <%
914
                     Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
915
                     Response.write "<tr>"
916
                     Response.write "<td class='sublbox_txt'>"
917
                     If pkgInfoHash.Item ("ripple_field") = "M" Then
918
                        Response.write "Major Number."
919
                     ElseIf pkgInfoHash.Item ("ripple_field") = "m" Then
920
                        Response.write "Minor Number."
921
                     ElseIf pkgInfoHash.Item ("ripple_field") = "p" Then
922
                        Response.write "Patch Number."
923
                     ElseIf pkgInfoHash.Item ("ripple_field") = "b" Then
924
                        Response.write "Build Number."
925
                     ElseIf pkgInfoHash.Item ("ripple_field") = "z" Then
926
                        Response.write "Do not ripple build"
927
                     Else
928
                        Response.write "<span class='err_alert'>Required!</span>"
929
                     End If
930
                     Response.Write "<br></td>"
931
                     Response.write "</tr>"
932
                     Response.write "</table>"
933
                     %>
934
                  </p>
935
               </td>
936
            </tr>
937
         </table>
938
      </fieldset>
939
      <br>
940
      <br>
941
   <%End If%>
119 ghuddy 942
<!-- REASON FOR RELEASE ----------------------------------------------------------------------------------------------------------------->
121 hknight 943
   <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>
944
      <a name="REASON_FOR_THIS_RELEASE"></a>
945
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
946
         <tr>
947
            <td align="right" valign="bottom">
948
               <%If pageIsEditable Then%>
949
                  <form name="updateversions" method="post" action="_update_versions.asp">
950
                     <input type="submit" name="btn" value="Update Dependencies" class="form_btn" onClick="return confirmAction('Current comments would be deleted. Do you wish to continue?')">
951
                     <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>
952
                     <input name="pv_id" type="hidden" value="<%=parPv_id%>">
953
                     <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
954
                  </form>
955
               <%End If%>
956
            </td>
957
         </tr>
958
      </table>
119 ghuddy 959
 
121 hknight 960
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
961
         <tr>
962
            <td background="images/bg_form_lightgray.gif">
963
            <%If pkgInfoHash.Item ("comments") <> "" Then%>
964
               <table border='0' cellspacing='0' cellpadding='0'>
965
                  <tr>
966
                     <td class='sublbox_txt'> <%Response.Write( NewLine_To_BR(pkgInfoHash.Item("comments")) )%><br></td>
967
                  </tr>
968
               </table>
969
            <%ElseIf FixedIssues ( parPv_id ) Then%>
970
               <span class='sublbox_txt'>Not specified.</span><br>
971
            <%Else%>
972
               <span class='err_alert'>Required!</span><br>
973
            <%End If%>
974
            </td>
975
         </tr>
976
      </table>
977
   </fieldset>
978
   <br><br>
119 ghuddy 979
<!-- REASON FOR NON_RIPPLE RELEASE ----------------------------------------------------------------------------------------------------------------->
121 hknight 980
   <%If pkgInfoHash.Item ("comments") = "Rippled Build." Then%>
119 ghuddy 981
 
121 hknight 982
      <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 983
 
121 hknight 984
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
985
            <tr>
986
               <td background="images/bg_form_lightgray.gif">
987
                  <%
988
                  'Dim rsQry
989
                  Call LastPvId(pkgInfoHash.Item ("pv_id"))
119 ghuddy 990
 
121 hknight 991
                  While rsQry("comments") = "Rippled Build."
992
                     Call LastPvId(rsQry("last_pv_id"))
993
                  Wend
119 ghuddy 994
 
121 hknight 995
                  If pkgInfoHash.Item ("comments") <> "" Then
996
                     Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
997
                     Response.write "<tr>"
998
                     Response.write "<td class='sublbox_txt'><b>Package Version:</b> <b>"& NewLine_To_BR(( rsQry ("pkg_version") ) ) &"</b><br></td>"
999
                     Response.write "</tr>"
1000
                     Response.write "<tr>"
1001
                     Response.write "<td class='sublbox_txt'>"& NewLine_To_BR(( rsQry ("comments") ) ) &"<br></td>"
1002
                     Response.write "</tr>"
119 ghuddy 1003
 
121 hknight 1004
                     Response.write "</table>"%>
119 ghuddy 1005
 
121 hknight 1006
                     <table width="100%" border="0" cellspacing="1" cellpadding="2">
1007
                        <tr>
1008
                           <td valign="top" class="sublbox_txt"><b>Fixed Issues For Last Non-Ripple Build</b></td>
1009
                           <td align="right" valign="top">
1010
                              <%If pageIsEditable Then%>
1011
                                 <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>
1012
                              <%End If%>
1013
                           </td>
1014
                        </tr>
1015
                     </table>
1016
                     <%Call Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )
1017
                     If (retVal > 0) Then
1018
                        retVal = Get_CQ_Issues ( SQLstr, rsCQ )
1019
                        If retVal = 0 Then%>
1020
                           <table width="100%" border="0" cellspacing="1" cellpadding="3">
1021
                              <tr>
1022
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td>
1023
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1024
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1025
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1026
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1027
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td>
1028
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td>
1029
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td>
1030
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">&nbsp;</td>
1031
                              </tr>
1032
                              <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1033
                                 <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1034
                                    <tr>
1035
                                       <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
1036
                                       <td background="images/bg_form_lightgray.gif" 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>
1037
                                       <td background="images/bg_form_lightgray.gif" class="form_item"><%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>DEVI<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>TDSE<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>VT5DM<%Else%>VTSUP<%End If%></td>
1038
                                       <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1039
                                       <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td>
1040
                                       <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1041
                                       <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td>
1042
                                       <%If sectionIsEditable Then%>
1043
                                           <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
1044
                                             <td align="center" background="images/bg_form_lightgray.gif" 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>
1045
                                          <%Else%>
1046
                                             <td align="center" background="images/bg_form_lightgray.gif" 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>
1047
                                          <%End If%>
1048
                                       <%Else%>
1049
                                          <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
1050
                                             <td align="center" background="images/bg_form_lightgray.gif" 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>
1051
                                          <%Else%>
1052
                                             <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_note_off.gif" width="11" height="12" border="0"></td>
1053
                                          <%End If%>
1054
                                       <%End If%>
1055
                                       <%If NOT pageIsEditable Then%>
1056
                                          <td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0"></td>
1057
                                       <%Else%>
1058
                                          <td align="center" background="images/bg_form_lightgray.gif" 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>
1059
                                       <%End If%>
1060
                                    </tr>
1061
                                    <%rsCQ.MoveNext
1062
                                 WEnd
1063
                                 rsCQ.Close()%>
1064
                              <%Else%>
1065
                                 <tr>
1066
                                    <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1067
                                    <td background="images/bg_form_lightgray.gif" nowrap></td>
1068
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1069
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1070
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1071
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1072
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1073
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1074
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
1075
                                 </tr>
1076
                              <%End If%>
1077
                           </table>
1078
                        <%End If%>
1079
                        <%If retVal <> 0 Then Response.write enumMSSQL_ERROR
1080
                     End If
1081
                  Else
1082
                     If FixedIssues ( parPv_id ) Then
1083
                        Response.write "<span class='sublbox_txt'>Not specified.</span><br>"
1084
                     Else
1085
                        Response.write "<span class='err_alert'>Required!</span><br>"
1086
                     End If
1087
                  End If
119 ghuddy 1088
 
121 hknight 1089
                  rsQry.Close()
1090
                  Set rsQry = nothing
1091
                  %>
1092
               </td>
1093
            </tr>
1094
         </table>
1095
      </fieldset>
1096
      <br><br>
1097
   <%End If%>
1098
<!-- FIXED ISSUES ----------------------------------------------------------------------------------------------------------------------->
123 ghuddy 1099
   <fieldset class="fset">
1100
      <legend class="body_colb">
1101
         <img src="images/s_bugs.gif" width="21" height="18" border="0" hspace="4" align="absmiddle">
1102
         Issues
1103
      </legend>
121 hknight 1104
      <p class="body_colb"><a name="ISSUES"></a></p>
1105
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
1106
         <tr>
1107
            <td valign="top" class="body_colb">JIRA Issues</td>
1108
            <td align="right" valign="top">
1109
               <%If pageIsEditable Then%>
123 ghuddy 1110
                  <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">
1111
                     Import JIRA issues
1112
                     <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
1113
                  </a>
121 hknight 1114
               <%End If%>
1115
            </td>
119 ghuddy 1116
 
121 hknight 1117
            <%retVal = Get_JIRA_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )
1118
            If (retVal > 0) Then
1119
               retVal = Get_JIRA_Issues ( SQLstr, rsCQ )
123 ghuddy 1120
               If (retVal = 0 AND rsCQ.RecordCount > 0) Then%>
121 hknight 1121
 
1122
                  <table width="100%" border="0" cellspacing="1" cellpadding="3">
1123
                     <tr>
1124
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td>
1125
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1126
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1127
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1128
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1129
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td>
1130
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td>
1131
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td>
1132
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">&nbsp;</td>
1133
                     </tr>
1134
                     <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1135
                        <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1136
                           <tr>
1137
                              <%If rsCQ("resolution") = 1 Then %>
123 ghuddy 1138
                                 <td align="center" nowrap background="images/bg_form_lightbluedark.gif">
1139
                                    <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
1140
                                 </td>
121 hknight 1141
                              <%Else%>
1142
                                 <td align="center" nowrap background="images/bg_form_lightbluedark.gif"></td>
1143
                              <%End If%>
123 ghuddy 1144
                              <td background="images/bg_form_lightgray.gif" nowrap class="form_item">
1145
                                 <a href="http://auperajir01:8080/browse/<%=rsCQ("iss_num")%>" target="_blank" class="txt_linked">
1146
                                    <%=rsCQ("iss_num")%>
1147
                                 </a>
1148
                              </td>
121 hknight 1149
                              <td background="images/bg_form_lightgray.gif" class="form_item">JIRA</td>
1150
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1151
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issuetype")%></td>
1152
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1153
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("state")%></td>
1154
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
1155
                              <%If NOT pageIsEditable Then%>
123 ghuddy 1156
                                 <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1157
                                    <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
1158
                                 </td>
121 hknight 1159
                              <%Else%>
123 ghuddy 1160
                                 <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1161
                                    <a href="_remove_jira_issue.asp?iss_link=<%=rsCQ("iss_num")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');">
1162
                                       <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
1163
                                    </a>
1164
                                 </td>
121 hknight 1165
                              <%End If%>
1166
                           </tr>
1167
                           <%rsCQ.MoveNext
1168
                        WEnd
1169
                        rsCQ.Close()%>
1170
                     <%Else%>
1171
                        <tr>
119 ghuddy 1172
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1173
                           <td background="images/bg_form_lightgray.gif" nowrap></td>
1174
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1175
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
121 hknight 1176
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1177
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1178
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1179
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
119 ghuddy 1180
                           <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
121 hknight 1181
                        </tr>
1182
                     <%End If%>
119 ghuddy 1183
 
121 hknight 1184
                  </table>
1185
               <%End If%>
1186
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1187
            <%End If%>
119 ghuddy 1188
 
121 hknight 1189
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1190
               <tr>
1191
                  <td valign="top" class="body_colb">Fixed Issues</td>
1192
                  <td align="right" valign="top">
1193
                     <%If pageIsEditable Then%>
123 ghuddy 1194
                        <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">
1195
                           Import Fixed Issues from ClearQuest
1196
                           <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
1197
                        </a>
121 hknight 1198
                     <%End If%>
1199
                  </td>
1200
               </tr>
1201
            </table>
119 ghuddy 1202
 
121 hknight 1203
            <%retVal = Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )
1204
            If (retVal > 0) Then
1205
               retVal = Get_CQ_Issues ( SQLstr, rsCQ )
1206
               If retVal = 0 Then%>
1207
                  <table width="100%" border="0" cellspacing="1" cellpadding="3">
1208
                     <tr>
1209
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td>
1210
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1211
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1212
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1213
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1214
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td>
1215
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td>
1216
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td>
1217
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">&nbsp;</td>
1218
                     </tr>
1219
                     <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1220
                        <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1221
                           <tr>
1222
                              <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
123 ghuddy 1223
                              <td background="images/bg_form_lightgray.gif" nowrap class="form_item">
1224
                                 <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">
1225
                                    <%=rsCQ("iss_num")%>
1226
                                 </a>
1227
                              </td>
1228
                              <td background="images/bg_form_lightgray.gif" class="form_item">
1229
                                 <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
1230
                                    DEVI
1231
                                 <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>
1232
                                    TDSE
1233
                                 <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>
1234
                                    VT5DM
1235
                                 <%Else%>
1236
                                    VTSUP
1237
                                 <%End If%>
1238
                              </td>
121 hknight 1239
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1240
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td>
1241
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1242
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td>
1243
                              <%If sectionIsEditable AND pageIsEditable Then%>
1244
                                 <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
123 ghuddy 1245
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1246
                                       <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')">
1247
                                          <img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1248
                                       </a>
1249
                                    </td>
121 hknight 1250
                                 <%Else%>
123 ghuddy 1251
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1252
                                       <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')">
1253
                                          <img src="images/i_note_off.gif" width="11" height="12" border="0" title="Add Note">
1254
                                       </a>
1255
                                    </td>
121 hknight 1256
                                 <%End If%>
1257
                              <%Else%>
1258
                                 <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
123 ghuddy 1259
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1260
                                       <img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1261
                                    </td>
121 hknight 1262
                                 <%Else%>
123 ghuddy 1263
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1264
                                       <img src="images/i_note_off.gif" width="11" height="12" border="0">
1265
                                    </td>
121 hknight 1266
                                 <%End If%>
1267
                              <%End If%>
1268
                              <%If NOT pageIsEditable Then%>
123 ghuddy 1269
                                 <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1270
                                    <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
1271
                                 </td>
121 hknight 1272
                              <%Else%>
123 ghuddy 1273
                                 <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1274
                                    <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');">
1275
                                       <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
1276
                                    </a>
1277
                                 </td>
121 hknight 1278
                              <%End If%>
1279
                           </tr>
1280
                           <%rsCQ.MoveNext
1281
                        WEnd
1282
                        rsCQ.Close()%>
1283
                     <%Else%>
1284
                        <tr>
119 ghuddy 1285
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1286
                           <td background="images/bg_form_lightgray.gif" nowrap></td>
1287
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1288
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1289
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1290
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
121 hknight 1291
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1292
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
119 ghuddy 1293
                           <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
121 hknight 1294
                        </tr>
1295
                     <%End If%>
119 ghuddy 1296
 
121 hknight 1297
                  </table>
1298
               <%End If%>
1299
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1300
            <%End If%>
119 ghuddy 1301
 
121 hknight 1302
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1303
               <tr>
1304
                  <td valign="top" class="body_colb">Outstanding Issues</td>
1305
                  <td align="right" valign="top">
1306
                     <%If pageIsEditable Then%>
123 ghuddy 1307
                        <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">
1308
                           Import Outstanding Issues from ClearQuest
1309
                           <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
1310
                        </a>
121 hknight 1311
                     <%End If%>
1312
                  </td>
1313
               </tr>
1314
            </table>
119 ghuddy 1315
 
121 hknight 1316
            <%retVal = Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_IMPORTED )
1317
            If (retVal > 0) Then
1318
               retVal = Get_CQ_Issues ( SQLstr, rsCQ )
1319
               If retVal = 0 Then%>
1320
                  <table width="100%" border="0" cellspacing="1" cellpadding="2">
1321
                     <form name="fixedissues" method="get" action="_update_issues_state.asp">
1322
                        <tr>
1323
                           <%If pageIsEditable Then%>
1324
                              <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center">Fixed</td>
1325
                           <%End If%>
119 ghuddy 1326
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Id&nbsp;</td>
121 hknight 1327
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue DB&nbsp;</td>
119 ghuddy 1328
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
121 hknight 1329
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Type&nbsp;</td>
119 ghuddy 1330
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Priority</td>
121 hknight 1331
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Status</td>
1332
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Note</td>
119 ghuddy 1333
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">&nbsp;</td>
121 hknight 1334
                        </tr>
1335
                        <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1336
                           <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1337
                              <tr>
1338
                                 <%If pageIsEditable Then%>
123 ghuddy 1339
                                    <td align="center" nowrap background="images/bg_form_lightbluedark.gif">
1340
                                       <input type="checkbox" name="FRfixed" value="<%=rsCQ("iss_db") &"."& rsCQ("iss_id")%>">
1341
                                    </td>
121 hknight 1342
                                 <%End If%>
123 ghuddy 1343
                                 <td background="images/bg_form_lightgray.gif" nowrap class="form_item">
1344
                                    <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">
1345
                                       <%=rsCQ("iss_num")%>
1346
                                    </a>
1347
                                 </td>
1348
                                 <td background="images/bg_form_lightgray.gif" class="form_item">
1349
                                    <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
1350
                                       DEVI
1351
                                    <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>
1352
                                       TDSE
1353
                                    <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>
1354
                                       VT5DM
1355
                                    <%Else%>
1356
                                       VTSUP
1357
                                    <%End If%>
1358
                                 </td>
121 hknight 1359
                                 <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1360
                                 <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td>
1361
                                 <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1362
                                 <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td>
1363
                                 <%If sectionIsEditable AND pageIsEditable Then%>
1364
                                    <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
123 ghuddy 1365
                                       <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1366
                                          <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')">
1367
                                             <img src="images/i_note_on.gif" width="11" height="12" border="0" alt="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1368
                                          </a>
1369
                                       </td>
121 hknight 1370
                                    <%Else%>
123 ghuddy 1371
                                       <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1372
                                          <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')">
1373
                                             <img src="images/i_note_off.gif" width="11" height="12" border="0" alt="Add Note">
1374
                                          </a>
1375
                                       </td>
121 hknight 1376
                                    <%End If%>
1377
                                 <%Else%>
1378
                                    <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
123 ghuddy 1379
                                       <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1380
                                          <img src="images/i_note_on.gif" width="11" height="12" border="0" alt="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1381
                                       </td>
121 hknight 1382
                                    <%Else%>
123 ghuddy 1383
                                       <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1384
                                          <img src="images/i_note_off.gif" width="11" height="12" border="0">
1385
                                       </td>
121 hknight 1386
                                    <%End If%>
1387
                                 <%End If%>
1388
                                 <%If NOT pageIsEditable Then%>
123 ghuddy 1389
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1390
                                       <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
1391
                                    </td>
121 hknight 1392
                                 <%Else%>
123 ghuddy 1393
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1394
                                       <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');">
1395
                                          <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
1396
                                       </a>
1397
                                    </td>
121 hknight 1398
                                 <%End If%>
1399
                              </tr>
1400
                              <%rsCQ.MoveNext
1401
                           WEnd
1402
                           rsCQ.Close()%>
1403
                           <%If pageIsEditable Then%>
1404
                              <tr>
123 ghuddy 1405
                                 <td align="center" nowrap background="images/bg_form_lightbluedark.gif">
1406
                                    <input type="submit" name="Apply" value="Apply" class="form_btn">
1407
                                 </td>
121 hknight 1408
                                 <td></td>
1409
                                 <td></td>
1410
                                 <td></td>
1411
                                 <td></td>
1412
                                 <td></td>
1413
                                 <td></td>
1414
                                 <td></td>
1415
                                 <td></td>
1416
                              </tr>
1417
                           <%End If%>
1418
                        <%Else%>
1419
                           <tr>
1420
                              <%If pageIsEditable Then%>
1421
                                 <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1422
                              <%End If%>
1423
                              <td background="images/bg_form_lightgray.gif" nowrap></td>
1424
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1425
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1426
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1427
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1428
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1429
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1430
                              <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
1431
                           </tr>
1432
                        <%End If%>
1433
                        <input name="pv_id" type="hidden" value="<%=parPv_id%>">
1434
                        <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
1435
                     </form>
1436
                  </table>
1437
               <%End If%>
1438
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1439
            <%End If%>
123 ghuddy 1440
<!-- DEVI-050133 Although it would seem to the human eye that the following row and table closing tags are needed, -->
1441
<!--             they do in fact cause the page to be rendered incorrectly. Hence they are commented out for now   -->
1442
<!--             until the true cause of the mis-rendering can be ascertained.                                    -->
1443
<!--     </tr> -->
1444
<!--  </table> -->
121 hknight 1445
   </fieldset>
1446
   <br><br>
119 ghuddy 1447
<!-- DEPENDENCY ISSUES (NOT FOR PATCHES!) ------------------------------------------------------------------------------------------------------->
1448
 
121 hknight 1449
   <%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
1450
      <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>
1451
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
119 ghuddy 1452
 
121 hknight 1453
            <%Call Get_Package_Issues ( parPv_id, SQLstr, NULL, NULL, NULL )
1454
            If (retVal > 0) Then
1455
               retVal = Get_Dependency_CQ_Issues ( SQLstr, rsCQ, depIssDict, issArr )
1456
               If retVal = 0 Then%>
1457
                  <%
1458
                  currG1 = 0
1459
                  G1_template = _
1460
                  "<tr>"&_
1461
                  "  <td colspan='7'><img src='images/spacer.gif' width='2' height='2'></td>"&_
1462
                  "</tr>"&_
1463
                  "<tr>"&_
1464
                  "  <td colspan='7' background='images/bg_form_lightbluedark.gif' class='form_item'>/*DEP_NAME_VERSION*//*REASONS*/</td>"&_
1465
                  "</tr>"
1466
                  Set rsDepIss = OraDatabase.DbCreateDynaset( SQL_Dependency_Issues( parPv_id ), cint(0))
1467
                  %>
1468
                  <%If ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF)) Then%>
1469
                     <%While ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF))%>
1470
                        <%
1471
                        iss_db_id = Cstr(rsDepIss("iss_db") &"."& rsDepIss("iss_id"))
1472
                        G1_style = Replace(G1_template, "/*DEP_NAME_VERSION*/", "<SPAN class='envolPkg'><b>"& rsDepIss("pkg_name") &" "& rsDepIss("pkg_version") &"</b></SPAN>")
1473
                        If IsNull(rsDepIss("iss_id")) Then
1474
                           If IsNull(rsDepIss("reasons")) Then
1475
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>Reason for this version is not specified.")
1476
                           Else
1477
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
1478
                           End If
1479
                        Else
1480
                           If IsNull(rsDepIss("reasons")) Then
1481
                              G1_style = Replace(G1_style, "/*REASONS*/", "")
1482
                           Else
1483
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
1484
                           End If
1485
                        End If
119 ghuddy 1486
 
121 hknight 1487
                        Call Group_By ( rsDepIss("pv_id"), G1_style, currG1 )
1488
                        If NOT IsNull(rsDepIss("iss_id")) Then
1489
                           If rsDepIss("pv_id") <> currG1 Then
1490
                              currG1 = rsDepIss("pv_id")%>
1491
                              <tr>
123 ghuddy 1492
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center"></td>
1493
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center">Fixed</td>
1494
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Id&nbsp;</td>
121 hknight 1495
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue DB&nbsp;</td>
123 ghuddy 1496
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1497
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Type&nbsp;</td>
1498
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Priority</td>
121 hknight 1499
                              </tr>
1500
                           <%End If%>
1501
                           <tr>
1502
                              <td background="images/bg_form_lightbluedark.gif"></td>
1503
                              <td align="center" nowrap background="images/bg_form_lightgray.gif">
1504
                                 <%If CInt(rsDepIss("iss_state")) = enumISSUES_STATE_FIXED Then%>
1505
                                    <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
1506
                                 <%Else%>
1507
                                    <img src="images/spacer.gif" width="7" height="7" vspace="2">
1508
                                 <%End If%>
1509
                              </td>
1510
                              <td background="images/bg_form_lightgray.gif" 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=500')" class="txt_linked"><%=asDepIss( iss_db_id, enumLoc_iss_num )%></a></td>
1511
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%If asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_DEVI_ID Then%>DEVI<%ElseIf asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_TDSE_ID Then%>TDSE<%ElseIf asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_VT5DM_ID Then%>VT5DM<%Else%>VTSUP<%End If%></td>
1512
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_summary)%></td>
1513
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_issue_type)%></td>
1514
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_priority)%></td>
1515
                           </tr>
1516
                        <%End If%>
1517
                        <%rsDepIss.MoveNext
1518
                     WEnd
1519
                     rsDepIss.Close()
1520
                     Set rsDepIss = nothing%>
1521
                  <%Else%>
1522
                     <tr>
1523
                        <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1524
                        <td background="images/bg_form_lightgray.gif"></td>
1525
                        <td background="images/bg_form_lightgray.gif"></td>
1526
                        <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1527
                        <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1528
                        <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1529
                        <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1530
                     </tr>
1531
                  <%End If%>
1532
               <%End If%>
1533
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1534
            <%End If%>
1535
         </table>
1536
      </fieldset>
1537
      <br><br>
1538
   <%End If%>
119 ghuddy 1539
<!-- UNIT TESTS --------------------------------------------------------------------------------------------------------------------->
121 hknight 1540
   <%
1541
   Dim testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound
1542
   Call CheckUnitTestsState ( parPv_id, testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound  )
1543
   Set rsQry = OraDatabase.DbCreateDynaset( SQL_Unit_Tests ( parPv_id ), cint(0))
1544
   %>
1545
   <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
1546
      <%If testCheckMSG_ID = 0 Then%>
1547
         &nbsp;&nbsp;<%=testCheckMSG%>
1548
      <%End If%></legend>
1549
      <a name="UNIT_TESTS"></a>
1550
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1551
         <tr>
1552
            <td align="right" valign="bottom">
1553
               <%If pageIsEditable Then%>
1554
                  <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>
1555
                  <%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = 0)  Then%>
1556
                     <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>
1557
                  <%End If%>
1558
               <%End If%>
1559
            </td>
1560
         </tr>
1561
      </table>
1562
      <%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = -1) Then%>
1563
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1564
            <tr>
1565
               <td background="images/bg_form_lightgray.gif" class="form_item">
1566
                  <%Call DisplayInfo ( "UNIT_TEST_NOT_DONE", 300 )%>
1567
                  <span class="rep_small">Last Modified: <%=testCheckMSG%></span><br>
1568
                  <%=NewLine_To_BR( To_HTML ( testCheckNote ) )%>
1569
               </td>
1570
            </tr>
1571
         </table>
1572
      <%End If%>
119 ghuddy 1573
 
121 hknight 1574
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1575
         <form name="review" method="get" action="_update_unit_test_accepted_state.asp">
1576
            <tr>
1577
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" valign="middle">&nbsp;Test Type&nbsp;</td>
1578
               <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" valign="middle">&nbsp;Test Summary&nbsp;</td>
1579
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">Test<br>Completed</td>
1580
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">&nbsp;Passed<br># / Total&nbsp;</td>
1581
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">&nbsp;Results&nbsp;</td>
1582
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">&nbsp;Accepted&nbsp;</td>
1583
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">Review<br>Completed</td>
1584
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" valign="middle">Comments /<br>Issue#</td>
1585
               <td width="1%" background="images/bg_form_lightbluedark.gif"></td>
1586
            </tr>
1587
            <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) )%>
1588
               <tr>
1589
                  <%If NOT pageIsEditable Then%>
1590
                     <%If NOT IsNull(rsQry("test_id")) AND ( scriptName = "fixed_issues.asp") Then%>
1591
                        <td nowrap background="images/bg_form_lightgray.gif" 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>
1592
                     <%Else%>
1593
                        <td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><img src="images/i_test.gif" width="16" height="16" hspace="3" align="absmiddle"><%=rsQry("test_type_name")%></td>
1594
                     <%End If%>
1595
                  <%Else%>
1596
                     <td nowrap background="images/bg_form_lightgray.gif" 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>
1597
                  <%End If%>
1598
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("test_summary") ))%></td>
1599
                  <td nowrap background="images/bg_form_lightgray.gif" 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>
1600
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top" align="center"><%=rsQry("numof_test")%></td>
119 ghuddy 1601
 
121 hknight 1602
                  <%If CInt(rsQry("test_type_id")) = enumTEST_TYPE_AUTOMATIC Then%>
1603
                     <td background="images/bg_form_lightgray.gif" class="form_item" align="center" valign="top">
1604
                        <%If NOT IsNull( rsQry("results_url") ) Then%>
1605
                           <%If InStr( rsQry("results_url"), "http://" ) = 1 Then%>
1606
                              <a href="<%=rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
1607
                           <%Else%>
1608
                              <%If pkgInfoHash.Item ("base_view_id") = CStr(enumBASE_VIEW_PRODUCTS) Then%>
1609
                                 <a href="<%=deploy_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>
1610
                              <%Else%>
1611
                                 <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>
1612
                              <%End If%>
1613
                           <%End If%>
1614
                        <%End If%>
1615
                     </td>
1616
                  <%Else%>
1617
                     <td background="images/bg_form_lightgray.gif" class="form_item"  align="center" valign="top">
1618
                        <%If NOT IsNull( rsQry("results_attachment_name") ) Then%>
1619
                           <%If pkgInfoHash.Item ("dlocked") = "Y" Then%>
1620
                              <%If pkgInfoHash.Item ("base_view_id") = CStr(enumBASE_VIEW_PRODUCTS) Then%>
1621
                                 <a href="<%=deploy_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>
1622
                              <%Else%>
1623
                                 <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>
1624
                              <%End If%>
119 ghuddy 1625
 
121 hknight 1626
                           <%Else%>
1627
                              <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>
1628
                           <%End If%>
1629
                        <%End If%>
1630
                     </td>
1631
                  <%End If%>
119 ghuddy 1632
 
121 hknight 1633
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top" align="center"><%=FormatAccepted( rsQry("test_accepted"), rsQry("test_id") )%></td>
1634
                  <td nowrap background="images/bg_form_lightgray.gif" 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>
1635
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("review_comments") ))%></td>
119 ghuddy 1636
 
121 hknight 1637
                  <%If NOT pageIsEditable Then%>
1638
                     <td background="images/bg_form_lightgray.gif" valign="top"></td>
1639
                  <%Else%>
1640
                     <td background="images/bg_form_lightgray.gif" 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>
1641
                  <%End If%>
1642
               </tr>
1643
               <%rsQry.MoveNext
1644
            WEnd%>
1645
            <tr>
1646
               <td class="form_field"></td>
1647
               <td class="form_field"></td>
1648
               <td class="form_field"></td>
1649
               <td class="form_field"></td>
1650
               <td class="form_field"></td>
1651
               <td class="form_field" align="center"><%If (testCheckTestsFound) AND (testCheckMSG_ID = 0) AND ( scriptName = "fixed_issues.asp" ) AND pageIsEditable Then%><input type="submit" name="Apply" value="Apply" class="form_btn"><%End If%></td>
1652
               <td class="form_field"></td>
1653
               <td class="form_field"></td>
1654
               <td class="form_field"></td>
1655
            </tr>
1656
            <input name="pv_id" type="hidden" value="<%=parPv_id%>">
1657
            <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
1658
         </form>
1659
      </table>
1660
   </fieldset>
1661
    <br><br>
119 ghuddy 1662
<!-- CODE REVIEW ------------------------------------------------------------------------------------------------------------------->
121 hknight 1663
   <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>
1664
      <a name="CODE_REVIEW" id="CODE_REVIEW"></a>
1665
      <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_CodeReview ( parPv_id ), cint(0))%>
1666
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1667
         <tr>
1668
            <td align="right" valign="bottom"><%If ( scriptName = "fixed_issues.asp" ) Then%>
1669
               <%If pageIsEditable Then%>
1670
                  <a href='javascript:;' onClick="MM_openBrWindow('_wform_update_code_review.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','CodeReviewEdit','scrollbars=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>
1671
               <%End If%>
1672
               <%If rsQry.RecordCount > 0 Then%>
1673
                  <%If NOT IsNull(rsQry("date_of_review")) Then%>
1674
                     &nbsp;
1675
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_code_review.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','CodeReviewView','scrollbars=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>
119 ghuddy 1676
                  <%End If%>
121 hknight 1677
               <%End If%>
1678
               <%End If%>
1679
            </td>
1680
         </tr>
1681
      </table>
1682
      <%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then%>
1683
         <%If NOT IsNull(rsQry("date_of_review")) Then%>
119 ghuddy 1684
            <table width="100%"  border="0" cellspacing="1" cellpadding="4">
121 hknight 1685
               <tr>
1686
                  <td width="1%" align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Date of Review</td>
1687
                  <td width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=EuroDate ( rsQry("date_of_review") )%>&nbsp;&nbsp;&nbsp;</td>
1688
                  <td width="1%" align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">&nbsp;&nbsp;&nbsp;Time Spent:</td>
1689
                  <td width="100%" background="images/bg_form_lightgray.gif" class="form_item"><%=rsQry("time_spent")%> hrs </td>
1690
               </tr>
1691
               <tr>
1692
                  <td align="right" valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Reason for Review</td>
1693
                  <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("review_reason") ))%></td>
1694
               </tr>
1695
               <tr>
1696
                  <td align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Review Results </td>
1697
                  <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item">
1698
                  <%=DecodeOverallResult( rsQry("review_results") )%>
1699
                  </td>
1700
               </tr>
1701
               <tr>
1702
                  <td align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issues Raised </td>
1703
                  <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("issues_raised") ))%></td>
1704
               </tr>
119 ghuddy 1705
            </table>
121 hknight 1706
         <%Else%>
119 ghuddy 1707
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
121 hknight 1708
               <tr>
1709
                  <td background="images/bg_form_lightgray.gif"><span class='sublbox_txt'>No details found.</span></td>
1710
               </tr>
119 ghuddy 1711
            </table>
121 hknight 1712
         <%End If%>
1713
      <%Else%>
1714
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1715
            <tr>
1716
               <td background="images/bg_form_lightgray.gif"><span class='sublbox_txt'>No details found.</span></td>
1717
            </tr>
1718
         </table>
1719
      <%End If%>
119 ghuddy 1720
 
121 hknight 1721
      <!-- Code Review URL section for this version -->
1722
      <%Call GetCodeReviewURLs( parPv_id, rsCodeReviewURL )%>
1723
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1724
         <tr>
1725
            <td align="left" valign="top" class="body_colb">Code Review URL for this version</td>
1726
            <td align="right" valign="top" <%If NOT IsNull(rsCodeReviewURL("url")) Then Response.Write("colspan='5'")%>>
1727
               <%If pageIsEditable Then%>
1728
                  <a href="javascript:;" onclick="MM_openBrWindow('_wform_edit_code_review_url.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','CodeReviewURLEdit','scrollbars=no,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>
1729
               <%End If%>
1730
            </td>
1731
         </tr>
1732
         <%If IsNull(rsCodeReviewURL("full_url")) Then %>
1733
            <tr>
1734
               <td background="images/bg_form_lightgray.gif" width="100%" class="form_item" colspan="2">
1735
                  <span class='sublbox_txt'>No details found.</span>
1736
               </td>
1737
            </tr>
1738
         <%Else%>
1739
            <tr>
1740
               <td background="images/bg_form_lightbluedark.gif" class="form_field">URL</td>
1741
               <td background="images/bg_form_lightbluedark.gif" width="25%" class="form_field">Reason for Review</td>
1742
               <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Date of Review</td>
1743
               <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Last Modified</td>
1744
               <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
1745
               <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
1746
            </tr>
1747
            <%If ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF)) Then
1748
               While ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF))%>
1749
                  <tr>
1750
                     <%If (Left(rsCodeReviewURL("url"),4) = "http") Then%>
1751
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="<%=rsCodeReviewURL("url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("url")%></a></td>
1752
                     <%Else%>
1753
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="<%=rsCodeReviewURL("full_url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("full_url")%></a></td>
1754
                     <%End If%>
1755
                     <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("reason")%></td>
1756
                     <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("date_of_review")%></td>
1757
                     <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("last_modified")%></td>
1758
                     <%If pageIsEditable Then%>
1759
                        <td background="images/bg_form_lightgray.gif" 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,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>
1760
                        <td background="images/bg_form_lightgray.gif" 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>
1761
                     <%Else%>
1762
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1763
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1764
                     <%End If%>
1765
                  </tr>
1766
                  <%rsCodeReviewURL.MoveNext
1767
               WEnd
1768
            Else%>
1769
               <tr>
119 ghuddy 1770
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1771
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1772
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1773
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1774
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1775
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
121 hknight 1776
               </tr>
1777
            <%End If
1778
         End If%>
1779
      </table>
119 ghuddy 1780
 
121 hknight 1781
      <!-- Code Review URL section for last non-ripple build -->
1782
      <%If pkgInfoHash.Item ("comments") = "Rippled Build." Then
1783
         Call LastPvId(pkgInfoHash.Item ("pv_id"))
1784
         While rsQry("comments") = "Rippled Build."
119 ghuddy 1785
            Call LastPvId(rsQry("last_pv_id"))
121 hknight 1786
         Wend
1787
         Dim sOldPkgVersion
1788
         Call Get_Pkg_Short_Info ( rsQry("pv_id"), NULL, NULL, sOldPkgVersion, NULL, NULL, NULL )
1789
         Call GetCodeReviewURLs( rsQry("pv_id"), rsCodeReviewURL )
1790
         %>
1791
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1792
            <tr>
1793
               <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>
1794
            </tr>
1795
            <%If IsNull(rsCodeReviewURL("url")) Then%>
1796
               <tr>
119 ghuddy 1797
                  <td background="images/bg_form_lightgray.gif" width="100%" class="form_item" colspan="2">
121 hknight 1798
                     <span class='sublbox_txt'>No details found.</span>
119 ghuddy 1799
                  </td>
121 hknight 1800
               </tr>
1801
            <%Else%>
1802
               <tr>
119 ghuddy 1803
                  <td background="images/bg_form_lightbluedark.gif" class="form_field">URL</td>
1804
                  <td background="images/bg_form_lightbluedark.gif" width="30%" class="form_field">Reason for Review</td>
1805
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Date of Review</td>
1806
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Last Modified</td>
1807
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
1808
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
121 hknight 1809
               </tr>
1810
               <%If ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF)) Then
119 ghuddy 1811
                  While ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF))%>
121 hknight 1812
                     <tr>
1813
                        <%If (Left(rsCodeReviewURL("url"),4) = "http") Then%>
1814
                           <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="<%=rsCodeReviewURL("url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("url")%></a></td>
1815
                        <%Else%>
1816
                           <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="<%=rsCodeReviewURL("full_url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("full_url")%></a></td>
1817
                        <%End If%>
1818
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("reason")%></td>
1819
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("date_of_review")%></td>
1820
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("last_modified")%></td>
1821
                        <%If pageIsEditable Then%>
1822
                           <td background="images/bg_form_lightgray.gif" 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>
1823
                           <td background="images/bg_form_lightgray.gif" 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>
1824
                        <%Else%>
1825
                           <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1826
                           <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1827
                        <%End If%>
1828
                     </tr>
1829
                     <%rsCodeReviewURL.MoveNext
119 ghuddy 1830
                  WEnd
121 hknight 1831
               Else%>
119 ghuddy 1832
                  <tr>
121 hknight 1833
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1834
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1835
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1836
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1837
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1838
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
119 ghuddy 1839
                  </tr>
121 hknight 1840
               <%End If
1841
            End If%>
1842
         </table>
1843
      <%End If%>
119 ghuddy 1844
 
121 hknight 1845
   </fieldset>
1846
   <br>
1847
   <br>
119 ghuddy 1848
<!-- ADDITIONAL NOTES ------------------------------------------------------------------------------------------------------------------->
121 hknight 1849
   <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>
1850
      <a name="ADDITIONAL_NOTES"></a>
1851
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1852
         <tr>
1853
            <td align="right" valign="bottom">
1854
               <%If pageIsEditable Then%>
1855
                  <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>
1856
               <%End If%>
1857
            </td>
1858
         </tr>
1859
      </table>
1860
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1861
         <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Additional_Notes ( parPv_id ), cint(0))%>
1862
         <%If rsQry.RecordCount < 1 Then%>
1863
            <tr>
1864
               <td class="form_field" width="100%" background="images/bg_form_lightgray.gif">&nbsp;</td>
1865
            </tr>
1866
         <%End If%>
1867
         <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
1868
            <tr>
1869
               <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="body_col">
1870
                  <%If pageIsEditable Then%>
1871
                     <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>
1872
                  <%Else%>
1873
                     <%=To_HTML (rsQry("note_title"))%>
1874
                  <%End If%>
1875
               </td>
1876
               <td width="1" background="images/bg_form_lightbluedark.gif">
1877
                  <%If pageIsEditable Then%>
1878
                     <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>
1879
                  <%End If%>
1880
               </td>
1881
            </tr>
1882
            <tr>
1883
               <td colspan="2" background="images/bg_form_lightgray.gif" class="sublbox_txt">
1884
                  <%=NewLine_To_BR( To_HTML ( rsQry("note_body") ) )%><br><br>
1885
                  <span class="rep_small">Last Modified: <%=rsQry("lastmod")%></span>
1886
               </td>
1887
            </tr>
1888
            <tr>
1889
               <td colspan="2"><img src='images/spacer.gif' width='2' height='2'></td>
1890
            </tr>
1891
            <%rsQry.MoveNext
1892
         WEnd%>
1893
      </table>
1894
   </fieldset>
1895
   <br><br>