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>
127 ghuddy 499
            <%If pageIsEditable 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%>
127 ghuddy 883
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_ripple_properties.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','RippleType','resizable=yes,width=800,height=400')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
121 hknight 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'>"
127 ghuddy 917
                     Dim anotherQry, selectedRippleType
918
                     selectedRippleType = pkgInfoHash.Item ("ripple_field")
919
                     Set anotherQry = OraDatabase.DbCreateDynaset( "SELECT state_name from ripple_field_states WHERE state_acronym ='"& selectedRippleType &"'", cint(0))
920
                     If anotherQry.RecordCount = 0  Then
921
                        Response.write "<span class='err_alert'>Required!</span>"
121 hknight 922
                     Else
127 ghuddy 923
                       Response.write( anotherQry.Fields("state_name").Value )
121 hknight 924
                     End If
127 ghuddy 925
                     anotherQry.Close()
926
                     Set anotherQry = nothing
927
                     If ( selectedRippleType = "L" ) Then
928
                       Dim qry
929
                       Set qry = OraDatabase.DbCreateDynaset( "SELECT major_limit, minor_limit, patch_limit, build_number_limit from package_versions where pv_id="& Request("pv_id"), cint(0))
930
                       Response.write " "
931
                       If isNull(qry("major_limit")) Then
932
                         Response.write("0")
933
                       Else
934
                         Response.write( qry.Fields( "major_limit" ).Value )
935
                       End If
936
                       Response.write ", "
937
                       If isNull(qry("minor_limit")) Then
938
                         Response.write("0")
939
                       Else
940
                         Response.write( qry.Fields( "minor_limit" ).Value )
941
                       End If
942
                       Response.write ", "
943
                       If isNull(qry("patch_limit")) Then
944
                         Response.write("0")
945
                       Else
946
                         Response.write( qry.Fields( "patch_limit" ).Value )
947
                       End If
948
                       Response.write ", "
949
                       If isNull(qry("build_number_limit")) Then
950
                         Response.write("0")
951
                       Else
952
                         Response.write( qry.Fields( "build_number_limit" ).Value )
953
                       End If
954
                       qry.Close()
955
                       Set qry = nothing
956
                     End If
121 hknight 957
                     Response.Write "<br></td>"
958
                     Response.write "</tr>"
959
                     Response.write "</table>"
960
                     %>
961
                  </p>
962
               </td>
963
            </tr>
964
         </table>
965
      </fieldset>
966
      <br>
967
      <br>
968
   <%End If%>
119 ghuddy 969
<!-- REASON FOR RELEASE ----------------------------------------------------------------------------------------------------------------->
121 hknight 970
   <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>
971
      <a name="REASON_FOR_THIS_RELEASE"></a>
972
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
973
         <tr>
974
            <td align="right" valign="bottom">
975
               <%If pageIsEditable Then%>
976
                  <form name="updateversions" method="post" action="_update_versions.asp">
977
                     <input type="submit" name="btn" value="Update Dependencies" class="form_btn" onClick="return confirmAction('Current comments would be deleted. Do you wish to continue?')">
978
                     <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>
979
                     <input name="pv_id" type="hidden" value="<%=parPv_id%>">
980
                     <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
981
                  </form>
982
               <%End If%>
983
            </td>
984
         </tr>
985
      </table>
119 ghuddy 986
 
121 hknight 987
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
988
         <tr>
989
            <td background="images/bg_form_lightgray.gif">
990
            <%If pkgInfoHash.Item ("comments") <> "" Then%>
991
               <table border='0' cellspacing='0' cellpadding='0'>
992
                  <tr>
993
                     <td class='sublbox_txt'> <%Response.Write( NewLine_To_BR(pkgInfoHash.Item("comments")) )%><br></td>
994
                  </tr>
995
               </table>
996
            <%ElseIf FixedIssues ( parPv_id ) Then%>
997
               <span class='sublbox_txt'>Not specified.</span><br>
998
            <%Else%>
999
               <span class='err_alert'>Required!</span><br>
1000
            <%End If%>
1001
            </td>
1002
         </tr>
1003
      </table>
1004
   </fieldset>
1005
   <br><br>
119 ghuddy 1006
<!-- REASON FOR NON_RIPPLE RELEASE ----------------------------------------------------------------------------------------------------------------->
121 hknight 1007
   <%If pkgInfoHash.Item ("comments") = "Rippled Build." Then%>
119 ghuddy 1008
 
121 hknight 1009
      <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 1010
 
121 hknight 1011
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1012
            <tr>
1013
               <td background="images/bg_form_lightgray.gif">
1014
                  <%
1015
                  'Dim rsQry
1016
                  Call LastPvId(pkgInfoHash.Item ("pv_id"))
119 ghuddy 1017
 
121 hknight 1018
                  While rsQry("comments") = "Rippled Build."
1019
                     Call LastPvId(rsQry("last_pv_id"))
1020
                  Wend
119 ghuddy 1021
 
121 hknight 1022
                  If pkgInfoHash.Item ("comments") <> "" Then
1023
                     Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
1024
                     Response.write "<tr>"
1025
                     Response.write "<td class='sublbox_txt'><b>Package Version:</b> <b>"& NewLine_To_BR(( rsQry ("pkg_version") ) ) &"</b><br></td>"
