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