Subversion Repositories DevTools

Rev

Rev 7395 | Rev 7457 | 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 
 
7417 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 S3Tranfer.json file then files in the S3Tranfer.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 --------------------------------------------------------------------------------------------------------------->
6324 dpurdie 774 
   <fieldset class="fset">
775 
   <legend class="body_colb"><img src='images/s_info.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Package Information</legend>
776 
   <div style="display: block;float: right;margin-top: -20px;background-color: #FFF;padding: 0 5px;">
777 
   <%If pageIsEditable Then%>
6827 dpurdie 778 
           <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 779 
   <%End If%>
780 
   </div>
121 hknight 781 
   <a name="PACKAGE_INFORMATION"></a>
6873 dpurdie 782 
   <table width="100%" border="0" cellspacing="1" cellpadding="2" class='lhsGrey'>
129 ghuddy 783 
      <%
784 
      Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))
161 iaugusti 785 
 
137 ghuddy 786 
      Call get_vcs_info_for_package( rsQry("pkg_label"), rsQry("build_type"), rsQry("vcs_type_id"), rsQry("dlocked"), vcsInfoCollector )
161 iaugusti 787 
 
788 
      %>
129 ghuddy 789 
 
161 iaugusti 790 
      <%
5293 dpurdie 791 
        ' Status:
161 iaugusti 792 
        Dim sstate
171 brianf 793 
        Dim bcan_unlock
161 iaugusti 794 
        Dim stitle
171 brianf 795 
        Dim bis_patch
5293 dpurdie 796 
        Dim spkgType
6610 dpurdie 797 
        Dim shref
161 iaugusti 798 
 
171 brianf 799 
        bis_patch = not IsNull(pkgInfoHash.Item ("is_patch"))
3616 dpurdie 800 
        If bis_patch Then
801 
          ' the user can unlock a patch if they have permission
802 
          ' packages can be unlocked by the btnUnlockRelease button
5061 dpurdie 803 
          bcan_unlock = canActionControlInProject("UnlockPatch")
5293 dpurdie 804 
          spkgType = "Patch"
3616 dpurdie 805 
        Else
5061 dpurdie 806 
          bcan_unlock = canActionControlInProject("EditCriticalInfoForLockedPackage")
5293 dpurdie 807 
          spkgType = "Package"
3616 dpurdie 808 
        End If
171 brianf 809 
 
5086 dpurdie 810 
        If pkgInfoHash.Item("is_sdkpkg") Then bcan_unlock = FALSE
811 
 
3959 dpurdie 812 
        Select Case pkgInfoHash.Item ("dlocked")
813 
            Case "Y"  sstate = "Released"
814 
            Case "N"  sstate = "Not Released"
815 
            Case "P"  sstate = "Not Released. Pending approval"
6181 dpurdie 816 
            Case "A"  sstate = "Not Released. Approved for build"
3959 dpurdie 817 
            Case "R"  sstate = "Not Released. Rejected"
818 
            Case Else sstate = "Not Released. Invalid State"
819 
        End Select
820 
 
171 brianf 821 
        If bcan_unlock  Then
161 iaugusti 822 
          If (pkgInfoHash.Item ("dlocked") = "Y") Then
5293 dpurdie 823 
            ' Unlock patch/package.
824 
            stitle="Unlock the " & spkgType
161 iaugusti 825 
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
5293 dpurdie 826 
 
161 iaugusti 827 
          ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
5293 dpurdie 828 
            ' lock patch/package.
829 
            stitle="Lock the "& spkgType &". Release requirements are not applied."
161 iaugusti 830 
            shref="_s_lock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
5293 dpurdie 831 
 
3616 dpurdie 832 
          Else
5293 dpurdie 833 
            ' unlock patch/package.
834 
            stitle="Unlock the " & spkgType
3616 dpurdie 835 
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
836 
            bcan_unlock = FALSE
161 iaugusti 837 
          End If
838 
        End if
129 ghuddy 839 
      %>
161 iaugusti 840 
 
121 hknight 841 
      <tr>
6873 dpurdie 842 
         <td>
6579 dpurdie 843 
         <% If bcan_unlock Then %>
6873 dpurdie 844 
              <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 845 
         <% Else %>
6873 dpurdie 846 
              Status:<img src='images/i_edit_disable.gif' width='12' height='12' border='0' title='Cannot change status' align='absmiddle'>
171 brianf 847 
         <% End If %>
161 iaugusti 848 
         </td>
6873 dpurdie 849 
         <td><%=sstate%></td>
161 iaugusti 850 
      </tr>
851 
 
852 
      <tr>
6873 dpurdie 853 
         <td>Deployable:</td>
854 
         <td><%=iif(IsNull( rsQry("is_deployable") ), "No","Yes")%></td>
121 hknight 855 
      </tr>
129 ghuddy 856 
 
7395 dpurdie 857 
<%If parRtag_id <> "" Then
858 
    Call Get_Pkg_Info_s3Sync
859 
    Dim s3Text
860 
    If pkgInfoHash("s3Sync") <> "Y" Then
861 
        s3Text = "No"
862 
    Else
863 
        If pkgInfoHash("s3SyncEnabled") <> "Y" Then
864 
            s3Text = "Yes. Ignored as the Release does not support S3Sync"
865 
        Else
866 
            s3Text = "Yes"
867 
        End If
868 
    End If
869 
 
870 
    Dim s3Content, s3ContentClass
871 
    If pkgInfoHash("s3Sync") = "Y" AND pkgInfoHash("s3SyncContent") <> "Y"  Then
872 
        s3Content = "No S3 transferable content detected"
873 
        If pkgInfoHash("s3SyncEnabled") = "Y" Then s3ContentClass = "err_alert"
874 
    ElseIf pkgInfoHash("s3Sync") <> "Y" AND pkgInfoHash("s3SyncContent") = "Y"  Then
875 
        s3Content = "S3 transferable content detected"
876 
    End If
877 
    If s3Content <> "" Then
878 
        s3Content = ". <span class="&s3ContentClass&">" & s3Content & "</span>"
879 
    End If
880 
%>
161 iaugusti 881 
      <tr>
7395 dpurdie 882 
         <td>Sync to S3:<%=Quick_Help("s3Sync")%></td>
883 
         <td><%=s3Text%><%=s3Content%>
884 
      </tr>
885 
<%End If%>
886 
 
887 
      <tr>
6873 dpurdie 888 
         <td>Short Description:</td>
889 
         <td class="clip">
161 iaugusti 890 
            <%If IsNull( rsQry("pv_description") ) Then%>
5596 dpurdie 891 
               <span class='err_alert'>Required!</span>
892 
            <%Else%>
893 
              <%=NewLine_To_BR ( To_HTML( rsQry("pv_description") ) )%>
161 iaugusti 894 
            <%End If%>
895 
         </td>
896 
      </tr>
897 
      <tr>
6873 dpurdie 898 
         <td>Package Overview:</td>
899 
         <td class="clip">
161 iaugusti 900 
            <%If IsNull( rsQry("pv_overview") ) Then%>
5596 dpurdie 901 
               <span class='err_alert'>Required!</span>
902 
            <%Else%>
903 
               <%=NewLine_To_BR ( To_HTML( rsQry("pv_overview") ) )%>
161 iaugusti 904 
            <%End If%>
905 
         </td>
906 
      </tr>
5338 dpurdie 907 
	  <!-- Package Licence information -->
5980 dpurdie 908 
      <%
909 
        Dim sonclick
6642 dpurdie 910 
        Dim imgClass
911 
        Dim sClass
5980 dpurdie 912 
      %>
5338 dpurdie 913 
      <tr>
6873 dpurdie 914 
         <td>
6827 dpurdie 915 
            <%BuildEditButtonRaw canActionControlInProject ("EditPackageLicence") OR canActionControl("MSMaintainer"), _
916 
                "Package Licence:", "Edit", False, "src='images/i_edit.gif' width='12' height='12' border='0' align='absmiddle'",_
917 
                "MM_openVixIFrame('_wform_change_licence.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"','Change License')" %>
5980 dpurdie 918 
         </td>
6873 dpurdie 919 
         <td>
5338 dpurdie 920 
            <%=getLicence()%>
921 
         </td>
922 
      </tr>
6827 dpurdie 923 
	  <!-- Build Owner -->
6873 dpurdie 924 
      <tr>
925 
        <td>
6827 dpurdie 926 
         <%BuildEditButtonRaw objAccessControl.UserLogedIn() AND NOT pkgInfoHash.Item("is_sdkpkg"),_
927 
             "Build Owner:", "Edit", False, "src='images/i_edit.gif' width='12' height='12' border='0' align='absmiddle'",_
928 
             "MM_openVixIFrame('_wform_change_owner.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"','Change Owner')" %>
6642 dpurdie 929 
          <%=Quick_Help("BuildOwner")%>
161 iaugusti 930 
        </td>
6873 dpurdie 931 
        <td><%=emailField(pkgInfoHash.Item ("owner"),pkgInfoHash.Item ("owner_email"))%></td>
161 iaugusti 932 
      </tr>
933 
 
934 
      <tr>
6873 dpurdie 935 
         <td>Created:</td>
936 
         <td>
6999 dpurdie 937 
            <%=DisplayDateTimeSecs(pkgInfoHash.Item ("created_stamp"))&" by "& emailField(pkgInfoHash.Item ("creator"),pkgInfoHash.Item ("creator_email"))%>
161 iaugusti 938 
         </td>
939 
      </tr>
940 
 
941 
      <%
942 
        ' Last Modified:
943 
      %>
944 
      <tr>
6873 dpurdie 945 
         <td>Last Modified:</td>
946 
         <td>
6610 dpurdie 947 
            <%=DisplayDateTimeSecs(pkgInfoHash.Item ("modified_stamp"))&" by "& emailField(pkgInfoHash.Item ("modifier"),pkgInfoHash.Item ("modifier_email"))%>
161 iaugusti 948 
         </td>
949 
      </tr>
950 
 
951 
      <%
952 
        ' Added to Release
953 
        If IsNull(pkgInfoHash.Item ("is_patch"))  AND  (Request("rtag_id") <> "") AND (pkgInfoHash.Item ("insertor") <> "") Then
954 
      %>
955 
      <tr>
6873 dpurdie 956 
         <td>Added to Release:</td>
957 
         <td>
6999 dpurdie 958 
            <%=DisplayDateTimeSecs(pkgInfoHash.Item ("insert_stamp")) &" by "& emailField(pkgInfoHash.Item ("insertor"),pkgInfoHash.Item ("insertor_email"))%>
161 iaugusti 959 
         </td>
960 
      </tr>
961 
      <%End If%>
962 
 