1026
                     Response.write "</tr>"
1027
                     Response.write "<tr>"
1028
                     Response.write "<td class='sublbox_txt'>"& NewLine_To_BR(( rsQry ("comments") ) ) &"<br></td>"
1029
                     Response.write "</tr>"
119 ghuddy 1030
 
121 hknight 1031
                     Response.write "</table>"%>
119 ghuddy 1032
 
121 hknight 1033
                     <table width="100%" border="0" cellspacing="1" cellpadding="2">
1034
                        <tr>
1035
                           <td valign="top" class="sublbox_txt"><b>Fixed Issues For Last Non-Ripple Build</b></td>
1036
                           <td align="right" valign="top">
1037
                              <%If pageIsEditable Then%>
1038
                                 <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>
1039
                              <%End If%>
1040
                           </td>
1041
                        </tr>
1042
                     </table>
1043
                     <%Call Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )
1044
                     If (retVal > 0) Then
1045
                        retVal = Get_CQ_Issues ( SQLstr, rsCQ )
1046
                        If retVal = 0 Then%>
1047
                           <table width="100%" border="0" cellspacing="1" cellpadding="3">
1048
                              <tr>
1049
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td>
1050
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1051
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1052
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1053
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1054
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td>
1055
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td>
1056
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td>
1057
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">&nbsp;</td>
1058
                              </tr>
1059
                              <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1060
                                 <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1061
                                    <tr>
1062
                                       <td align="center" nowrap background="images/bg_form_lightbluedark.gif"><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
1063
                                       <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>
1064
                                       <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>
1065
                                       <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1066
                                       <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td>
1067
                                       <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1068
                                       <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td>
1069
                                       <%If sectionIsEditable Then%>
1070
                                           <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
1071
                                             <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>
1072
                                          <%Else%>
1073
                                             <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>
1074
                                          <%End If%>
1075
                                       <%Else%>
1076
                                          <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
1077
                                             <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>
1078
                                          <%Else%>
1079
                                             <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>
1080
                                          <%End If%>
1081
                                       <%End If%>
1082
                                       <%If NOT pageIsEditable Then%>
1083
                                          <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>
1084
                                       <%Else%>
1085
                                          <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>
1086
                                       <%End If%>
1087
                                    </tr>
1088
                                    <%rsCQ.MoveNext
1089
                                 WEnd
1090
                                 rsCQ.Close()%>
1091
                              <%Else%>
1092
                                 <tr>
1093
                                    <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1094
                                    <td background="images/bg_form_lightgray.gif" nowrap></td>
1095
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1096
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1097
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1098
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1099
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1100
                                    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1101
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
1102
                                 </tr>
1103
                              <%End If%>
1104
                           </table>
1105
                        <%End If%>
1106
                        <%If retVal <> 0 Then Response.write enumMSSQL_ERROR
1107
                     End If
1108
                  Else
1109
                     If FixedIssues ( parPv_id ) Then
1110
                        Response.write "<span class='sublbox_txt'>Not specified.</span><br>"
1111
                     Else
1112
                        Response.write "<span class='err_alert'>Required!</span><br>"
1113
                     End If
1114
                  End If
119 ghuddy 1115
 
121 hknight 1116
                  rsQry.Close()
1117
                  Set rsQry = nothing
1118
                  %>
1119
               </td>
1120
            </tr>
1121
         </table>
1122
      </fieldset>
1123
      <br><br>
1124
   <%End If%>
1125
<!-- FIXED ISSUES ----------------------------------------------------------------------------------------------------------------------->
123 ghuddy 1126
   <fieldset class="fset">
1127
      <legend class="body_colb">
1128
         <img src="images/s_bugs.gif" width="21" height="18" border="0" hspace="4" align="absmiddle">
1129
         Issues
1130
      </legend>
121 hknight 1131
      <p class="body_colb"><a name="ISSUES"></a></p>
1132
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
1133
         <tr>
1134
            <td valign="top" class="body_colb">JIRA Issues</td>
1135
            <td align="right" valign="top">
1136
               <%If pageIsEditable Then%>
123 ghuddy 1137
                  <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">
1138
                     Import JIRA issues
1139
                     <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
1140
                  </a>
121 hknight 1141
               <%End If%>
1142
            </td>
119 ghuddy 1143
 
121 hknight 1144
            <%retVal = Get_JIRA_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )
1145
            If (retVal > 0) Then
1146
               retVal = Get_JIRA_Issues ( SQLstr, rsCQ )
123 ghuddy 1147
               If (retVal = 0 AND rsCQ.RecordCount > 0) Then%>
121 hknight 1148
 
1149
                  <table width="100%" border="0" cellspacing="1" cellpadding="3">
1150
                     <tr>
1151
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td>
1152
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1153
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1154
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1155
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1156
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td>
1157
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td>
1158
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td>
1159
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">&nbsp;</td>
1160
                     </tr>
1161
                     <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1162
                        <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1163
                           <tr>
1164
                              <%If rsCQ("resolution") = 1 Then %>
123 ghuddy 1165
                                 <td align="center" nowrap background="images/bg_form_lightbluedark.gif">
1166
                                    <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
1167
                                 </td>
121 hknight 1168
                              <%Else%>
