Subversion Repositories DevTools

Rev

Rev 7417 | Rev 7468 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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