139 ghuddy 963 
      <%If (vcsInfoCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) OR (vcsInfoCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then%>
129 ghuddy 964 
         <tr>
6873 dpurdie 965 
            <td>Version Control System:</td>
966 
            <td>
129 ghuddy 967 
               <%=NewLine_To_BR ( To_HTML( vcsInfoCollector.Item("vcs_name") ) )%>
5596 dpurdie 968 
             <%If (vcsInfoCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) AND pkgInfoHash.Item ("build_type") = "A" Then%>
969 
             <span class='err_alert'>[Requires Manual Build]</span>
970 
             <%End If%>
971 
             <td>
129 ghuddy 972 
         </tr>
1376 dpurdie 973 
 
129 ghuddy 974 
         <tr>
6873 dpurdie 975 
            <td>Source Path:</td>
976 
            <td>
1376 dpurdie 977 
               <%If IsNull( rsQry("src_path") ) Then%>
978 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
129 ghuddy 979 
               <%End If%>
980 
            </td>
981 
         </tr>
1376 dpurdie 982 
 
129 ghuddy 983 
         <tr>
6873 dpurdie 984 
            <td>Label:</td>
985 
            <td>
1376 dpurdie 986 
               <%If IsNull( rsQry("pkg_label") ) Then%>
987 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%>
129 ghuddy 988 
               <%End If%>
989 
            </td>
990 
         </tr>
7379 dpurdie 991 
      <%ElseIf vcsInfoCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG OR vcsInfoCollector.Item("vcs_tag") = enum_VCS_GIT_TAG Then%>
129 ghuddy 992 
         <tr>
6873 dpurdie 993 
            <td>Version Control System:</td>
994 
            <td>
129 ghuddy 995 
               <%=NewLine_To_BR ( To_HTML( vcsInfoCollector.Item("vcs_name") ) )%>
996 
            </td>
997 
         </tr>
1376 dpurdie 998 
 
129 ghuddy 999 
         <tr>
6873 dpurdie 1000 
            <td>Source Path:</td>
1001 
            <td class="clip">
129 ghuddy 1002 
               <%If IsNull( rsQry("src_path") ) Then%>
1003 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
1004 
               <%End If%>
1005 
            </td>
1006 
         </tr>
1376 dpurdie 1007 
 
183 brianf 1008 
         <tr>
6873 dpurdie 1009 
            <td>Tag:</td>
1010 
            <td class="clip">
191 brianf 1011 
               <%If IsNull( rsQry("pkg_label") ) Then%>
1012 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%>
1013 
               <%End If%>
183 brianf 1014 
            </td>
1015 
         </tr>
1376 dpurdie 1016 
 
129 ghuddy 1017 
      <%ElseIf vcsInfoCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG Then%>
1018 
         <tr>
6873 dpurdie 1019 
            <td>Version Control System:</td>
1020 
            <td>
129 ghuddy 1021 
               <%=NewLine_To_BR ( To_HTML( vcsInfoCollector.Item("vcs_name") ) )%>
1022 
            </td>
1023 
         </tr>
1024 
      <%Else%>
1025 
         <tr>
6873 dpurdie 1026 
            <td>Version Control System:</td>
1027 
            <td>
129 ghuddy 1028 
               <span class='err_alert'>Required!</span>
1029 
            </td>
1030 
         </tr>
1031 
      <%End If%>
1032 
 
121 hknight 1033 
      <tr>
6873 dpurdie 1034 
         <td>
6827 dpurdie 1035 
         <%BuildEditButtonRaw (pkgInfoHash.Item("can_edit_in_project") = "1") AND (objAccessControl.UserLogedIn) AND (canActionInProject()) AND pkgInfoHash.Item("base_view_id") <> "",_
1036 
             "Base View:", "Edit", False, "src='images/i_edit.gif' width='12' height='12' border='0' align='absmiddle'",_
7349 dpurdie 1037 
             "MM_openVixIFrame('_wform_change_group.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"','Set Package Base View')" %><%=Quick_Help("baseView")%>
6579 dpurdie 1038 
         </td>
6873 dpurdie 1039 
         <td class="clip">
6642 dpurdie 1040 
         <% Dim CleanView : CleanView = pkgInfoHash.Item("view_name")
1041 
            If CleanView = "" Then CleanView = "N/A"
7349 dpurdie 1042 
            If pkgInfoHash.Item("release_view_name") <> ""  AND pkgInfoHash.Item("view_name") <> pkgInfoHash.Item("release_view_name") Then
1043 
                Response.Write "[" & pkgInfoHash.Item("release_view_name") & "]&nbsp;"
1044 
            End If
6642 dpurdie 1045 
            Response.Write CleanView
1046 
          %>
121 hknight 1047 
         </td>
1048 
      </tr>
161 iaugusti 1049 
 
121 hknight 1050 
      <tr>
6873 dpurdie 1051 
         <td>Following:<%=Quick_Help("following")%></td>
1052 
         <td><%=GetFollowing()%></td>
5266 dpurdie 1053 
      </tr>
1054 
 
1055 
      <tr>
6873 dpurdie 1056 
         <td>Build Standard:</td>
121 hknight 1057 
         <%
1058 
         If pkgInfoHash.Item ("bs_id") <> "" Then
1059 
            If pkgInfoHash.Item ("bs_id") = "1" Then
6873 dpurdie 1060 
               Response.write "<td>JATS<br></td>"
119 ghuddy 1061 
 
121 hknight 1062 
            ElseIf pkgInfoHash.Item ("bs_id") = "2" Then
6873 dpurdie 1063 
               Response.write "<td>ANT<br></td>"
119 ghuddy 1064 
 
121 hknight 1065 
            ElseIf pkgInfoHash.Item ("bs_id") = "3" Then
6873 dpurdie 1066 
               Response.write "<td>NONE"
5596 dpurdie 1067 
               If pkgInfoHash.Item("build_type") = "A" Then
1068 
                    Response.write "<span class='err_alert'> [Must be specified for an automated build]</span>"
1069 
               End If
1070 
               Response.write "<br></td>"
121 hknight 1071 
            End If
1072 
         Else
129 ghuddy 1073 
            If vcsInfoCollector.Item("vcs_tag") <> enum_VCS_UNCONTROLLED_TAG Then
6873 dpurdie 1074 
               Response.write "<td><span class='err_alert'>Required!</span><br></td>"
129 ghuddy 1075 
            Else
6873 dpurdie 1076 
               Response.write "<td>Unspecified<br></td>"
129 ghuddy 1077 
            End If
121 hknight 1078 
         End If
1079 
         %>
1080 
      </tr>
129 ghuddy 1081 
      <%If (NOT IsNull(pkgInfoHash.Item ("bs_id"))) AND (pkgInfoHash.Item ("bs_id") <> "3") Then%>
1082 
         <tr>
6873 dpurdie 1083 
            <td>Build Environment:</td>
129 ghuddy 1084 
            <%
1085 
            '--- Get Build Env Details
1086 
            Set rsTemp = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
1087 
            %>
6873 dpurdie 1088 
            <td>
129 ghuddy 1089 
               <%If rsTemp.RecordCount = 0 Then%>
1090 
                  <%If rsQry("is_build_env_required") = enumDB_NO Then%>
1091 
                     Not Required
1092 
                  <%Else%>
1093 
                     <span class='err_alert'>Required!</span>
1094 
                  <%End If%>
1095 
               <%Else%>
1096 
                  <%If (IsNull( rsQry("is_build_env_required") ) AND (rsQry("comments") <> "Rippled Build.")) Then%>
1097 
                     <span class='err_alert'>Required!</span>
1098 
                  <%ElseIf rsQry("is_build_env_required") = enumDB_NO Then%>
1099 
                     Not Required.
1100 
                  <%Else%>
1376 dpurdie 1101 
                     <table width="40%"  border="0" cellspacing="0" cellpadding="1">
129 ghuddy 1102 
                        <%
1103 
                        currG1 = 0
1104 
                        While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
4134 dpurdie 1105 
                           If currG1 <> CInt(rsTemp("bm_id")) Then%>
129 ghuddy 1106 
                              <tr>
6873 dpurdie 1107 
                                 <td colspan="2" nowrap>
4134 dpurdie 1108 
                                    <%=rsTemp("bm_name")%>&nbsp;<%=GetBuildType( rsTemp("bsa_id"),rsTemp("bsa_name") )%>
129 ghuddy 1109 
                                 </td>
1110 
                              </tr>
1111 
                              <%currG1 = CInt(rsTemp("bm_id"))
1112 
                           End If
1113 
                           rsTemp.MoveNext
1114 
                        WEnd
1115 
                        %>
1116 
                     </table>
1117 
                  <%End If%>
121 hknight 1118 
               <%End If%>
129 ghuddy 1119 
            </td>
1120 
         </tr>
1121 
      <%End If%>
1122 
 
2735 dpurdie 1123 
      <%
1124 
      ' Get JATS extraction commands
1125 
      Dim  sjats_cmd_test, sjats_cmds_qh, sjats_extractable
1126 
      ReDim sjats_cmds(6)
1127 
      call Jats_Extract_Command(sjats_cmds, sjats_cmd_test, sjats_cmds_qh, sjats_extractable)
6497 dpurdie 1128 
      Dim PrevVerTitle : PrevVerTitle = "Previous Version:"
2735 dpurdie 1129 
 
6480 dpurdie 1130 
      ' Previous Versions
6827 dpurdie 1131 
      If pkgInfoHash.Item ("pkg_count") = 1 AND pkgInfoHash.Item ("dlocked") = "N" Then
6497 dpurdie 1132 
        Call DisplayVersionRow(NULL, PrevVerTitle, "PreviousVcsTag")
1133 
        Call DisplayCreationCommands()
6480 dpurdie 1134 
 
6497 dpurdie 1135 
      ElseIf IsNull(pkgInfoHash.Item ("is_patch")) Then
1136 
 
6480 dpurdie 1137 
        If canActionControlInProject("ChangePreviousVersion") AND NOT pkgInfoHash.Item("is_sdkpkg") Then
5590 dpurdie 1138 
            sonclick="MM_openVixIFrame('_wform_change_previous_version.asp?rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &"','Change Previous Version')"
6873 dpurdie 1139 
            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 1140 
        Else
6642 dpurdie 1141 
            PrevVerTitle = PrevVerTitle & "<img src='images/i_edit_disable.gif' width='12' height='12' border='0' align='absmiddle'>"
6480 dpurdie 1142 
        End If
1143 
        Call DisplayVersionRow(pkgInfoHash.Item ("last_pv_id"), PrevVerTitle, "PreviousVcsTag")
129 ghuddy 1144 
 
6480 dpurdie 1145 
        Dim iLastSignificantPVID
1146 
        Dim iRippleBasePVID
1147 
        Call getLastSignificantVersions(pkgInfoHash.Item("pv_id"), iRippleBasePVID, iLastSignificantPVID)
129 ghuddy 1148 
 
6480 dpurdie 1149 
        Call DisplayVersionRow(iRippleBasePVID, "Previous NonRipple Version:", "PreviousNonRippleVcsTag")
1150 
        Call DisplayVersionRow(iLastSignificantPVID, "Previous Significant Version:", "PreviousSignificantVcsTag")
1151 
      End If
161 iaugusti 1152 
      %>
1153 
      <tr>
6873 dpurdie 1154 
         <td>JATS extraction commands:<%=Quick_Help ( "JatsExtraction_" & sjats_cmds_qh )%></td>
6121 dpurdie 1155 
         <td style="padding: 0px;">
1156 
         <table class="full_table">
1376 dpurdie 1157 
         <% Dim ii : For ii = 0 to UBound(sjats_cmds) %>
6873 dpurdie 1158 
             <tr><td class="clip"><%=NewLine_To_BR ( To_HTML(sjats_cmds(ii)) )%>&nbsp;</td>
1376 dpurdie 1159 
         <% Next %>
161 iaugusti 1160 
         </td>
1376 dpurdie 1161 
         </tr>
1162 
         </table>
161 iaugusti 1163 
      </tr>
1164 
      <tr>
6873 dpurdie 1165 
         <td>JATS Test:<%=Quick_Help ( "JatsTest" )%></td>
1166 
         <td class="clip"><%=NewLine_To_BR ( To_HTML(sjats_cmd_test) )%></td>
161 iaugusti 1167 
      </tr>
129 ghuddy 1168 
 
161 iaugusti 1169 
      <%
1376 dpurdie 1170 
      ' Beyond Compare difference command
1171 
      Dim prevVcsTag
1172 
      Dim curVcsTag
6497 dpurdie 1173 
      Dim sBcCmd, sBcClass
1376 dpurdie 1174 
 
1175 
      prevVcsTag = Get_Pkg_Vcs_Tag(iLastSignificantPVID)
1176 
      curVcsTag = Get_Pkg_Vcs_Tag(parPv_id)
1177 
      sBcCmd = ""
6497 dpurdie 1178 
      sBcClass = ""
1376 dpurdie 1179 
 
6497 dpurdie 1180 
      If pkgInfoHash.Item ("pkg_count") = 1 Then
1181 
            sBcCmd = "No prior version compare against"
1182 
      ElseIf (IsNull(prevVcsTag) OR prevVcsTag = "" ) Then
1376 dpurdie 1183 
            sBcCmd = "No prior label to compare against"
1184 
      ElseIf (IsNull(curVcsTag) OR curVcsTag = "" ) Then
1185 
            sBcCmd = "Current VCS tag not yet specified"
2735 dpurdie 1186 
      ElseIf (not sjats_extractable) Then
1187 
            sBcCmd = "Cannot be extracted with JATS"
1376 dpurdie 1188 
      Else
1189 
            sBcCmd = "jats vcsdiff -old=" & prevVcsTag & " -new=" & curVcsTag
6497 dpurdie 1190 
            sBcClass = "clip"
1376 dpurdie 1191 
      End If
1192 
      sBcCmd = NewLine_To_BR( To_HTML (sBcCmd) )
6873 dpurdie 1193 
      %>
1376 dpurdie 1194 
 
161 iaugusti 1195 
      <tr>
6873 dpurdie 1196 
        <td>Beyond Compare command:<%=Quick_Help ( "BeyondCompare" )%></td>
1197 
        <td class="<%=sBcClass%>"><%=sBcCmd%></td>
161 iaugusti 1198 
      </tr>
1199 
 
119 ghuddy 1200 
 
121 hknight 1201 
      <%If pkgInfoHash.Item("is_deployable") = "Y" Then
1202 
         OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item ("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
1203 
         Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("DeploymentManagerReference.sql"), cint(0))
1204 
         If rsTemp.RecordCount = 0 Then%>
1205 
            <tr>
6873 dpurdie 1206 
               <td>SBOM Information:</td>
121 hknight 1207 
               <%If pkgInfoHash.Item("product_state") = 3 Then%>
6873 dpurdie 1208 
                  <td class="err_alert"><b>Ready For Deployment!</b></td>
121 hknight 1209 
               <%ElseIf pkgInfoHash.Item("product_state") = 2 Then%>
6873 dpurdie 1210 
                  <td class="err_alert"><b>Ready For Testing!</b></td>
121 hknight 1211 
               <%ElseIf pkgInfoHash.Item("product_state") = 1 Then%>
6873 dpurdie 1212 
                  <td class="err_alert"><b>Ready For Integration!</b></td>
121 hknight 1213 
               <%ElseIf pkgInfoHash.Item("product_state") = 5 Then%>
6873 dpurdie 1214 
                  <td class="err_alert"><b>Ready For Integration and Deployment!</b></td>
121 hknight 1215 
               <%ElseIf IsNull(pkgInfoHash.Item("product_state")) Then%>
6873 dpurdie 1216 
                  <td class="err_alert"><b>Information Unavailable!</b></td>
121 hknight 1217 
               <%End If%>
119 ghuddy 1218 
 
1219 
            </tr>
121 hknight 1220 
         <%Else%>
119 ghuddy 1221 
            <tr>
6873 dpurdie 1222 
               <td>SBOM Added/Updated:</td>
1223 
               <td><%=rsTemp("branch_name")%> - <%=rsTemp("bom_name")%><%=VBNewLine%><%=rsTemp("version")%></td>
119 ghuddy 1224 
            </tr>
121 hknight 1225 
         <%End If
1226 
         rsTemp.Close()
1227 
         Set rsTemp = Nothing
1228 
         OraDatabase.Parameters.Remove "PV_ID"
1229 
      End If
1230 
      %>
1231 
   </table>
161 iaugusti 1232 
   </fieldset>
121 hknight 1233 
   <br>
1376 dpurdie 1234 
 
121 hknight 1235 
<!-- PACKAGE METRICS -------------------------------------------------------------------------------------------------------------------->
5383 dpurdie 1236 
   <%
1237 
   Call GetPackageMetrics( parPv_id, rsPkgMetrics )
1238 
   %>
6324 dpurdie 1239 
   <fieldset class="fset" onclick="ToggleDisplay('divPkgMetrics','pkg_metrics_filler')">
5526 dpurdie 1240 
   <%If IsNull(rsPkgMetrics("pkg_name")) Then %>
5383 dpurdie 1241 
      <legend class="body_colb">
6827 dpurdie 1242 
         <img src="images/i_metrics.gif" width="20" height="24" hspace="4" border="0" align='absmiddle' >Package Metrics not available
6324 dpurdie 1243 
      </legend>
5526 dpurdie 1244 
   <%Else%>
1245 
      <legend class="body_colb">
6827 dpurdie 1246 
         <img src="images/i_metrics.gif" width="20" height="24" hspace="4" border="0" align='absmiddle' >Package Metrics...
6324 dpurdie 1247 
      </legend>
5383 dpurdie 1248 
      <div name="pkg_metrics_filler" id="pkg_metrics_filler" style="display:block;" class="div_filler">
6827 dpurdie 1249 
         <span class="txt_linked pointer">Show...</span>
5383 dpurdie 1250 
      </div>
1251 
      <div name="divPkgMetrics" id="divPkgMetrics" style="display:none;">
1252 
         <a name="PACKAGE_METRICS"></a>
6873 dpurdie 1253 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class='lhsGrey'>
5383 dpurdie 1254 
            <tr>
6873 dpurdie 1255 
               <td width='20%'>Autobuilt:</td>
1256 
               <td><%If rsPkgMetrics("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%></td>
5383 dpurdie 1257 
            </tr>
1258 
            <tr>
6873 dpurdie 1259 
               <td>Unit Tested:</td>
1260 
               <td><%If rsPkgMetrics("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%></td>
5383 dpurdie 1261 
            </tr>
1262 
            <tr>
6873 dpurdie 1263 
               <td>Autotested:</td>
1264 
               <td><%If rsPkgMetrics("autotested") = "Y" Then%>Yes<%Else%>No<%End If%></td>
5383 dpurdie 1265 
            </tr>
1266 
            <%If NOT IsNull(rsPkgMetrics("code_lines")) Then%>
1267 
            <tr>
6873 dpurdie 1268 
               <td>Code Lines:</td>
1269 
               <td><%=rsPkgMetrics("code_lines")%></td>
5383 dpurdie 1270 
            </tr>
1271 
            <%End If%>
1272 
            <%If NOT IsNull(rsPkgMetrics("comment_lines")) Then%>
1273 
            <tr>
6873 dpurdie 1274 
               <td>Comment Lines:</td>
1275 
               <td><%=rsPkgMetrics("comment_lines")%></td>
5383 dpurdie 1276 
            </tr>
1277 
            <%End If%>
1278 
            <%If NOT IsNull(rsPkgMetrics("blank_lines")) Then%>
1279 
            <tr>
6873 dpurdie 1280 
               <td>Blank Lines:</td>
1281 
               <td><%=rsPkgMetrics("blank_lines")%></td>
5383 dpurdie 1282 
            </tr>
1283 
            <%End If%>
1284 
            <%If NOT IsNull(rsPkgMetrics("branches")) Then%>
1285 
            <tr>
6873 dpurdie 1286 
               <td>Number of Branches:</td>
1287 
               <td><%=rsPkgMetrics("branches")%></td>
5383 dpurdie 1288 
            </tr>
1289 
            <%End If%>
1290 
            <%If NOT IsNull(rsPkgMetrics("branch_list")) Then%>
1291 
            <tr>
6873 dpurdie 1292 
               <td>Branch List:</td>
1293 
               <td><%=rsPkgMetrics("branch_list")%></td>
5383 dpurdie 1294 
            </tr>
1295 
            <%End If%>
1296 
            <%If NOT IsNull(rsPkgMetrics("code_files")) Then%>
1297 
            <tr>
6873 dpurdie 1298 
               <td>Code Files:</td>
1299 
               <td><%=rsPkgMetrics("code_files")%></td>
5383 dpurdie 1300 
            </tr>
1301 
            <%End If%>
1302 
            <%If NOT IsNull(rsPkgMetrics("ignored_files")) Then%>
1303 
            <tr>
6873 dpurdie 1304 
               <td>Ignored Files:</td>
1305 
               <td><%=rsPkgMetrics("ignored_files")%></td>
5383 dpurdie 1306 
            </tr>
1307 
            <%End If%>
1308 
            <%If NOT IsNull(rsPkgMetrics("makefiles")) Then%>
1309 
            <tr>
6873 dpurdie 1310 
               <td>Makefiles:</td>
1311 
               <td><%=rsPkgMetrics("makefiles")%></td>
5383 dpurdie 1312 
            </tr>
1313 
            <%End If%>
1314 
            <%If NOT IsNull(rsPkgMetrics("total_files")) Then%>
1315 
            <tr>
6873 dpurdie 1316 
               <td>Total Files:</td>
1317 
               <td><%=rsPkgMetrics("total_files")%></td>
5383 dpurdie 1318 
            </tr>
1319 
            <%End If%>
1320 
            <%If NOT IsNull(rsPkgMetrics("directories")) Then%>
1321 
            <tr>
6873 dpurdie 1322 
               <td>Number of Directories:</td>
1323 
               <td><%=rsPkgMetrics("directories")%></td>
5383 dpurdie 1324 
            </tr>
1325 
            <%End If%>
1326 
            <%If NOT IsNull(rsPkgMetrics("directory_depth")) Then%>
1327 
            <tr>
6873 dpurdie 1328 
               <td>Directory Depth:</td>
1329 
               <td><%=rsPkgMetrics("directory_depth")%></td>
5383 dpurdie 1330 
            </tr>
1331 
            <%End If%>
1332 
            <%If NOT IsNull(rsPkgMetrics("created_stamp")) Then%>
1333 
            <tr>
6873 dpurdie 1334 
               <td>Metrics Collected:</td>
1335 
               <td><%=rsPkgMetrics("created_stamp")%></td>
5383 dpurdie 1336 
            </tr>
1337 
            <%End If%>
5632 dpurdie 1338 
            <%If NOT IsNull(rsPkgMetrics("build_time")) Then%>
1339 
            <tr>
6873 dpurdie 1340 
               <td>Build Time:</td>
1341 
               <td><%=rsPkgMetrics("build_time")%> Seconds</td>
5632 dpurdie 1342 
            </tr>
1343 
            <%End If%>
1344 
 
5383 dpurdie 1345 
         </table>
1346 
      </div>
5526 dpurdie 1347 
   <%End If%>
5383 dpurdie 1348 
   </fieldset>
1349 
   <br>
1350 
   <%
1351 
   rsPkgMetrics.Close()
1352 
   Set rsPkgMetrics = nothing
1353 
   %>
121 hknight 1354 
<!-- PRODUCTS AFFECTED BY CHANGE -------------------------------------------------------------------------------------------------------->
119 ghuddy 1355 
 
1356 
<!-- REASON FOR DEPRECATION/DEPENDANCY DEPRECATED ----------------------------------------------------------------------------------------------------------------->
121 hknight 1357 
   <%If pkgInfoHash.Item("deprecated_state") = 6 Then %>
119 ghuddy 1358 
 
121 hknight 1359 
      <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>
1360 
         <a name="REASON_FOR_DEPRECATION"></a>
6873 dpurdie 1361 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class='allGrey'>
121 hknight 1362 
            <tr>
6873 dpurdie 1363 
               <td>
121 hknight 1364 
                  <%
1365 
                  Dim rsComment
1366 
                  Set rsComment = OraDatabase.DbCreateDynaset("SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& Request("rtag_id") &" AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
1367 
                  If rsComment("comments") <> "" Then
1368 
                     Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
1369 
                     Response.write "<tr>"
1370 
                     Response.write "<td class='sublbox_txt'>"& NewLine_To_BR((  rsComment("comments") ) ) &"<br></td>"
1371 
                     Response.write "</tr>"
1372 
                     Response.write "</table>"
1373 
                  'Else
1374 
                  '   If FixedIssues ( parPv_id ) Then
1375 
                  '      Response.write "<span class='sublbox_txt'>Not specified.</span><br>"
1376 
                  '   Else
1377 
                  '      Response.write "<span class='err_alert'>Required!</span><br>"
1378 
                  '   End If
1379 
                  End If
1380 
                  rsComment.Close()
1381 
                  Set rsComment = nothing
1382 
                  %>
1383 
               </td>
1384 
            </tr>
1385 
         </table>
1386 
      </fieldset>
4230 dpurdie 1387 
      <br>
121 hknight 1388 
   <%End If%>
119 ghuddy 1389 
<!-- SBOM PRIORITY/CRITICALITY  --------------------------------------------------------------------------------------------------------->
121 hknight 1390 
   <%If NOT pageIsEditable AND pkgInfoHash.Item ("is_deployable") = "Y" Then%>
6324 dpurdie 1391 
      <fieldset class="fset">
1392 
      <legend class="body_colb"><img src='icons/i_prod_sbom_priority.gif' hspace='4' border='0' align='absmiddle'>SBOM Priority</legend>
1393 
       <%If (pkgInfoHash.Item ("dlocked") = "Y") Then%>
1394 
       <div style="display: block;float: right;margin-top: -20px;background-color: #FFF;padding: 0 5px;">
6827 dpurdie 1395 
            <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 1396 
       </div>
1397 
       <%End If%>
121 hknight 1398 
         <a name="SBOM_PRIORITY"></a>
6873 dpurdie 1399 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class=allGrey>
121 hknight 1400 
            <tr>
6873 dpurdie 1401 
               <td>
121 hknight 1402 
                  <%If pkgInfoHash.Item ("sbom_priority") <> "" Then%>
1403 
                     <table border='0' cellspacing='0' cellpadding='0'>
1404 
                        <tr>
6873 dpurdie 1405 
                           <td>
121 hknight 1406 
                              <%
1407 
                              If pkgInfoHash.Item ("sbom_priority") = "C" Then
1408 
                                 Response.write "<b><font color='red'>Critical.</font></b>"
1409 
                              ElseIf pkgInfoHash.Item ("sbom_priority") = "I" Then
1410 
                                 Response.write "<b>Important.</b>"
1411 
                              ElseIf pkgInfoHash.Item ("sbom_priority") = "R" Then
1412 
                                 Response.write "Routine"
1413 
                              ElseIf pkgInfoHash.Item ("sbom_priority") = "L" Then
1414 
                                 Response.write "Low"
1415 
                              End If
1416 
                              %>
1417 
                           </td>
1418 
                        </tr>
1419 
                     </table>
1420 
                  <%Else%>
1421 
                     <span class='err_alert'>Required!</span><br>
1422 
                  <%End If%>
1423 
               </td>
1424 
            </tr>
1425 
         </table>
1426 
      </fieldset>
4230 dpurdie 1427 
      <br>
121 hknight 1428 
   <%End If%>
119 ghuddy 1429 
<!-- CHANGE TYPE  ----------------------------------------------------------------------------------------------------------------------->
4230 dpurdie 1430 
   <fieldset class="fset">
1431 
   <a name="CHANGE_TYPE"></a>
121 hknight 1432 
   <%If pkgInfoHash.Item ("build_type") = "A" Then%>
4218 dpurdie 1433 
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Change Type</legend>
6324 dpurdie 1434 
         <div style="display: block;float: right;margin-top: -20px;background-color: #FFF;padding: 0 5px;">
1435 
              <%If (pkgInfoHash.Item ("dlocked") <> "A")  AND (pkgInfoHash.Item ("dlocked") <> "Y") AND criticalSectionIsEditable Then%>
6827 dpurdie 1436 
                 <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 1437 
              <%End If%>
1438 
         </div>
6873 dpurdie 1439 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class='allGrey'>
121 hknight 1440 
            <tr>
6873 dpurdie 1441 
               <td>
121 hknight 1442 
                  <%
1443 
                  If pkgInfoHash.Item ("change_type") <> "" Then
1444 
                     Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
1445 
                     Response.write "<tr>"
1446 
                     If pkgInfoHash.Item ("change_type") = "M" Then
1447 
                        Response.write "<td class='sublbox_txt'>Major Change.<br></td>"
1448 
                     ElseIf pkgInfoHash.Item ("change_type") = "N" Then
1449 
                        Response.write "<td class='sublbox_txt'>Minor Change.<br></td>"
1450 
                     ElseIf pkgInfoHash.Item ("change_type") = "P" Then
1451 
                        Response.write "<td class='sublbox_txt'>Patch Change.<br></td>"
4230 dpurdie 1452 
                     ElseIf pkgInfoHash.Item ("change_type") = "F" Then
1453 
                        Response.write "<td class='sublbox_txt'>Version Specified by User.<br></td>"
1454 
                     Else
1455 
                        Response.write "<td><span class='err_alert'>Unknown Change Type: " & pkgInfoHash.Item ("change_type") & "</span></td>"
121 hknight 1456 
                     End If
1457 
                     Response.write "</tr>"
1458 
                     Response.write "</table>"
1459 
                  Else
1460 
                     Response.write "<span class='err_alert'>Required!</span><br>"
1461 
                  End If
1462 
                  %>
1463 
               </td>
1464 
            </tr>
1465 
         </table>
4230 dpurdie 1466 
   <%ElseIf pkgInfoHash.Item ("build_type") = "M" Then%>
1467 
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Build Type</legend>
6873 dpurdie 1468 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class='allGrey'>
4230 dpurdie 1469 
            <tr>
6873 dpurdie 1470 
               <td>Manually Built Package.
4230 dpurdie 1471 
                  <%If pkgInfoHash.Item ("change_type") <> "F" Then%>
1472 
                        <span class='err_alert'>Unexpected Change Type: <%=pkgInfoHash.Item ("change_type")%></span>
1473 
                  <%End If%>
1474 
               </td>
1475 
            </tr>
1476 
         </table>
5898 dpurdie 1477 
   <%ElseIf pkgInfoHash.Item ("build_type") = "U" Then%>
1478 
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Build Type</legend>
6873 dpurdie 1479 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class='allGrey'>
5898 dpurdie 1480 
            <tr>
6873 dpurdie 1481 
               <td>
6881 dpurdie 1482 
               <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 1483 
               </td>
1484 
            </tr>
1485 
         </table>
4230 dpurdie 1486 
   <%ElseIf pkgInfoHash.Item ("build_type") = "Y" Then%>
1487 
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Build Type</legend>
6873 dpurdie 1488 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class='allGrey'>
4230 dpurdie 1489 
            <tr>
6873 dpurdie 1490 
               <td>Ripple Built</td>
4230 dpurdie 1491 
            </tr>
1492 
         </table>
1493 
   <%Else%>
1494 
         <legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Build Type</legend>
6873 dpurdie 1495 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class='allGrey'>
4230 dpurdie 1496 
            <tr>
6873 dpurdie 1497 
               <td><span class='err_alert'>Unknown Build Type (<%=pkgInfoHash.Item ("build_type")%>) Change Type (<%=pkgInfoHash.Item ("change_type")%>)</span></td>
4230 dpurdie 1498 
            </tr>
1499 
         </table>
121 hknight 1500 
   <%End If%>
4230 dpurdie 1501 
   </fieldset>
1502 
   <br>
131 ghuddy 1503 
 
119 ghuddy 1504 
<!-- RIPPLE PROPERTIES  ----------------------------------------------------------------------------------------------------------------------->
131 ghuddy 1505 
   <%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
6324 dpurdie 1506 
      <fieldset class="fset">
1507 
         <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>
1508 
         <div style="display: block;float: right;margin-top: -20px;background-color: #FFF;padding: 0 5px;">
6538 dpurdie 1509 
            <%Dim canEditRippleProperties : canEditRippleProperties = FALSE
6700 dpurdie 1510 
 
1511 
                canEditRippleProperties = (pageIsEditable AND canShowControlInProject( "RipplePackage" )) OR _
6538 dpurdie 1512 
                                          canShowControlInProject( "AdvRipPackageVersions" ) OR _
6700 dpurdie 1513 
                                          canShowControlInProject( "PegPackageVersions" ) OR _
6538 dpurdie 1514 
                                          criticalSectionIsEditable
1515 
 
1516 
            If canEditRippleProperties Then%>
6827 dpurdie 1517 
                <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 1518 
            <%End If%>
1519 
         </div>
121 hknight 1520 
         <a name="RIPPLE_PROPERTIES"></a>
6873 dpurdie 1521 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class='lhsGrey'>
131 ghuddy 1522 
            <%If Request("rtag_id") <> "" Then
5098 dpurdie 1523 
               If pkgInfoHash.Item ("is_pegged")  Then %>
131 ghuddy 1524 
                  <tr>
6873 dpurdie 1525 
                     <td>Is Pegged <%=Quick_Help ( "pegged_version" )%></td>
1526 
                     <td>Yes</td>
131 ghuddy 1527 
                  </tr>
1528 
               <%End If%>
5098 dpurdie 1529 
            <%End If%>
131 ghuddy 1530 
 
5098 dpurdie 1531 
            <%If NOT pkgInfoHash.Item ("is_pegged") Then%>
6440 dpurdie 1532 
              <%If Request("rtag_id") <> "" Then%>
131 ghuddy 1533 
               <tr>
6873 dpurdie 1534 
                  <td>Build Inclusion<%=Quick_Help ( "ripple_build" )%>
131 ghuddy 1535 
                  </td>
6440 dpurdie 1536 
                     <%Dim rsQryRipple
1537 
                     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 1538 
                        If rsQryRipple.RecordCount <> 0  Then
6440 dpurdie 1539 
                            Dim CauseText
1540 
                            Dim rowData
1541 
                            If (IsNull(rsQryRipple("root_file")) AND IsNull(rsQryRipple("root_cause"))) Then
1542 
                                If rsQryRipple("root_pv_id") < 0 Then
1543 
                                    CauseText = "Directly Excluded"
6370 dpurdie 1544 
                                Else
1545 
                                    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>"
1546 
                                End If
1547 
 
1548 
                            ElseIf IsNull(rsQryRipple("root_file")) Then
1549 
                               CauseText = rsQryRipple("root_cause")
1550 
 
1551 
                            Else
1552 
                                CauseText = "<a class=""txt_linked"" title=""" & rsQryRipple("root_file") &_
1553 
                                          " Log file may have expired."" " &_
7260 dpurdie 1554 
                                          "href=""" & ABTLOG_URL & "/" & rsQryRipple("root_file") & """>" &_
6370 dpurdie 1555 
                                          "Build Failure Log File</a>"
1556 
                            End If
1557 
                            %>
6873 dpurdie 1558 
                            <td>No.&nbsp;<%=CauseText%></td>
6440 dpurdie 1559 
                         <%Else%>
6873 dpurdie 1560 
                            <td>Yes</td>
6440 dpurdie 1561 
                         <%End If%>
131 ghuddy 1562 
                     <%rsQryRipple.Close()
6440 dpurdie 1563 
                     Set rsQryRipple = nothing%>
131 ghuddy 1564 
               </tr>
6440 dpurdie 1565 
               <%End If%>
6642 dpurdie 1566 
               <%If pkgInfoHash.Item ("advisory_ripple") Then%>
6873 dpurdie 1567 
                <tr>
1568 
                      <td>Advisory Ripple <%=Quick_Help ( "advisory_ripple" )%></td>
1569 
                      <td>Enabled</td>
6642 dpurdie 1570 
                </tr>
1571 
               <%End If%>
131 ghuddy 1572 
               <tr>
6873 dpurdie 1573 
                  <td>Ripple Type <%=Quick_Help ( "ripple_type" )%></td>
1574 
                  <td>
131 ghuddy 1575 
                        <%
1576 
                        Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
1577 
                        Response.write "<tr>"
1578 
                        Response.write "<td class='sublbox_txt'>"
5648 dpurdie 1579 
                        Dim selectedRippleType, selectedRippleName, selectedRippleState
131 ghuddy 1580 
                        selectedRippleType = pkgInfoHash.Item ("ripple_field")
5648 dpurdie 1581 
                        selectedRippleName = rippleFieldName(selectedRippleType, selectedRippleState)
1582 
                        If NOT selectedRippleState Then
131 ghuddy 1583 
                           Response.write "<span class='err_alert'>Required!</span>"
1584 
                        Else
5648 dpurdie 1585 
                            Response.write( selectedRippleName )
131 ghuddy 1586 
                        End If
1587 
                        If ( selectedRippleType = "L" ) Then
1588 
                        Dim qry
1589 
                        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))
1590 
                        Response.write " "
1591 
                        If isNull(qry("major_limit")) Then
1592 
                           Response.write("0")
1593 
                        Else
1594 
                           Response.write( qry.Fields( "major_limit" ).Value )
1595 
                        End If
1596 
                        Response.write ", "
1597 
                        If isNull(qry("minor_limit")) Then
1598 
                           Response.write("0")
1599 
                        Else
1600 
                           Response.write( qry.Fields( "minor_limit" ).Value )
1601 
                        End If
1602 
                        Response.write ", "
1603 
                        If isNull(qry("patch_limit")) Then
1604 
                           Response.write("0")
1605 
                        Else
1606 
                           Response.write( qry.Fields( "patch_limit" ).Value )
1607 
                        End If
1608 
                        Response.write ", "
1609 
                        If isNull(qry("build_number_limit")) Then
1610 
                           Response.write("0")
1611 
                        Else
1612 
                           Response.write( qry.Fields( "build_number_limit" ).Value )
1613 
                        End If
1614 
                        qry.Close()
1615 
                        Set qry = nothing
1616 
                        End If
5648 dpurdie 1617 
                        Response.Write "</td>"
131 ghuddy 1618 
                        Response.write "</tr>"
1619 
                        Response.write "</table>"
1620 
                        %>
1621 
                  </td>
1622 
               </tr>
1623 
            <%End If%>
6480 dpurdie 1624 
            <%If Request("rtag_id") <> ""  AND pkgInfoHash.Item("dlocked") = "Y" Then
6440 dpurdie 1625 
              Dim sClickStop, sStopText, dRippleStop, sButtonText, sPersistText
1626 
              dRippleStop = pkgInfoHash.Item("ripple_stop")
1627 
              If dRippleStop = "" OR IsNull(dRippleStop) Then
1628 
                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 &"'});"
1629 
                sStopText = "Normal"
1630 
                sButtonText = "Change"
1631 
              ElseIf dRippleStop = "s" Then
1632 
                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 &"'});"
1633 
                sStopText = "Ripples will stop at this package"
1634 
                sButtonText = "Remove"
1635 
              ElseIf dRippleStop = "w" Then
1636 
                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 &"'});"
1637 
                sStopText = "Ripple required and awaiting manual intervention"
1638 
                sButtonText = "Resume"
1639 
              ElseIf dRippleStop = "g" Then
1640 
                sStopText = "Ripple resumed. Awaiting build"
1641 
              Else
1642 
                sStopText = "Ripple Stop: Unknown state:" & dRippleStop
1643 
              End If
1644 
 
1645 
              sPersistText = ""
6441 dpurdie 1646 
              If pkgInfoHash.Exists("persist_ripple_stop") Then
1647 
                  If NOT IsNull(pkgInfoHash.Item("persist_ripple_stop")) Then
1648 
                      sPersistText = "&nbsp;[Persistent Ripple Stop Enabled]"
1649 
                  End If
6440 dpurdie 1650 
              End If
1651 
 
1652 
             %>
1653 
             <tr>
6873 dpurdie 1654 
                  <td>Ripple Stop <%=Quick_Help ( "ripple_stop" )%></td>
1655 
                  <td><%=sStopText%><%=sPersistText%>
6440 dpurdie 1656 
                  <%If canActionInProject() AND sClickStop <> "" Then%>
6827 dpurdie 1657 
                    <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 1658 
                  <%End If%>
1659 
                  </td>
6440 dpurdie 1660 
            </tr>
1661 
            <%End If%>
121 hknight 1662 
         </table>
1663 
      </fieldset>
1664 
      <br>
1665 
   <%End If%>
131 ghuddy 1666 
 
119 ghuddy 1667 
<!-- REASON FOR RELEASE ----------------------------------------------------------------------------------------------------------------->
6324 dpurdie 1668 
   <fieldset class="fset">
1669 
      <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 1670 
      <div style="display: block;float: right;margin-top: -25px;background-color: #FFF;padding: 0 5px;">
1671 
          <span class="clipElement txt_linked" title="Copy to Clipboard" data-target="releaseReason">Copy<%=enum_imgClipBoard12%></span>
6324 dpurdie 1672 
       <%If pageIsEditable Then%>
6873 dpurdie 1673 
             <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 1674 
             <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 1675 
       <%End If%>
1676 
      </div>
121 hknight 1677 
      <a name="REASON_FOR_THIS_RELEASE"></a>
6873 dpurdie 1678 
      <table width="100%" border="0" cellspacing="1" cellpadding="2" >
121 hknight 1679 
         <tr>
6873 dpurdie 1680 
            <td>
121 hknight 1681 
            <%If pkgInfoHash.Item ("comments") <> "" Then%>
6873 dpurdie 1682 
               <table width="100%" border='0' cellspacing='0' cellpadding='0' class='allGrey'>
121 hknight 1683 
                  <tr>
6873 dpurdie 1684 
                     <td id=releaseReason> <%Response.Write( NewLine_To_BR(pkgInfoHash.Item("comments")) )%><br></td>
121 hknight 1685 
                  </tr>
1686 
               </table>
1687 
            <%ElseIf FixedIssues ( parPv_id ) Then%>
6873 dpurdie 1688 
               <span>Not specified.</span><br>
121 hknight 1689 
            <%Else%>
1690 
               <span class='err_alert'>Required!</span><br>
1691 
            <%End If%>
1692 
            </td>
1693 
         </tr>
1694 
      </table>
1695 
   </fieldset>
4230 dpurdie 1696 
   <br>
119 ghuddy 1697 
<!-- REASON FOR NON_RIPPLE RELEASE ----------------------------------------------------------------------------------------------------------------->
121 hknight 1698 
   <%If pkgInfoHash.Item ("comments") = "Rippled Build." Then%>
119 ghuddy 1699 
 
6324 dpurdie 1700 
      <fieldset class="fset">
1701 
         <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 1702 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class='allGrey'>
121 hknight 1703 
            <tr>
6873 dpurdie 1704 
               <td>
121 hknight 1705 
                  <%
1706 
                  'Dim rsQry
1707 
                  Call LastPvId(pkgInfoHash.Item ("pv_id"))
119 ghuddy 1708 
 
121 hknight 1709 
                  While rsQry("comments") = "Rippled Build."
1710 
                     Call LastPvId(rsQry("last_pv_id"))
1711 
                  Wend
119 ghuddy 1712 
 
121 hknight 1713 
                  If pkgInfoHash.Item ("comments") <> "" Then
1714 
                     Response.write "<table border='0' cellspacing='0' cellpadding='0'>"
1715 
                     Response.write "<tr>"
1716 
                     Response.write "<td class='sublbox_txt'><b>Package Version:</b> <b>"& NewLine_To_BR(( rsQry ("pkg_version") ) ) &"</b><br></td>"
1717 
                     Response.write "</tr>"
1718 
                     Response.write "<tr>"
1719 
                     Response.write "<td class='sublbox_txt'>"& NewLine_To_BR(( rsQry ("comments") ) ) &"<br></td>"
1720 
                     Response.write "</tr>"
119 ghuddy 1721 
 
121 hknight 1722 
                     Response.write "</table>"%>
119 ghuddy 1723 
 
121 hknight 1724 
                     <table width="100%" border="0" cellspacing="1" cellpadding="2">
1725 
                        <tr>
1726 
                           <td valign="top" class="sublbox_txt"><b>Fixed Issues For Last Non-Ripple Build</b></td>
1727 
                           <td align="right" valign="top">
1728 
                              <%If pageIsEditable Then%>
6827 dpurdie 1729 
                                 <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 1730 
                              <%End If%>
1731 
                           </td>
1732 
                        </tr>
1733 
                     </table>
1734 
                     <%Call Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )
1735 
                     If (retVal > 0) Then
1736 
                        retVal = Get_CQ_Issues ( SQLstr, rsCQ )
1737 
                        If retVal = 0 Then%>
1738 
                           <table width="100%" border="0" cellspacing="1" cellpadding="3">
1739 
                              <tr>
6873 dpurdie 1740 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field" align="center">Fixed</td>
1741 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Issue&nbsp;Id&nbsp;</td>
1742 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Issue&nbsp;DB&nbsp;</td>
161 iaugusti 1743 
                                 <td bgcolor=#e4e9ec nowrap width="100%" class="form_field">Summary</td>
6873 dpurdie 1744 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Issue&nbsp;Type&nbsp;</td>
1745 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Priority</td>
1746 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Status</td>
1747 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Note</td>
1748 
                                 <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">&nbsp;</td>
121 hknight 1749 
                              </tr>
1750 
                              <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1751 
                                 <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1752 
                                    <tr>
161 iaugusti 1753 
                                       <td align="center" nowrap bgcolor=#e4e9ec><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
6873 dpurdie 1754 
                                       <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>
1755 
                                       <td class="form_item">
4553 dpurdie 1756 
                                            <%If Cint(rsCQ("iss_db")) = enumCLEARQUEST_DEVI_ID Then%>
3975 dpurdie 1757 
                                                DEVI
1758 
                                            <%Else%>
1759 
                                                UNKNOWN
1760 
                                            <%End If%></td>
6873 dpurdie 1761 
                                       <td class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1762 
                                       <td nowrap  class="form_item"><%=rsCQ("issue_type")%></td>
1763 
                                       <td nowrap  class="form_item"><%=rsCQ("priority")%></td>
1764 
                                       <td nowrap  class="form_item"><%=rsCQ("Status")%></td>
121 hknight 1765 
                                       <%If sectionIsEditable Then%>
1766 
                                           <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
6873 dpurdie 1767 
                                             <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 1768 
                                          <%Else%>
6873 dpurdie 1769 
                                             <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 1770 
                                          <%End If%>
1771 
                                       <%Else%>
1772 
                                          <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
6873 dpurdie 1773 
                                             <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 1774 
                                          <%Else%>
6873 dpurdie 1775 
                                             <td align="center"  class="form_item"><img src="images/i_note_off.gif" width="11" height="12" border="0"></td>
121 hknight 1776 
                                          <%End If%>
1777 
                                       <%End If%>
1778 
                                       <%If NOT pageIsEditable Then%>
6873 dpurdie 1779 
                                          <td align="center"  class="form_item"><img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0"></td>
121 hknight 1780 
                                       <%Else%>
6873 dpurdie 1781 
                                          <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 1782 
                                       <%End If%>
1783 
                                    </tr>
1784 
                                    <%rsCQ.MoveNext
1785 
                                 WEnd
1786 
                                 rsCQ.Close()%>
1787 
                              <%Else%>
1788 
                                 <tr>
161 iaugusti 1789 
                                    <td bgcolor=#e4e9ec nowrap>&nbsp;</td>
6873 dpurdie 1790 
                                    <td nowrap></td>
1791 
                                    <td class="form_item"></td>
1792 
                                    <td class="form_item"></td>
1793 
                                    <td class="form_item"></td>
1794 
                                    <td class="form_item"></td>
1795 
                                    <td class="form_item"></td>
1796 
                                    <td class="form_item"></td>
1797 
                                    <td align="center"  class="form_item"></td>
121 hknight 1798 
                                 </tr>
1799 
                              <%End If%>
1800 
                           </table>
1801 
                        <%End If%>
1802 
                        <%If retVal <> 0 Then Response.write enumMSSQL_ERROR
1803 
                     End If
1804 
                  Else
1805 
                     If FixedIssues ( parPv_id ) Then
1806 
                        Response.write "<span class='sublbox_txt'>Not specified.</span><br>"
1807 
                     Else
1808 
                        Response.write "<span class='err_alert'>Required!</span><br>"
1809 
                     End If
1810 
                  End If
119 ghuddy 1811 
 
121 hknight 1812 
                  rsQry.Close()
1813 
                  Set rsQry = nothing
1814 
                  %>
1815 
               </td>
1816 
            </tr>
1817 
         </table>
1818 
      </fieldset>
4230 dpurdie 1819 
      <br>
121 hknight 1820 
   <%End If%>
1821 
<!-- FIXED ISSUES ----------------------------------------------------------------------------------------------------------------------->
123 ghuddy 1822 
   <fieldset class="fset">
1823 
      <legend class="body_colb">
6827 dpurdie 1824 
         <img src="images/s_bugs.gif" width="21" height="18" border="0" hspace="4" align='absmiddle'>
123 ghuddy 1825 
         Issues
1826 
      </legend>
5861 dpurdie 1827 
      <a name="ISSUES"></a>
121 hknight 1828 
      <p class="body_colb"><a name="ISSUES"></a></p>
1829 
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
1830 
         <tr>
4254 dpurdie 1831 
            <!-- Jira Issues -->
121 hknight 1832 
            <td valign="top" class="body_colb">JIRA Issues</td>
1833 
            <td align="right" valign="top">
6827 dpurdie 1834 
            <%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 1835 
            </td>
119 ghuddy 1836 
 
4254 dpurdie 1837 
            <%
1838 
            Dim issueInfo, el, key
1839 
            Set issueInfo = CreateObject( "Scripting.Dictionary" )
1840 
            Call getJiraIssueDetails(parPv_id,issueInfo, 0)
1841 
            If issueInfo.Count > 0 Then
1842 
            %>
121 hknight 1843 
 
6873 dpurdie 1844 
            <table width="100%" border="0" cellspacing="1" cellpadding="3" class=stdGrey>
1845 
                <thead>
1846 
                   <th width="1%" align="center">Fixed</th>
1847 
                   <th width="1%" >IssueId</th>
1848 
                   <th width="1%" >IssueDB</th>
1849 
                   <th width="100%" >Summary</th>
1850 
                   <th width="1%" >IssueType</th>
1851 
                   <th width="1%" >Priority</th>
1852 
                   <th width="1%" >Status</th>
1853 
                   <th width="1%" >Note</th>
1854 
                   <th width="1%" ></th>
1855 
                </thead>
4254 dpurdie 1856 
                <%
1857 
                For Each key In issueInfo
1858 
                Set el = issueInfo.item(key)
1859 
                %>
1860 
                <tr>
1861 
                  <%If el.Exists("resolution") Then %>
6873 dpurdie 1862 
                     <td align="center" nowrap>
4254 dpurdie 1863 
                        <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
1864 
                     </td>
1865 
                  <%Else%>
6873 dpurdie 1866 
                     <td align="center" nowrap></td>
4254 dpurdie 1867 
                  <%End If%>
6873 dpurdie 1868 
                  <td nowrap class="form_item">
4254 dpurdie 1869 
                     <a href="<%=el.item("url")%>" target="_blank" class="txt_linked"><%=key%></a>
1870 
                  </td>
6873 dpurdie 1871 
                  <td><%=el.item("type")%></td>
1872 
                  <td><%=NewLine_To_BR ( To_HTML ( el.item("summary") ) )%></td>
1873 
                  <td nowrap><%=el.item("issuetype")%></td>
1874 
                  <td nowrap><%=el.item("priority")%></td>
1875 
                  <td nowrap><%=el.item("status")%></td>
1876 
                  <td nowrap></td>
4254 dpurdie 1877 
                  <%If NOT pageIsEditable Then%>
6873 dpurdie 1878 
                     <td align="center">
4254 dpurdie 1879 
                        <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
1880 
                     </td>
1881 
                  <%Else%>
6873 dpurdie 1882 
                     <td align="center">
1883 
                        <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 1884 
                           <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
6873 dpurdie 1885 
                        </span>
4254 dpurdie 1886 
                     </td>
1887 
                  <%End If%>
1888 
               </tr>
1889 
               <%
1890 
               Next
1891 
               Set issueInfo = nothing
1892 
               %>
1893 
            </table>
121 hknight 1894 
            <%End If%>
119 ghuddy 1895 
 
4254 dpurdie 1896 
            <!-- Fixed ClearCase Issues -->
121 hknight 1897 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
1898 
               <tr>
1899 
                  <td valign="top" class="body_colb">Fixed Issues</td>
1900 
                  <td align="right" valign="top">
6827 dpurdie 1901 
                    <%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 1902 
                  </td>
1903 
               </tr>
1904 
            </table>
119 ghuddy 1905 
 
121 hknight 1906 
            <%retVal = Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )
1907 
            If (retVal > 0) Then
1908 
               retVal = Get_CQ_Issues ( SQLstr, rsCQ )
1909 
               If retVal = 0 Then%>
6873 dpurdie 1910 
                  <table width="100%" border="0" cellspacing="1" cellpadding="3" class=stdGrey>
1911 
                     <thead>
1912 
                        <th width="1%" align="center">Fixed</th>
1913 
                        <th width="1%" >IssueId</th>
1914 
                        <th width="1%" >IssueDB</th>
1915 
                        <th width="100%">Summary</th>
1916 
                        <th width="1%" >IssueType</th>
1917 
                        <th width="1%" >Priority</th>
1918 
                        <th width="1%" >Status</th>
1919 
                        <th width="1%" >Note</th>
1920 
                        <th width="1%" ></th>
1921 
                     </thead>
121 hknight 1922 
                     <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
1923 
                        <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
1924 
                           <tr>
161 iaugusti 1925 
                              <td align="center" nowrap bgcolor=#e4e9ec><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td>
6873 dpurdie 1926 
                              <td nowrap class="form_item">
6827 dpurdie 1927 
                                <%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 1928 
                              </td>
6873 dpurdie 1929 
                              <td class="form_item">
4553 dpurdie 1930 
                                 <%If CInt(rsCQ("iss_db")) = enumCLEARQUEST_DEVI_ID Then%>
123 ghuddy 1931 
                                    DEVI
1932 
                                 <%Else%>
3975 dpurdie 1933 
                                    UNKNOWN
123 ghuddy 1934 
                                 <%End If%>
1935 
                              </td>
6873 dpurdie 1936 
                              <td class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
1937 
                              <td nowrap  class="form_item"><%=rsCQ("issue_type")%></td>
1938 
                              <td nowrap  class="form_item"><%=rsCQ("priority")%></td>
1939 
                              <td nowrap  class="form_item"><%=rsCQ("Status")%></td>
6827 dpurdie 1940 
                              <%If sectionIsEditable AND pageIsEditable Then
1941 
                                    Dim noteImage
1942 
                                    If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then
1943 
                                        noteImage = "images/i_note_on.gif"
1944 
                                    Else
1945 
                                        noteImage = "images/i_note_off.gif"
1946 
                                    End If
1947 
                                End If
1948 
                                 %>
1949 
 
1950 
 
121 hknight 1951 
                              <%If sectionIsEditable AND pageIsEditable Then%>
1952 
                                 <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
6873 dpurdie 1953 
                                    <td align="center"  class="form_item">
1954 
                                       <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 1955 
                                          <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 1956 
                                       </span>
123 ghuddy 1957 
                                    </td>
121 hknight 1958 
                                 <%Else%>
6873 dpurdie 1959 
                                    <td align="center"  class="form_item">
1960 
                                       <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 1961 
                                          <img src="images/i_note_off.gif" width="11" height="12" border="0" title="Add Note">
6873 dpurdie 1962 
                                       </span>
123 ghuddy 1963 
                                    </td>
121 hknight 1964 
                                 <%End If%>
1965 
                              <%Else%>
1966 
                                 <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
6873 dpurdie 1967 
                                    <td align="center"  class="form_item">
123 ghuddy 1968 
                                       <img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
1969 
                                    </td>
121 hknight 1970 
                                 <%Else%>
6873 dpurdie 1971 
                                    <td align="center"  class="form_item">
123 ghuddy 1972 
                                       <img src="images/i_note_off.gif" width="11" height="12" border="0">
1973 
                                    </td>
121 hknight 1974 
                                 <%End If%>
1975 
                              <%End If%>
1976 
                              <%If NOT pageIsEditable Then%>
6873 dpurdie 1977 
                                 <td align="center"  class="form_item">
123 ghuddy 1978 
                                    <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
1979 
                                 </td>
121 hknight 1980 
                              <%Else%>
6873 dpurdie 1981 
                                 <td align="center"  class="form_item">
1982 
                                    <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 1983 
                                       <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
6873 dpurdie 1984 
                                    </span>
123 ghuddy 1985 
                                 </td>
121 hknight 1986 
                              <%End If%>
1987 
                           </tr>
1988 
                           <%rsCQ.MoveNext
1989 
                        WEnd
1990 
                        rsCQ.Close()%>
1991 
                     <%Else%>
1992 
                        <tr>
6873 dpurdie 1993 
                           <td>&nbsp;</td>
1994 
                           <td></td>
1995 
                           <td></td>
1996 
                           <td></td>
1997 
                           <td></td>
1998 
                           <td></td>
1999 
                           <td></td>
2000 
                           <td></td>
2001 
                           <td></td>
121 hknight 2002 
                        </tr>
2003 
                     <%End If%>
119 ghuddy 2004 
 
121 hknight 2005 
                  </table>
2006 
               <%End If%>
2007 
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
2008 
            <%End If%>
119 ghuddy 2009 
 
4254 dpurdie 2010 
            <!-- Outstanding ClearCase Issues -->
121 hknight 2011 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
2012 
               <tr>
2013 
                  <td valign="top" class="body_colb">Outstanding Issues</td>
2014 
                  <td align="right" valign="top">
2015 
                     <%If pageIsEditable Then%>
6873 dpurdie 2016 
                        <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 2017 
                           Import Outstanding Issues from ClearQuest
6827 dpurdie 2018 
                           <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align='absmiddle'>
6873 dpurdie 2019 
                        </span>
121 hknight 2020 
                     <%End If%>
2021 
                  </td>
2022 
               </tr>
2023 
            </table>
119 ghuddy 2024 
 
121 hknight 2025 
            <%retVal = Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_IMPORTED )
2026 
            If (retVal > 0) Then
2027 
               retVal = Get_CQ_Issues ( SQLstr, rsCQ )
2028 
               If retVal = 0 Then%>
6873 dpurdie 2029 
                  <table width="100%" border="0" cellspacing="1" cellpadding="2" class=stdGrey>
121 hknight 2030 
                     <form name="fixedissues" method="get" action="_update_issues_state.asp">
6873 dpurdie 2031 
                        <thead>
121 hknight 2032 
                           <%If pageIsEditable Then%>
6873 dpurdie 2033 
                              <th nowrap width="1%" align="center">Fixed</th>
121 hknight 2034 
                           <%End If%>
6873 dpurdie 2035 
                           <th  nowrap width="1%" >Issue&nbsp;Id&nbsp;</th>
2036 
                           <th  nowrap width="1%" >Issue DB&nbsp;</th>
2037 
                           <th  nowrap width="100%" >Summary</th>
2038 
                           <th  nowrap width="1%" >Issue&nbsp;Type&nbsp;</th>
2039 
                           <th  nowrap width="1%" >Priority</th>
2040 
                           <th  nowrap width="1%" >Status</th>
2041 
                           <th  nowrap width="1%" >Note</th>
2042 
                           <th  nowrap width="1%" >&nbsp;</th>
2043 
                        </thead>
121 hknight 2044 
                        <%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%>
2045 
                           <%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%>
2046 
                              <tr>
2047 
                                 <%If pageIsEditable Then%>
6873 dpurdie 2048 
                                    <td align="center" nowrap>
123 ghuddy 2049 
                                       <input type="checkbox" name="FRfixed" value="<%=rsCQ("iss_db") &"."& rsCQ("iss_id")%>">
2050 
                                    </td>
121 hknight 2051 
                                 <%End If%>
6873 dpurdie 2052 
                                 <td nowrap class="form_item">
2053 
                                    <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 2054 
                                       <%=rsCQ("iss_num")%>
6873 dpurdie 2055 
                                    </span>
123 ghuddy 2056 
                                 </td>
6873 dpurdie 2057 
                                 <td class="form_item">
4553 dpurdie 2058 
                                    <%If CInt(rsCQ("iss_db")) = enumCLEARQUEST_DEVI_ID Then%>
123 ghuddy 2059 
                                       DEVI
2060 
                                    <%Else%>
4553 dpurdie 2061 
                                       UNKNOWN
123 ghuddy 2062 
                                    <%End If%>
2063 
                                 </td>
6873 dpurdie 2064 
                                 <td class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td>
2065 
                                 <td nowrap  class="form_item"><%=rsCQ("issue_type")%></td>
2066 
                                 <td nowrap  class="form_item"><%=rsCQ("priority")%></td>
2067 
                                 <td nowrap  class="form_item"><%=rsCQ("Status")%></td>
121 hknight 2068 
                                 <%If sectionIsEditable AND pageIsEditable Then%>
2069 
                                    <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
6873 dpurdie 2070 
                                       <td align="center"  class="form_item">
2071 
                                          <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 2072 
                                             <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 2073 
                                          </span>
123 ghuddy 2074 
                                       </td>
121 hknight 2075 
                                    <%Else%>
6873 dpurdie 2076 
                                       <td align="center"  class="form_item">
2077 
                                          <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 2078 
                                             <img src="images/i_note_off.gif" width="11" height="12" border="0" alt="Add Note">
6873 dpurdie 2079 
                                          </span>
123 ghuddy 2080 
                                       </td>
121 hknight 2081 
                                    <%End If%>
2082 
                                 <%Else%>
2083 
                                    <%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%>
6873 dpurdie 2084 
                                       <td align="center"  class="form_item">
123 ghuddy 2085 
                                          <img src="images/i_note_on.gif" width="11" height="12" border="0" alt="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>">
2086 
                                       </td>
121 hknight 2087 
                                    <%Else%>
6873 dpurdie 2088 
                                       <td align="center"  class="form_item">
123 ghuddy 2089 
                                          <img src="images/i_note_off.gif" width="11" height="12" border="0">
2090 
                                       </td>
121 hknight 2091 
                                    <%End If%>
2092 
                                 <%End If%>
2093 
                                 <%If NOT pageIsEditable Then%>
6873 dpurdie 2094 
                                    <td align="center"  class="form_item">
123 ghuddy 2095 
                                       <img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0">
2096 
                                    </td>
121 hknight 2097 
                                 <%Else%>
6873 dpurdie 2098 
                                    <td align="center"  class="form_item">
2099 
                                       <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 2100 
                                          <img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list">
6873 dpurdie 2101 
                                       </span>
123 ghuddy 2102 
                                    </td>
121 hknight 2103 
                                 <%End If%>
2104 
                              </tr>
2105 
                              <%rsCQ.MoveNext
2106 
                           WEnd
2107 
                           rsCQ.Close()%>
2108 
                           <%If pageIsEditable Then%>
6873 dpurdie 2109 
                              <tr class=blank>
161 iaugusti 2110 
                                 <td align="center" nowrap bgcolor=#e4e9ec>
123 ghuddy 2111 
                                    <input type="submit" name="Apply" value="Apply" class="form_btn">
2112 
                                 </td>
121 hknight 2113 
                                 <td></td>
2114 
                                 <td></td>
2115 
                                 <td></td>
2116 
                                 <td></td>
2117 
                                 <td></td>
2118 
                                 <td></td>
2119 
                                 <td></td>
2120 
                                 <td></td>
2121 
                              </tr>
2122 
                           <%End If%>
2123 
                        <%Else%>
2124 
                           <tr>
2125 
                              <%If pageIsEditable Then%>
161 iaugusti 2126 
                                 <td bgcolor=#e4e9ec nowrap>&nbsp;</td>
121 hknight 2127 
                              <%End If%>
6873 dpurdie 2128 
                              <td nowrap></td>
2129 
                              <td class="form_item"></td>
2130 
                              <td class="form_item"></td>
2131 
                              <td class="form_item"></td>
2132 
                              <td class="form_item"></td>
2133 
                              <td class="form_item"></td>
2134 
                              <td class="form_item"></td>
2135 
                              <td align="center"  class="form_item"></td>
121 hknight 2136 
                           </tr>
2137 
                        <%End If%>
2138 
                        <input name="pv_id" type="hidden" value="<%=parPv_id%>">
2139 
                        <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
2140 
                     </form>
2141 
                  </table>
2142 
               <%End If%>
2143 
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
2144 
            <%End If%>
123 ghuddy 2145 
<!-- DEVI-050133 Although it would seem to the human eye that the following row and table closing tags are needed, -->
2146 
<!--             they do in fact cause the page to be rendered incorrectly. Hence they are commented out for now   -->
2147 
<!--             until the true cause of the mis-rendering can be ascertained.                                    -->
2148 
<!--     </tr> -->
2149 
<!--  </table> -->
121 hknight 2150 
   </fieldset>
4230 dpurdie 2151 
   <br>
119 ghuddy 2152 
<!-- DEPENDENCY ISSUES (NOT FOR PATCHES!) ------------------------------------------------------------------------------------------------------->
2153 
 
121 hknight 2154 
   <%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
6827 dpurdie 2155 
      <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 2156 
         <table width="100%" border="0" cellspacing="1" cellpadding="2" class=stdGrey>
119 ghuddy 2157 
 
4585 dpurdie 2158 
            <%
2159 
            If  Request("ShowIssues") <> "" Then
2160 
                retVal = Get_Package_Issues ( parPv_id, SQLstr, NULL, NULL, NULL )
2161 
            Else
2162 
                retVal = 0
2163 
                %>
2164 
                <tr>
6873 dpurdie 2165 
                    <td>
2166 
                        <span class='pointer txt_linked' onClick="window.location.href=window.location.href+'&ShowIssues=1'">Show Issues of Dependent Packages</span>
4585 dpurdie 2167 
                    </td>
2168 
                </tr>
2169 
                <%
2170 
            End If
121 hknight 2171 
            If (retVal > 0) Then
2172 
               retVal = Get_Dependency_CQ_Issues ( SQLstr, rsCQ, depIssDict, issArr )
2173 
               If retVal = 0 Then%>
2174 
                  <%
2175 
                  currG1 = 0
2176 
                  G1_template = _
2177 
                  "<tr>"&_
2178 
                  "  <td colspan='7'><img src='images/spacer.gif' width='2' height='2'></td>"&_
2179 
                  "</tr>"&_
2180 
                  "<tr>"&_
161 iaugusti 2181 
                  "  <td colspan='7' bgcolor=#e4e9ec class='form_item'>/*DEP_NAME_VERSION*//*REASONS*/</td>"&_
121 hknight 2182 
                  "</tr>"
2183 
                  Set rsDepIss = OraDatabase.DbCreateDynaset( SQL_Dependency_Issues( parPv_id ), cint(0))
2184 
                  %>
2185 
                  <%If ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF)) Then%>
2186 
                     <%While ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF))%>
2187 
                        <%
2188 
                        iss_db_id = Cstr(rsDepIss("iss_db") &"."& rsDepIss("iss_id"))
2189 
                        G1_style = Replace(G1_template, "/*DEP_NAME_VERSION*/", "<SPAN class='envolPkg'><b>"& rsDepIss("pkg_name") &" "& rsDepIss("pkg_version") &"</b></SPAN>")
2190 
                        If IsNull(rsDepIss("iss_id")) Then
2191 
                           If IsNull(rsDepIss("reasons")) Then
2192 
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>Reason for this version is not specified.")
2193 
                           Else
2194 
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
2195 
                           End If
2196 
                        Else
2197 
                           If IsNull(rsDepIss("reasons")) Then
2198 
                              G1_style = Replace(G1_style, "/*REASONS*/", "")
2199 
                           Else
2200 
                              G1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )
2201 
                           End If
2202 
                        End If
119 ghuddy 2203 
 
121 hknight 2204 
                        Call Group_By ( rsDepIss("pv_id"), G1_style, currG1 )
2205 
                        If NOT IsNull(rsDepIss("iss_id")) Then
2206 
                           If rsDepIss("pv_id") <> currG1 Then
2207 
                              currG1 = rsDepIss("pv_id")%>
6873 dpurdie 2208 
                              <thead>
2209 
                                 <th width="1%" align="center"></th>
2210 
                                 <th width="1%" align="center">Fixed</th>
2211 
                                 <th width="1%" >IssueId</th>
2212 
                                 <th width="1%" >Issue DB</th>
2213 
                                 <th width="100%">Summary</th>
2214 
                                 <th width="1%" >IssueType</th>
2215 
                                 <th width="1%" >Priority</th>
2216 
                              </thead>
121 hknight 2217 
                           <%End If%>
2218 
                           <tr>
161 iaugusti 2219 
                              <td bgcolor=#e4e9ec></td>
6873 dpurdie 2220 
                              <td align="center" nowrap>
121 hknight 2221 
                                 <%If CInt(rsDepIss("iss_state")) = enumISSUES_STATE_FIXED Then%>
2222 
                                    <img src="images/i_tick_black.gif" width="7" height="7" vspace="2">
2223 
                                 <%Else%>
2224 
                                    <img src="images/spacer.gif" width="7" height="7" vspace="2">
2225 
                                 <%End If%>
2226 
                              </td>
6873 dpurdie 2227 
                              <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>
2228 
                              <td class="form_item">
4553 dpurdie 2229 
                                    <%If CInt(asDepIss( iss_db_id, enumLoc_iss_db )) = enumCLEARQUEST_DEVI_ID Then%>
3975 dpurdie 2230 
                                        DEVI
2231 
                                    <%Else%>
2232 
                                        UNKNOWN
2233 
                                    <%End If%></td>
6873 dpurdie 2234 
                              <td class="form_item"><%=asDepIss( iss_db_id, enumLoc_summary)%></td>
2235 
                              <td nowrap  class="form_item"><%=asDepIss( iss_db_id, enumLoc_issue_type)%></td>
2236 
                              <td nowrap  class="form_item"><%=asDepIss( iss_db_id, enumLoc_priority)%></td>
121 hknight 2237 
                           </tr>
2238 
                        <%End If%>
2239 
                        <%rsDepIss.MoveNext
2240 
                     WEnd
2241 
                     rsDepIss.Close()
2242 
                     Set rsDepIss = nothing%>
2243 
                  <%Else%>
2244 
                     <tr>
6873 dpurdie 2245 
                        <td nowrap></td>
2246 
                        <td></td>
2247 
                        <td></td>
2248 
                        <td></td>
2249 
                        <td></td>
2250 
                        <td></td>
2251 
                        <td></td>
121 hknight 2252 
                     </tr>
2253 
                  <%End If%>
2254 
               <%End If%>
2255 
               <%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
2256 
            <%End If%>
2257 
         </table>
2258 
      </fieldset>
4230 dpurdie 2259 
      <br>
121 hknight 2260 
   <%End If%>
119 ghuddy 2261 
<!-- UNIT TESTS --------------------------------------------------------------------------------------------------------------------->
121 hknight 2262 
   <%
2263 
   Dim testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound
2264 
   Call CheckUnitTestsState ( parPv_id, testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound  )
2265 
   Set rsQry = OraDatabase.DbCreateDynaset( SQL_Unit_Tests ( parPv_id ), cint(0))
2266 
   %>
6324 dpurdie 2267 
   <fieldset class="fset">
6827 dpurdie 2268 
      <legend class="body_colb"><img src="images/i_unit_test.gif" width="18" height="25" hspace="4" border="0" align='absmiddle' alt="">Unit Tests
2269 
      <%If testCheckMSG_ID = 0 AND (pkgInfoHash.Item("dlocked") <> "Y") Then%>
121 hknight 2270 
         &nbsp;&nbsp;<%=testCheckMSG%>
2271 
      <%End If%></legend>
6324 dpurdie 2272 
      <div style="display: block;float: right;margin-top: -20px;background-color: #FFF;padding: 0 5px;">
2273 
           <%If ( scriptName = "fixed_issues.asp" ) Then%>
2274 
              <%If objAccessControl.UserLogedIn AND (pageIsEditable OR (pkgInfoHash.Item("dlocked") = "Y")) Then%>
6873 dpurdie 2275 
                 <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 2276 
              <%End If%>
2277 
              <%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = 0)  Then%>
6827 dpurdie 2278 
                 <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 2279 
              <%End If%>
2280 
           <%End If%>
2281 
      </div>
121 hknight 2282 
      <a name="UNIT_TESTS"></a>
2283 
      <%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = -1) Then%>
2284 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
2285 
            <tr>
6873 dpurdie 2286 
               <td class="form_item">
121 hknight 2287 
                  <%Call DisplayInfo ( "UNIT_TEST_NOT_DONE", 300 )%>
2288 
                  <span class="rep_small">Last Modified: <%=testCheckMSG%></span><br>
2289 
                  <%=NewLine_To_BR( To_HTML ( testCheckNote ) )%>
2290 
               </td>
2291 
            </tr>
2292 
         </table>
2293 
      <%End If%>
119 ghuddy 2294 
 
6873 dpurdie 2295 
      <table width="100%" border="0" cellspacing="1" cellpadding="2" class='stdGrey'>
121 hknight 2296 
         <form name="review" method="get" action="_update_unit_test_accepted_state.asp">
6873 dpurdie 2297 
            <thead>
2298 
               <th width="1%" nowrap valign="middle">Test Type</th>
2299 
               <th width="100%" nowrap valign="middle">Test Summary</th>
2300 
               <th width="1%" nowrap align="center" valign="middle">Test<br>Completed</th>
2301 
               <th width="1%" nowrap align="center" valign="middle">Passed<br># / Total</th>
2302 
               <th width="1%" nowrap align="center" valign="middle">Results</th>
2303 
               <th width="1%" nowrap align="center" valign="middle">Accepted</th>
2304 
               <th width="1%" nowrap align="center" valign="middle">Review<br>Completed</th>
2305 
               <th width="1%" nowrap valign="middle">Comments /<br>Issue#</th>
2306 
               <th width="1%" ></th>
2307 
            </thead>
2308 
            <%
2309 
               Dim ShowApply: ShowApply = FALSE
2310 
               While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) )%>
121 hknight 2311 
               <tr>
2312 
                  <%If NOT pageIsEditable Then%>
6873 dpurdie 2313 
                     <%If NOT IsNull(rsQry("test_id")) AND ( scriptName = "fixed_issues.asp") Then %>
2314 
                        <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>
2315 
                     <%Else %>
2316 
                        <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 2317 
                     <%End If%>
6873 dpurdie 2318 
                  <%Else %>
2319 
                     <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>
2320 
                  <%End If %>
2321 
                  <%If rsQry("test_type_id") <> CStr(enumTEST_TYPE_AUTOBUILD_UTF) Then %>
2322 
                  <td valign="top"><%=NewLine_To_BR( To_HTML( rsQry("test_summary") ))%></td>
2323 
                  <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>
2324 
                  <td nowrap   valign="top" align="center"><%=rsQry("numof_test")%></td>
119 ghuddy 2325 
 
6873 dpurdie 2326 
                  <%If CInt(rsQry("test_type_id")) = enumTEST_TYPE_AUTOMATIC Then %>
2327 
                     <td align="center" valign="top">
121 hknight 2328 
                        <%If NOT IsNull( rsQry("results_url") ) Then%>
2329 
                           <%If InStr( rsQry("results_url"), "http://" ) = 1 Then%>
2330 
                              <a href="<%=rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a>
2331 
                           <%Else%>
3959 dpurdie 2332 
                              <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 2333 
                           <%End If%>
2334 
                        <%End If%>
2335 
                     </td>
6873 dpurdie 2336 
                  <% Else %>
2337 
                     <td align="center" valign="top">
121 hknight 2338 
                        <%If NOT IsNull( rsQry("results_attachment_name") ) Then%>
4809 dpurdie 2339 
                            <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 2340 
                        <%End If%>
2341 
                     </td>
2342 
                  <%End If%>
119 ghuddy 2343 
 
6873 dpurdie 2344 
                  <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top" align="center">
2345 
                        <%=FormatAccepted(rsQry("test_accepted"), rsQry("test_id"))%>
2346 
                        <%ShowApply = true%>
2347 
                  </td>
2348 
                  <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>
2349 
                  <td valign="top"><%=NewLine_To_BR( To_HTML( rsQry("review_comments") ))%></td>
2350 
                  <%Else%>
2351 
                    <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>
2352 
                  <%End If%>
157 ghuddy 2353 
                  <%
2354 
                  If (  (    pageIsEditable _
2355 
                         AND (scriptName = "fixed_issues.asp") _
2356 
                         AND (IsNull(rsQry("test_accepted")) OR (rsQry("test_accepted") = enumUNIT_TEST_NOTACCEPTED))) _
2357 
                      OR _
2358 
                        (    objAccessControl.UserLogedIn _
2359 
                         AND (scriptName = "fixed_issues.asp") _
2360 
                         AND (pkgInfoHash.Item("dlocked") = "Y") _
2361 
                         AND (IsNull(rsQry("test_accepted")) OR (rsQry("test_accepted") = enumUNIT_TEST_NOTACCEPTED)) _
2362 
                         AND (rsQry("test_type_id") <> CStr(enumTEST_TYPE_AUTOBUILD_UTF))) ) Then
2363 
                  %>
6873 dpurdie 2364 
                     <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>
2365 
                  <% Else %>
2366 
                     <td valign="top"></td>
121 hknight 2367 
                  <%End If%>
2368 
               </tr>
157 ghuddy 2369 
               <%
2370 
               rsQry.MoveNext
2371 
            WEnd
2372 
            %>
6873 dpurdie 2373 
            <tr class=blank>
2374 
               <td></td>
2375 
               <td></td>
2376 
               <td></td>
2377 
               <td></td>
2378 
               <td></td>
2379 
               <td align="center">
2380 
                  <%If ShowApply AND (testCheckTestsFound) AND (testCheckMSG_ID = 0) AND ( scriptName = "fixed_issues.asp" ) AND pageIsEditable Then%>
157 ghuddy 2381 
                     <input type="submit" name="Apply" value="Apply" class="form_btn">
2382 
                  <%End If%>
2383 
               </td>
6873 dpurdie 2384 
               <td></td>
2385 
               <td></td>
2386 
               <td></td>
121 hknight 2387 
            </tr>
2388 
            <input name="pv_id" type="hidden" value="<%=parPv_id%>">
2389 
            <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
2390 
         </form>
2391 
      </table>
2392 
   </fieldset>
4230 dpurdie 2393 
    <br>
119 ghuddy 2394 
<!-- CODE REVIEW ------------------------------------------------------------------------------------------------------------------->
6324 dpurdie 2395 
   <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_CodeReview ( parPv_id ), cint(0))%>
2396 
   <fieldset class="fset">
2397 
      <legend class="body_colb"><img src='images/s_code_review.gif' width='21' height='23' hspace='4' border='0' align='absmiddle'>Code Review</legend>
2398 
      <div style="display: block;float: right;margin-top: -20px;background-color: #FFF;padding: 0 5px;">
2399 
           <%If ( scriptName = "fixed_issues.asp" ) Then%>
2400 
              <%If objAccessControl.UserLogedIn AND (pageIsEditable OR (pkgInfoHash.Item("dlocked") = "Y")) Then%>
6873 dpurdie 2401 
                 <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 2402 
              <%End If%>
2403 
              <%If rsQry.RecordCount > 0 Then%>
2404 
                 <%If NOT IsNull(rsQry("date_of_review")) Then%>
2405 
                    &nbsp;
6873 dpurdie 2406 
                    <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 2407 
                 <%End If%>
2408 
              <%End If%>
2409 
           <%End If%>
2410 
      </div>
121 hknight 2411 
      <a name="CODE_REVIEW" id="CODE_REVIEW"></a>
2412 
      <%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then%>
2413 
         <%If NOT IsNull(rsQry("date_of_review")) Then%>
6873 dpurdie 2414 
            <table width="100%"  border="0" cellspacing="1" cellpadding="4" class=lhsGrey>
121 hknight 2415 
               <tr>
6873 dpurdie 2416 
                  <td>Date of Review</td>
2417 
                  <td width='1%' nowrap><%=DisplayDate ( rsQry("date_of_review") )%>&nbsp;&nbsp;&nbsp;</td>
2418 
                  <td width='1%' align="right" nowrap class="hdr">&nbsp;&nbsp;&nbsp;Time Spent:</td>
2419 
                  <td><%=rsQry("time_spent")%> hrs </td>
121 hknight 2420 
               </tr>
2421 
               <tr>
6873 dpurdie 2422 
                  <td>Reason for Review</td>
2423 
                  <td colspan="3"  ><%=NewLine_To_BR( To_HTML( rsQry("review_reason") ))%></td>
121 hknight 2424 
               </tr>
2425 
               <tr>
6873 dpurdie 2426 
                  <td>Review Results </td>
2427 
                  <td colspan="3"  >
121 hknight 2428 
                  <%=DecodeOverallResult( rsQry("review_results") )%>
2429 
                  </td>
2430 
               </tr>
2431 
               <tr>
6873 dpurdie 2432 
                  <td>Issues Raised </td>
2433 
                  <td colspan="3"  ><%=NewLine_To_BR( To_HTML( rsQry("issues_raised") ))%></td>
121 hknight 2434 
               </tr>
119 ghuddy 2435 
            </table>
121 hknight 2436 
         <%Else%>
119 ghuddy 2437 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
121 hknight 2438 
               <tr>
6873 dpurdie 2439 
                  <td><span class='sublbox_txt'>No details found.</span></td>
121 hknight 2440 
               </tr>
119 ghuddy 2441 
            </table>
121 hknight 2442 
         <%End If%>
2443 
      <%Else%>
2444 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
2445 
            <tr>
6873 dpurdie 2446 
               <td><span class='sublbox_txt'>No details found.</span></td>
121 hknight 2447 
            </tr>
2448 
         </table>
2449 
      <%End If%>
119 ghuddy 2450 
 
121 hknight 2451 
      <!-- Code Review URL section for this version -->
2452 
      <%Call GetCodeReviewURLs( parPv_id, rsCodeReviewURL )%>
6873 dpurdie 2453 
      <table width="100%" border="0" cellspacing="1" cellpadding="2" class=stdGrey>
121 hknight 2454 
         <tr>
2455 
            <td align="left" valign="top" class="body_colb">Code Review URL for this version</td>
2456 
            <td align="right" valign="top" <%If NOT IsNull(rsCodeReviewURL("url")) Then Response.Write("colspan='5'")%>>
157 ghuddy 2457 
               <%If (scriptName = "fixed_issues.asp") AND objAccessControl.UserLogedIn AND (pageIsEditable OR (pkgInfoHash.Item("dlocked") = "Y")) Then%>
6873 dpurdie 2458 
                  <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 2459 
               <%End If%>
2460 
            </td>
2461 
         </tr>
2462 
         <%If IsNull(rsCodeReviewURL("full_url")) Then %>
2463 
            <tr>
6873 dpurdie 2464 
               <td width="100%"  colspan="2">
121 hknight 2465 
                  <span class='sublbox_txt'>No details found.</span>
2466 
               </td>
2467 
            </tr>
2468 
         <%Else%>
2469 
            <tr>
161 iaugusti 2470 
               <td bgcolor=#e4e9ec class="form_field">URL</td>
2471 
               <td bgcolor=#e4e9ec width="25%" class="form_field">Reason for Review</td>
2472 
               <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Date of Review</td>
2473 
               <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Last Modified</td>
2474 
               <td bgcolor=#e4e9ec nowrap width="18px" class="form_field"></td>
2475 
               <td bgcolor=#e4e9ec nowrap width="18px" class="form_field"></td>
121 hknight 2476 
            </tr>
2477 
            <%If ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF)) Then
2478 
               While ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF))%>
2479 
                  <tr>
2480 
                     <%If (Left(rsCodeReviewURL("url"),4) = "http") Then%>
6873 dpurdie 2481 
                        <td valign="top"><a href="<%=rsCodeReviewURL("url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("url")%></a></td>
121 hknight 2482 
                     <%Else%>
6873 dpurdie 2483 
                        <td valign="top"><a href="<%=rsCodeReviewURL("full_url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("full_url")%></a></td>
121 hknight 2484 
                     <%End If%>
6873 dpurdie 2485 
                     <td valign="top"><%=rsCodeReviewURL("reason")%></td>
2486 
                     <td valign="top"><%=DisplayDate(rsCodeReviewURL("date_of_review"))%></td>
2487 
                     <td valign="top"><%=DisplayDate(rsCodeReviewURL("last_modified"))%></td>
157 ghuddy 2488 
                     <%If (scriptName = "fixed_issues.asp") AND objAccessControl.UserLogedIn AND (pageIsEditable OR (pkgInfoHash.Item("dlocked") = "Y")) Then%>
6873 dpurdie 2489 
                        <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>
2490 
                        <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 2491 
                     <%Else%>
6873 dpurdie 2492 
                        <td valign="top"></td>
2493 
                        <td valign="top"></td>
121 hknight 2494 
                     <%End If%>
2495 
                  </tr>
2496 
                  <%rsCodeReviewURL.MoveNext
2497 
               WEnd
2498 
            Else%>
2499 
               <tr>
6873 dpurdie 2500 
                  <td></td>
2501 
                  <td></td>
2502 
                  <td></td>
2503 
                  <td></td>
2504 
                  <td></td>
2505 
                  <td></td>
121 hknight 2506 
               </tr>
2507 
            <%End If
2508 
         End If%>
2509 
      </table>
119 ghuddy 2510 
 
121 hknight 2511 
      <!-- Code Review URL section for last non-ripple build -->
2512 
      <%If pkgInfoHash.Item ("comments") = "Rippled Build." Then
2513 
         Call LastPvId(pkgInfoHash.Item ("pv_id"))
2514 
         While rsQry("comments") = "Rippled Build."
119 ghuddy 2515 
            Call LastPvId(rsQry("last_pv_id"))
121 hknight 2516 
         Wend
2517 
         Dim sOldPkgVersion
157 ghuddy 2518 
         Dim oldDlocked
2519 
         Call Get_Pkg_Short_Info ( rsQry("pv_id"), NULL, NULL, sOldPkgVersion, NULL, NULL, oldDlocked )
121 hknight 2520 
         Call GetCodeReviewURLs( rsQry("pv_id"), rsCodeReviewURL )
2521 
         %>
2522 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
2523 
            <tr>
2524 
               <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>
2525 
            </tr>
2526 
            <%If IsNull(rsCodeReviewURL("url")) Then%>
2527 
               <tr>
6873 dpurdie 2528 
                  <td width="100%"  colspan="2">
121 hknight 2529 
                     <span class='sublbox_txt'>No details found.</span>
119 ghuddy 2530 
                  </td>
121 hknight 2531 
               </tr>
2532 
            <%Else%>
2533 
               <tr>
161 iaugusti 2534 
                  <td bgcolor=#e4e9ec class="form_field">URL</td>
2535 
                  <td bgcolor=#e4e9ec width="30%" class="form_field">Reason for Review</td>
2536 
                  <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Date of Review</td>
2537 
                  <td bgcolor=#e4e9ec nowrap width="1%" class="form_field">Last Modified</td>
2538 
                  <td bgcolor=#e4e9ec nowrap width="18px" class="form_field"></td>
2539 
                  <td bgcolor=#e4e9ec nowrap width="18px" class="form_field"></td>
121 hknight 2540 
               </tr>
2541 
               <%If ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF)) Then
119 ghuddy 2542 
                  While ((NOT rsCodeReviewURL.BOF) AND (NOT rsCodeReviewURL.EOF))%>
121 hknight 2543 
                     <tr>
2544 
                        <%If (Left(rsCodeReviewURL("url"),4) = "http") Then%>
6873 dpurdie 2545 
                           <td valign="top"><a href="<%=rsCodeReviewURL("url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("url")%></a></td>
121 hknight 2546 
                        <%Else%>
6873 dpurdie 2547 
                           <td valign="top"><a href="<%=rsCodeReviewURL("full_url")%>" target="_blank" class="txt_linked"><%=rsCodeReviewURL("full_url")%></a></td>
121 hknight 2548 
                        <%End If%>
6873 dpurdie 2549 
                        <td valign="top"><%=rsCodeReviewURL("reason")%></td>
2550 
                        <td valign="top"><%=rsCodeReviewURL("date_of_review")%></td>
2551 
                        <td valign="top"><%=rsCodeReviewURL("last_modified")%></td>
157 ghuddy 2552 
                        <%If (scriptName = "fixed_issues.asp") AND objAccessControl.UserLogedIn AND (pageIsEditable OR (oldDlocked = "Y")) Then%>
6873 dpurdie 2553 
                           <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>
2554 
                           <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 2555 
                        <%Else%>
6873 dpurdie 2556 
                           <td valign="top"></td>
2557 
                           <td valign="top"></td>
121 hknight 2558 
                        <%End If%>
2559 
                     </tr>
2560 
                     <%rsCodeReviewURL.MoveNext
119 ghuddy 2561 
                  WEnd
121 hknight 2562 
               Else%>
119 ghuddy 2563 
                  <tr>
6873 dpurdie 2564 
                     <td></td>
2565 
                     <td></td>
2566 
                     <td></td>
2567 
                     <td></td>
2568 
                     <td></td>
2569 
                     <td></td>
119 ghuddy 2570 
                  </tr>
121 hknight 2571 
               <%End If
2572 
            End If%>
2573 
         </table>
2574 
      <%End If%>
119 ghuddy 2575 
 
121 hknight 2576 
   </fieldset>
2577 
   <br>
119 ghuddy 2578 
<!-- ADDITIONAL NOTES ------------------------------------------------------------------------------------------------------------------->
6324 dpurdie 2579 
   <fieldset class="fset">
6827 dpurdie 2580 
      <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 2581 
      <div style="display: block;float: right;margin-top: -20px;background-color: #FFF;padding: 0 5px;">
2582 
       <%If pageIsEditable Then%>
6873 dpurdie 2583 
          <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 2584 
       <%End If%>
2585 
      </div>
121 hknight 2586 
      <a name="ADDITIONAL_NOTES"></a>
6873 dpurdie 2587 
      <table width="100%" border="0" cellspacing="1" cellpadding="2" class=stdGrey>
121 hknight 2588 
         <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Additional_Notes ( parPv_id ), cint(0))%>
2589 
         <%If rsQry.RecordCount < 1 Then%>
2590 
            <tr>
6873 dpurdie 2591 
               <td>&nbsp;</td>
121 hknight 2592 
            </tr>
2593 
         <%End If%>
2594 
         <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
6873 dpurdie 2595 
            <tr class=hdr>
2596 
               <td width="100%" nowrap>
121 hknight 2597 
                  <%If pageIsEditable Then%>
6873 dpurdie 2598 
                     <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 2599 
                  <%Else%>
2600 
                     <%=To_HTML (rsQry("note_title"))%>
2601 
                  <%End If%>
2602 
               </td>
6873 dpurdie 2603 
               <td width="1%">
121 hknight 2604 
                  <%If pageIsEditable Then%>
6873 dpurdie 2605 
                     <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 2606 
                  <%End If%>
2607 
               </td>
2608 
            </tr>
2609 
            <tr>
6873 dpurdie 2610 
               <td colspan="2">
4230 dpurdie 2611 
                  <%=NewLine_To_BR( To_HTML ( rsQry("note_body") ) )%><br>
121 hknight 2612 
                  <span class="rep_small">Last Modified: <%=rsQry("lastmod")%></span>
2613 
               </td>
2614 
            </tr>
2615 
            <tr>
2616 
               <td colspan="2"><img src='images/spacer.gif' width='2' height='2'></td>
2617 
            </tr>
2618 
            <%rsQry.MoveNext
2619 
         WEnd%>
2620 
      </table>
2621 
   </fieldset>
5932 dpurdie 2622 
   <br>
2623 
<%End If%>
2624