1169
                                 <td align="center" nowrap background="images/bg_form_lightbluedark.gif"></td>
1170
                              <%End If%>
123 ghuddy 1171
                              <td background="images/bg_form_lightgray.gif" nowrap class="form_item">
1172
                                 <a href="http://auperajir01:8080/browse/<%=rsCQ("iss_num")%>" target="_blank" class="txt_linked">
1173
                                    <%=rsCQ("iss_num")%>
1174
                                 </a>
1175
                              </td>
121 hknight 1176
                              <td background="images/bg_form_lightgray.gif" class="form_item">JIRA</td>
1177
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1178
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issuetype")%></td>
1179
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1180
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("state")%></td>
1181
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td>
1182
                              <%If NOT pageIsEditable Then%>
123 ghuddy 1183
                                 <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1184
                                    <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
1185
                                 </td>
121 hknight 1186
                              <%Else%>
123 ghuddy 1187
                                 <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1188
                                    <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');">
1189
                                       <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
1190
                                    </a>
1191
                                 </td>
121 hknight 1192
                              <%End If%>
1193
                           </tr>
1194
                           <%rsCQ.MoveNext
1195
                        WEnd
1196
                        rsCQ.Close()%>
1197
                     <%Else%>
1198
                        <tr>
119 ghuddy 1199
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1200
                           <td background="images/bg_form_lightgray.gif" nowrap></td>
1201
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1202
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
121 hknight 1203
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1204
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1205
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1206
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
119 ghuddy 1207
                           <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
121 hknight 1208
                        </tr>
1209
                     <%End If%>
119 ghuddy 1210
 
121 hknight 1211
                  </table>
1212
               <%End If%>
1213
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1214
            <%End If%>
119 ghuddy 1215
 
121 hknight 1216
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1217
               <tr>
1218
                  <td valign="top" class="body_colb">Fixed Issues</td>
1219
                  <td align="right" valign="top">
1220
                     <%If pageIsEditable Then%>
123 ghuddy 1221
                        <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">
1222
                           Import Fixed Issues from ClearQuest
1223
                           <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
1224
                        </a>
121 hknight 1225
                     <%End If%>
1226
                  </td>
1227
               </tr>
1228
            </table>
119 ghuddy 1229
 
121 hknight 1230
            <%retVal = Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )
1231
            If (retVal > 0) Then
1232
               retVal = Get_CQ_Issues ( SQLstr, rsCQ )
1233
               If retVal = 0 Then%>
1234
                  <table width="100%" border="0" cellspacing="1" cellpadding="3">
1235
                     <tr>
1236
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td>
1237
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Id&nbsp;</td>
1238
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;DB&nbsp;</td>
1239
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1240
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue&nbsp;Type&nbsp;</td>
1241
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td>
1242
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td>
1243
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td>
1244
                        <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">&nbsp;</td>
1245
                     </tr>
1246
                     <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1247
                        <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1248
                           <tr>
1249
                              <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 1250
                              <td background="images/bg_form_lightgray.gif" nowrap class="form_item">
1251
                                 <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">
1252
                                    <%=rsCQ("iss_num")%>
1253
                                 </a>
1254
                              </td>
1255
                              <td background="images/bg_form_lightgray.gif" class="form_item">
1256
                                 <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
1257
                                    DEVI
1258
                                 <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>
1259
                                    TDSE
1260
                                 <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>
1261
                                    VT5DM
1262
                                 <%Else%>
1263
                                    VTSUP
1264
                                 <%End If%>
1265
                              </td>
121 hknight 1266
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1267
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td>
1268
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1269
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td>
1270
                              <%If sectionIsEditable AND pageIsEditable Then%>
1271
                                 <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
123 ghuddy 1272
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1273
                                       <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')">
1274
                                          <img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1275
                                       </a>
1276
                                    </td>
121 hknight 1277
                                 <%Else%>
123 ghuddy 1278
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1279
                                       <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')">
1280
                                          <img src="images/i_note_off.gif" width="11" height="12" border="0" title="Add Note">
1281
                                       </a>
1282
                                    </td>
121 hknight 1283
                                 <%End If%>
1284
                              <%Else%>
1285
                                 <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
123 ghuddy 1286
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1287
                                       <img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1288
                                    </td>
121 hknight 1289
                                 <%Else%>
123 ghuddy 1290
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1291
                                       <img src="images/i_note_off.gif" width="11" height="12" border="0">
1292
                                    </td>
121 hknight 1293
                                 <%End If%>
1294
                              <%End If%>
1295
                              <%If NOT pageIsEditable Then%>
123 ghuddy 1296
                                 <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1297
                                    <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
1298
                                 </td>
121 hknight 1299
                              <%Else%>
123 ghuddy 1300
                                 <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1301
                                    <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');">
1302
                                       <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
1303
                                    </a>
1304
                                 </td>
121 hknight 1305
                              <%End If%>
1306
                           </tr>
1307
                           <%rsCQ.MoveNext
1308
                        WEnd
1309
                        rsCQ.Close()%>
1310
                     <%Else%>
1311
                        <tr>
119 ghuddy 1312
                           <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1313
                           <td background="images/bg_form_lightgray.gif" nowrap></td>
1314
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1315
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1316
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1317
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
121 hknight 1318
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1319
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
119 ghuddy 1320
                           <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
121 hknight 1321
                        </tr>
1322
                     <%End If%>
119 ghuddy 1323
 
121 hknight 1324
                  </table>
1325
               <%End If%>
1326
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1327
            <%End If%>
119 ghuddy 1328
 
121 hknight 1329
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1330
               <tr>
1331
                  <td valign="top" class="body_colb">Outstanding Issues</td>
1332
                  <td align="right" valign="top">
1333
                     <%If pageIsEditable Then%>
123 ghuddy 1334
                        <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">
1335
                           Import Outstanding Issues from ClearQuest
1336
                           <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
1337
                        </a>
121 hknight 1338
                     <%End If%>
1339
                  </td>
1340
               </tr>
1341
            </table>
119 ghuddy 1342
 
121 hknight 1343
            <%retVal = Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_IMPORTED )
1344
            If (retVal > 0) Then
1345
               retVal = Get_CQ_Issues ( SQLstr, rsCQ )
1346
               If retVal = 0 Then%>
1347
                  <table width="100%" border="0" cellspacing="1" cellpadding="2">
1348
                     <form name="fixedissues" method="get" action="_update_issues_state.asp">
1349
                        <tr>
1350
                           <%If pageIsEditable Then%>
1351
                              <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center">Fixed</td>
1352
                           <%End If%>
119 ghuddy 1353
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Id&nbsp;</td>
121 hknight 1354
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue DB&nbsp;</td>
119 ghuddy 1355
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
121 hknight 1356
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Type&nbsp;</td>
119 ghuddy 1357
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Priority</td>
121 hknight 1358
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Status</td>
1359
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Note</td>
119 ghuddy 1360
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">&nbsp;</td>
121 hknight 1361
                        </tr>
1362
                        <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1363
                           <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1364
                              <tr>
1365
                                 <%If pageIsEditable Then%>
123 ghuddy 1366
                                    <td align="center" nowrap background="images/bg_form_lightbluedark.gif">
1367
                                       <input type="checkbox" name="FRfixed" value="<%=rsCQ("iss_db") &"."& rsCQ("iss_id")%>">
1368
                                    </td>
121 hknight 1369
                                 <%End If%>
123 ghuddy 1370
                                 <td background="images/bg_form_lightgray.gif" nowrap class="form_item">
1371
                                    <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">
1372
                                       <%=rsCQ("iss_num")%>
1373
                                    </a>
1374
                                 </td>
1375
                                 <td background="images/bg_form_lightgray.gif" class="form_item">
1376
                                    <%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>
1377
                                       DEVI
1378
                                    <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>
1379
                                       TDSE
1380
                                    <%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>
1381
                                       VT5DM
1382
                                    <%Else%>
1383
                                       VTSUP
1384
                                    <%End If%>
1385
                                 </td>
121 hknight 1386
                                 <td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1387
                                 <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td>
1388
                                 <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td>
1389
                                 <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td>
1390
                                 <%If sectionIsEditable AND pageIsEditable Then%>
1391
                                    <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
123 ghuddy 1392
                                       <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1393
                                          <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')">
1394
                                             <img src="images/i_note_on.gif" width="11" height="12" border="0" alt="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1395
                                          </a>
1396
                                       </td>
121 hknight 1397
                                    <%Else%>
123 ghuddy 1398
                                       <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1399
                                          <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')">
1400
                                             <img src="images/i_note_off.gif" width="11" height="12" border="0" alt="Add Note">
1401
                                          </a>
1402
                                       </td>
121 hknight 1403
                                    <%End If%>
1404
                                 <%Else%>
1405
                                    <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
123 ghuddy 1406
                                       <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1407
                                          <img src="images/i_note_on.gif" width="11" height="12" border="0" alt="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1408
                                       </td>
121 hknight 1409
                                    <%Else%>
123 ghuddy 1410
                                       <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1411
                                          <img src="images/i_note_off.gif" width="11" height="12" border="0">
1412
                                       </td>
121 hknight 1413
                                    <%End If%>
1414
                                 <%End If%>
1415
                                 <%If NOT pageIsEditable Then%>
123 ghuddy 1416
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1417
                                       <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
1418
                                    </td>
121 hknight 1419
                                 <%Else%>
123 ghuddy 1420
                                    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
1421
                                       <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');">
1422
                                          <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
1423
                                       </a>
1424
                                    </td>
121 hknight 1425
                                 <%End If%>
1426
                              </tr>
1427
                              <%rsCQ.MoveNext
1428
                           WEnd
1429
                           rsCQ.Close()%>
1430
                           <%If pageIsEditable Then%>
1431
                              <tr>
123 ghuddy 1432
                                 <td align="center" nowrap background="images/bg_form_lightbluedark.gif">
1433
                                    <input type="submit" name="Apply" value="Apply" class="form_btn">
1434
                                 </td>
121 hknight 1435
                                 <td></td>
1436
                                 <td></td>
1437
                                 <td></td>
1438
                                 <td></td>
1439
                                 <td></td>
1440
                                 <td></td>
1441
                                 <td></td>
1442
                                 <td></td>
1443
                              </tr>
1444
                           <%End If%>
1445
                        <%Else%>
1446
                           <tr>
1447
                              <%If pageIsEditable Then%>
1448
                                 <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1449
                              <%End If%>
1450
                              <td background="images/bg_form_lightgray.gif" nowrap></td>
1451
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1452
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1453
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1454
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1455
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1456
                              <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1457
                              <td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td>
1458
                           </tr>
1459
                        <%End If%>
1460
                        <input name="pv_id" type="hidden" value="<%=parPv_id%>">
1461
                        <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
1462
                     </form>
1463
                  </table>
1464
               <%End If%>
1465
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1466
            <%End If%>
123 ghuddy 1467
<!-- DEVI-050133 Although it would seem to the human eye that the following row and table closing tags are needed, -->
1468
<!--             they do in fact cause the page to be rendered incorrectly. Hence they are commented out for now   -->
1469
<!--             until the true cause of the mis-rendering can be ascertained.                                    -->
1470
<!--     </tr> -->
1471
<!--  </table> -->
121 hknight 1472
   </fieldset>
1473
   <br><br>
119 ghuddy 1474
<!-- DEPENDENCY ISSUES (NOT FOR PATCHES!) ------------------------------------------------------------------------------------------------------->
1475
 
121 hknight 1476
   <%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
1477
      <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>
1478
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
119 ghuddy 1479
 
121 hknight 1480
            <%Call Get_Package_Issues ( parPv_id, SQLstr, NULL, NULL, NULL )
1481
            If (retVal > 0) Then
1482
               retVal = Get_Dependency_CQ_Issues ( SQLstr, rsCQ, depIssDict, issArr )
1483
               If retVal = 0 Then%>
1484
                  <%
1485
                  currG1 = 0
1486
                  G1_template = _
1487
                  "<tr>"&_
1488
                  "  <td colspan='7'><img src='images/spacer.gif' width='2' height='2'></td>"&_
1489
                  "</tr>"&_
1490
                  "<tr>"&_
1491
                  "  <td colspan='7' background='images/bg_form_lightbluedark.gif' class='form_item'>/*DEP_NAME_VERSION*//*REASONS*/</td>"&_
1492
                  "</tr>"
1493
                  Set rsDepIss = OraDatabase.DbCreateDynaset( SQL_Dependency_Issues( parPv_id ), cint(0))
1494
                  %>
1495
                  <%If ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF)) Then%>
1496
                     <%While ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF))%>
1497
                        <%
1498
                        iss_db_id = Cstr(rsDepIss("iss_db") &"."& rsDepIss("iss_id"))
1499
                        G1_style = Replace(G1_template, "/*DEP_NAME_VERSION*/", "<SPAN class='envolPkg'><b>"& rsDepIss("pkg_name") &" "& rsDepIss("pkg_version") &"</b></SPAN>")
1500
                        If IsNull(rsDepIss("iss_id")) Then
1501
                           If IsNull(rsDepIss("reasons")) Then
1502
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>Reason for this version is not specified.")
1503
                           Else
1504
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
1505
                           End If
1506
                        Else
1507
                           If IsNull(rsDepIss("reasons")) Then
1508
                              G1_style = Replace(G1_style, "/*REASONS*/", "")
1509
                           Else
1510
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
1511
                           End If
1512
                        End If
119 ghuddy 1513
 
121 hknight 1514
                        Call Group_By ( rsDepIss("pv_id"), G1_style, currG1 )
1515
                        If NOT IsNull(rsDepIss("iss_id")) Then
1516
                           If rsDepIss("pv_id") <> currG1 Then
1517
                              currG1 = rsDepIss("pv_id")%>
1518
                              <tr>
123 ghuddy 1519
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center"></td>
1520
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center">Fixed</td>
1521
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Id&nbsp;</td>
121 hknight 1522
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue DB&nbsp;</td>
123 ghuddy 1523
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td>
1524
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue&nbsp;Type&nbsp;</td>
1525
                                 <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Priority</td>
121 hknight 1526
                              </tr>
1527
                           <%End If%>
1528
                           <tr>
1529
                              <td background="images/bg_form_lightbluedark.gif"></td>
1530
                              <td align="center" nowrap background="images/bg_form_lightgray.gif">
1531
                                 <%If CInt(rsDepIss("iss_state")) = enumISSUES_STATE_FIXED Then%>
1532
                                    <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
1533
                                 <%Else%>
1534
                                    <img src="images/spacer.gif" width="7" height="7" vspace="2">
1535
                                 <%End If%>
1536
                              </td>
1537
                              <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>
1538
                              <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>
1539
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_summary)%></td>
1540
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_issue_type)%></td>
1541
                              <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_priority)%></td>
1542
                           </tr>
1543
                        <%End If%>
1544
                        <%rsDepIss.MoveNext
1545
                     WEnd
1546
                     rsDepIss.Close()
1547
                     Set rsDepIss = nothing%>
1548
                  <%Else%>
1549
                     <tr>
1550
                        <td background="images/bg_form_lightbluedark.gif" nowrap>&nbsp;</td>
1551
                        <td background="images/bg_form_lightgray.gif"></td>
1552
                        <td background="images/bg_form_lightgray.gif"></td>
1553
                        <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1554
                        <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1555
                        <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1556
                        <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1557
                     </tr>
1558
                  <%End If%>
1559
               <%End If%>
1560
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
1561
            <%End If%>
1562
         </table>
1563
      </fieldset>
1564
      <br><br>
1565
   <%End If%>
119 ghuddy 1566
<!-- UNIT TESTS --------------------------------------------------------------------------------------------------------------------->
121 hknight 1567
   <%
1568
   Dim testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound
1569
   Call CheckUnitTestsState ( parPv_id, testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound  )
1570
   Set rsQry = OraDatabase.DbCreateDynaset( SQL_Unit_Tests ( parPv_id ), cint(0))
1571
   %>
1572
   <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
1573
      <%If testCheckMSG_ID = 0 Then%>
1574
         &nbsp;&nbsp;<%=testCheckMSG%>
1575
      <%End If%></legend>
1576
      <a name="UNIT_TESTS"></a>
1577
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1578
         <tr>
1579
            <td align="right" valign="bottom">
1580
               <%If pageIsEditable Then%>
1581
                  <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>
1582
                  <%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = 0)  Then%>
1583
                     <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>
1584
                  <%End If%>
1585
               <%End If%>
1586
            </td>
1587
         </tr>
1588
      </table>
1589
      <%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = -1) Then%>
1590
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1591
            <tr>
1592
               <td background="images/bg_form_lightgray.gif" class="form_item">
1593
                  <%Call DisplayInfo ( "UNIT_TEST_NOT_DONE", 300 )%>
1594
                  <span class="rep_small">Last Modified: <%=testCheckMSG%></span><br>
1595
                  <%=NewLine_To_BR( To_HTML ( testCheckNote ) )%>
1596
               </td>
1597
            </tr>
1598
         </table>
1599
      <%End If%>
119 ghuddy 1600
 
121 hknight 1601
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1602
         <form name="review" method="get" action="_update_unit_test_accepted_state.asp">
1603
            <tr>
1604
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" valign="middle">&nbsp;Test Type&nbsp;</td>
1605
               <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" valign="middle">&nbsp;Test Summary&nbsp;</td>
1606
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">Test<br>Completed</td>
1607
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">&nbsp;Passed<br># / Total&nbsp;</td>
1608
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">&nbsp;Results&nbsp;</td>
1609
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">&nbsp;Accepted&nbsp;</td>
1610
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center" valign="middle">Review<br>Completed</td>
1611
               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" valign="middle">Comments /<br>Issue#</td>
1612
               <td width="1%" background="images/bg_form_lightbluedark.gif"></td>
1613
            </tr>
1614
            <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) )%>
1615
               <tr>
1616
                  <%If NOT pageIsEditable Then%>
1617
                     <%If NOT IsNull(rsQry("test_id")) AND ( scriptName = "fixed_issues.asp") Then%>
1618
                        <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>
1619
                     <%Else%>
1620
                        <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>
1621
                     <%End If%>
1622
                  <%Else%>
1623
                     <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>
1624
                  <%End If%>
1625
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("test_summary") ))%></td>
1626
                  <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>
1627
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top" align="center"><%=rsQry("numof_test")%></td>
119 ghuddy 1628
 
121 hknight 1629
                  <%If CInt(rsQry("test_type_id")) = enumTEST_TYPE_AUTOMATIC Then%>
1630
                     <td background="images/bg_form_lightgray.gif" class="form_item" align="center" valign="top">
1631
                        <%If NOT IsNull( rsQry("results_url") ) Then%>
1632
                           <%If InStr( rsQry("results_url"), "http://" ) = 1 Then%>
1633
                              <a href="<%=rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
1634
                           <%Else%>
1635
                              <%If pkgInfoHash.Item ("base_view_id") = CStr(enumBASE_VIEW_PRODUCTS) Then%>
1636
                                 <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>
1637
                              <%Else%>
1638
                                 <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>
1639
                              <%End If%>
1640
                           <%End If%>
1641
                        <%End If%>
1642
                     </td>
1643
                  <%Else%>
1644
                     <td background="images/bg_form_lightgray.gif" class="form_item"  align="center" valign="top">
1645
                        <%If NOT IsNull( rsQry("results_attachment_name") ) Then%>
1646
                           <%If pkgInfoHash.Item ("dlocked") = "Y" Then%>
1647
                              <%If pkgInfoHash.Item ("base_view_id") = CStr(enumBASE_VIEW_PRODUCTS) Then%>
1648
                                 <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>
1649
                              <%Else%>
1650
                                 <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>
1651
                              <%End If%>
119 ghuddy 1652
 
121 hknight 1653
                           <%Else%>
1654
                              <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>
1655
                           <%End If%>
1656
                        <%End If%>
1657
                     </td>
1658
                  <%End If%>
119 ghuddy 1659
 
121 hknight 1660
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top" align="center"><%=FormatAccepted( rsQry("test_accepted"), rsQry("test_id") )%></td>
1661
                  <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>
1662
                  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("review_comments") ))%></td>
119 ghuddy 1663
 
121 hknight 1664
                  <%If NOT pageIsEditable Then%>
1665
                     <td background="images/bg_form_lightgray.gif" valign="top"></td>
1666
                  <%Else%>
1667
                     <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>
1668
                  <%End If%>
1669
               </tr>
1670
               <%rsQry.MoveNext
1671
            WEnd%>
1672
            <tr>
1673
               <td class="form_field"></td>
1674
               <td class="form_field"></td>
1675
               <td class="form_field"></td>
1676
               <td class="form_field"></td>
1677
               <td class="form_field"></td>
1678
               <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>
1679
               <td class="form_field"></td>
1680
               <td class="form_field"></td>
1681
               <td class="form_field"></td>
1682
            </tr>
1683
            <input name="pv_id" type="hidden" value="<%=parPv_id%>">
1684
            <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
1685
         </form>
1686
      </table>
1687
   </fieldset>
1688
    <br><br>
119 ghuddy 1689
<!-- CODE REVIEW ------------------------------------------------------------------------------------------------------------------->
121 hknight 1690
   <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>
1691
      <a name="CODE_REVIEW" id="CODE_REVIEW"></a>
1692
      <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_CodeReview ( parPv_id ), cint(0))%>
1693
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1694
         <tr>
1695
            <td align="right" valign="bottom"><%If ( scriptName = "fixed_issues.asp" ) Then%>
1696
               <%If pageIsEditable Then%>
1697
                  <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>
1698
               <%End If%>
1699
               <%If rsQry.RecordCount > 0 Then%>
1700
                  <%If NOT IsNull(rsQry("date_of_review")) Then%>
1701
                     &nbsp;
1702
                     <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 1703
                  <%End If%>
121 hknight 1704
               <%End If%>
1705
               <%End If%>
1706
            </td>
1707
         </tr>
1708
      </table>
1709
      <%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then%>
1710
         <%If NOT IsNull(rsQry("date_of_review")) Then%>
119 ghuddy 1711
            <table width="100%"  border="0" cellspacing="1" cellpadding="4">
121 hknight 1712
               <tr>
1713
                  <td width="1%" align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Date of Review</td>
1714
                  <td width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=EuroDate ( rsQry("date_of_review") )%>&nbsp;&nbsp;&nbsp;</td>
1715
                  <td width="1%" align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">&nbsp;&nbsp;&nbsp;Time Spent:</td>
1716
                  <td width="100%" background="images/bg_form_lightgray.gif" class="form_item"><%=rsQry("time_spent")%> hrs </td>
1717
               </tr>
1718
               <tr>
1719
                  <td align="right" valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Reason for Review</td>
1720
                  <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("review_reason") ))%></td>
1721
               </tr>
1722
               <tr>
1723
                  <td align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Review Results </td>
1724
                  <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item">
1725
                  <%=DecodeOverallResult( rsQry("review_results") )%>
1726
                  </td>
1727
               </tr>
1728
               <tr>
1729
                  <td align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issues Raised </td>
1730
                  <td colspan="3" background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("issues_raised") ))%></td>
1731
               </tr>
119 ghuddy 1732
            </table>
121 hknight 1733
         <%Else%>
119 ghuddy 1734
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
121 hknight 1735
               <tr>
1736
                  <td background="images/bg_form_lightgray.gif"><span class='sublbox_txt'>No details found.</span></td>
1737
               </tr>
119 ghuddy 1738
            </table>
121 hknight 1739
         <%End If%>
1740
      <%Else%>
1741
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1742
            <tr>
1743
               <td background="images/bg_form_lightgray.gif"><span class='sublbox_txt'>No details found.</span></td>
1744
            </tr>
1745
         </table>
1746
      <%End If%>
119 ghuddy 1747
 
121 hknight 1748
      <!-- Code Review URL section for this version -->
1749
      <%Call GetCodeReviewURLs( parPv_id, rsCodeReviewURL )%>
1750
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1751
         <tr>
1752
            <td align="left" valign="top" class="body_colb">Code Review URL for this version</td>
1753
            <td align="right" valign="top" <%If NOT IsNull(rsCodeReviewURL("url")) Then Response.Write("colspan='5'")%>>
1754
               <%If pageIsEditable Then%>
1755
                  <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>
1756
               <%End If%>
1757
            </td>
1758
         </tr>
1759
         <%If IsNull(rsCodeReviewURL("full_url")) Then %>
1760
            <tr>
1761
               <td background="images/bg_form_lightgray.gif" width="100%" class="form_item" colspan="2">
1762
                  <span class='sublbox_txt'>No details found.</span>
1763
               </td>
1764
            </tr>
1765
         <%Else%>
1766
            <tr>
1767
               <td background="images/bg_form_lightbluedark.gif" class="form_field">URL</td>
1768
               <td background="images/bg_form_lightbluedark.gif" width="25%" class="form_field">Reason for Review</td>
1769
               <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Date of Review</td>
1770
               <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Last Modified</td>
1771
               <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
1772
               <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
1773
            </tr>
1774
            <%If ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF)) Then
1775
               While ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF))%>
1776
                  <tr>
1777
                     <%If (Left(rsCodeReviewURL("url"),4) = "http") Then%>
1778
                        <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>
1779
                     <%Else%>
1780
                        <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>
1781
                     <%End If%>
1782
                     <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("reason")%></td>
1783
                     <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("date_of_review")%></td>
1784
                     <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("last_modified")%></td>
1785
                     <%If pageIsEditable Then%>
1786
                        <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>
1787
                        <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>
1788
                     <%Else%>
1789
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1790
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1791
                     <%End If%>
1792
                  </tr>
1793
                  <%rsCodeReviewURL.MoveNext
1794
               WEnd
1795
            Else%>
1796
               <tr>
119 ghuddy 1797
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1798
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1799
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1800
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1801
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1802
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
121 hknight 1803
               </tr>
1804
            <%End If
1805
         End If%>
1806
      </table>
119 ghuddy 1807
 
121 hknight 1808
      <!-- Code Review URL section for last non-ripple build -->
1809
      <%If pkgInfoHash.Item ("comments") = "Rippled Build." Then
1810
         Call LastPvId(pkgInfoHash.Item ("pv_id"))
1811
         While rsQry("comments") = "Rippled Build."
119 ghuddy 1812
            Call LastPvId(rsQry("last_pv_id"))
121 hknight 1813
         Wend
1814
         Dim sOldPkgVersion
1815
         Call Get_Pkg_Short_Info ( rsQry("pv_id"), NULL, NULL, sOldPkgVersion, NULL, NULL, NULL )
1816
         Call GetCodeReviewURLs( rsQry("pv_id"), rsCodeReviewURL )
1817
         %>
1818
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1819
            <tr>
1820
               <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>
1821
            </tr>
1822
            <%If IsNull(rsCodeReviewURL("url")) Then%>
1823
               <tr>
119 ghuddy 1824
                  <td background="images/bg_form_lightgray.gif" width="100%" class="form_item" colspan="2">
121 hknight 1825
                     <span class='sublbox_txt'>No details found.</span>
119 ghuddy 1826
                  </td>
121 hknight 1827
               </tr>
1828
            <%Else%>
1829
               <tr>
119 ghuddy 1830
                  <td background="images/bg_form_lightbluedark.gif" class="form_field">URL</td>
1831
                  <td background="images/bg_form_lightbluedark.gif" width="30%" class="form_field">Reason for Review</td>
1832
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Date of Review</td>
1833
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Last Modified</td>
1834
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
1835
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="18px" class="form_field"></td>
121 hknight 1836
               </tr>
1837
               <%If ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF)) Then
119 ghuddy 1838
                  While ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF))%>
121 hknight 1839
                     <tr>
1840
                        <%If (Left(rsCodeReviewURL("url"),4) = "http") Then%>
1841
                           <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>
1842
                        <%Else%>
1843
                           <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>
1844
                        <%End If%>
1845
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("reason")%></td>
1846
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("date_of_review")%></td>
1847
                        <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsCodeReviewURL("last_modified")%></td>
1848
                        <%If pageIsEditable Then%>
1849
                           <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>
1850
                           <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>
1851
                        <%Else%>
1852
                           <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1853
                           <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
1854
                        <%End If%>
1855
                     </tr>
1856
                     <%rsCodeReviewURL.MoveNext
119 ghuddy 1857
                  WEnd
121 hknight 1858
               Else%>
119 ghuddy 1859
                  <tr>
121 hknight 1860
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1861
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1862
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1863
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1864
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
1865
                     <td background="images/bg_form_lightgray.gif" class="form_item"></td>
119 ghuddy 1866
                  </tr>
121 hknight 1867
               <%End If
1868
            End If%>
1869
         </table>
1870
      <%End If%>
119 ghuddy 1871
 
121 hknight 1872
   </fieldset>
1873
   <br>
1874
   <br>
119 ghuddy 1875
<!-- ADDITIONAL NOTES ------------------------------------------------------------------------------------------------------------------->
121 hknight 1876
   <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>
1877
      <a name="ADDITIONAL_NOTES"></a>
1878
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1879
         <tr>
1880
            <td align="right" valign="bottom">
1881
               <%If pageIsEditable Then%>
1882
                  <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>
1883
               <%End If%>
1884
            </td>
1885
         </tr>
1886
      </table>
1887
      <table width="100%" border="0" cellspacing="1" cellpadding="2">
1888
         <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Additional_Notes ( parPv_id ), cint(0))%>
1889
         <%If rsQry.RecordCount < 1 Then%>
1890
            <tr>
1891
               <td class="form_field" width="100%" background="images/bg_form_lightgray.gif">&nbsp;</td>
1892
            </tr>
1893
         <%End If%>
1894
         <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
1895
            <tr>
1896
               <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="body_col">
1897
                  <%If pageIsEditable Then%>
1898
                     <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>
1899
                  <%Else%>
1900
                     <%=To_HTML (rsQry("note_title"))%>
1901
                  <%End If%>
1902
               </td>
1903
               <td width="1" background="images/bg_form_lightbluedark.gif">
1904
                  <%If pageIsEditable Then%>
1905
                     <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>
1906
                  <%End If%>
1907
               </td>
1908
            </tr>
1909
            <tr>
1910
               <td colspan="2" background="images/bg_form_lightgray.gif" class="sublbox_txt">
1911
                  <%=NewLine_To_BR( To_HTML ( rsQry("note_body") ) )%><br><br>
1912
                  <span class="rep_small">Last Modified: <%=rsQry("lastmod")%></span>
1913
               </td>
1914
            </tr>
1915
            <tr>
1916
               <td colspan="2"><img src='images/spacer.gif' width='2' height='2'></td>
1917
            </tr>
1918
            <%rsQry.MoveNext
1919
         WEnd%>
1920
      </table>
1921
   </fieldset>
1922
   <br><br>