| Line 502... |
Line 502... |
| 502 |
Get_Pkg_Vcs_Tag = OraDatabase.Parameters("RETURN_CODE").Value
|
502 |
Get_Pkg_Vcs_Tag = OraDatabase.Parameters("RETURN_CODE").Value
|
| 503 |
OraDatabase.Parameters.Remove "PV_ID"
|
503 |
OraDatabase.Parameters.Remove "PV_ID"
|
| 504 |
OraDatabase.Parameters.Remove "RETURN_CODE"
|
504 |
OraDatabase.Parameters.Remove "RETURN_CODE"
|
| 505 |
End Function
|
505 |
End Function
|
| 506 |
|
506 |
|
| 507 |
|
- |
|
| 508 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
- |
|
| 509 |
' Returns true if the specified package of the specified release is released
|
- |
|
| 510 |
Function Is_Released(artag_id, apv_id)
|
- |
|
| 511 |
If artag_id <> "" Then
|
- |
|
| 512 |
Dim rsQry: Set rsQry = OraDatabase.DbCreateDynaset( "SELECT rc.pv_id FROM release_content rc WHERE rc.rtag_id = " & artag_id & " AND rc.pv_id = " & apv_id, cint(0))
|
- |
|
| 513 |
Is_Released = rsQry.RecordCount > 0
|
- |
|
| 514 |
rsQry.Close()
|
- |
|
| 515 |
Set rsQry = Nothing
|
- |
|
| 516 |
Else
|
- |
|
| 517 |
Is_Released = False
|
- |
|
| 518 |
End If
|
- |
|
| 519 |
End Function
|
- |
|
| 520 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
507 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 521 |
|
508 |
|
| 522 |
|
509 |
|
| 523 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
510 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 524 |
%>
|
511 |
%>
|
| Line 538... |
Line 525... |
| 538 |
</td>
|
525 |
</td>
|
| 539 |
</tr>
|
526 |
</tr>
|
| 540 |
</table>
|
527 |
</table>
|
| 541 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
528 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
| 542 |
<%
|
529 |
<%
|
| 543 |
|
- |
|
| 544 |
|
- |
|
| 545 |
Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))
|
530 |
Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))
|
| 546 |
|
531 |
|
| 547 |
Call get_vcs_info_for_package( rsQry("pkg_label"), rsQry("build_type"), rsQry("vcs_type_id"), rsQry("dlocked"), vcsInfoCollector )
|
532 |
Call get_vcs_info_for_package( rsQry("pkg_label"), rsQry("build_type"), rsQry("vcs_type_id"), rsQry("dlocked"), vcsInfoCollector )
|
| 548 |
|
533 |
|
| 549 |
%>
|
534 |
%>
|
| Line 552... |
Line 537... |
| 552 |
' State
|
537 |
' State
|
| 553 |
Dim sstate
|
538 |
Dim sstate
|
| 554 |
Dim bcan_unlock
|
539 |
Dim bcan_unlock
|
| 555 |
Dim stitle
|
540 |
Dim stitle
|
| 556 |
Dim bis_patch
|
541 |
Dim bis_patch
|
| 557 |
Dim spkgtype
|
- |
|
| 558 |
Dim slockonclick: slockonclick=""
|
542 |
Dim slockonclick: slockonclick=""
|
| 559 |
Dim bis_released
|
- |
|
| 560 |
|
- |
|
| 561 |
bis_released = is_Released(parRtag_id, parPv_id)
|
- |
|
| 562 |
|
543 |
|
| 563 |
bis_patch = not IsNull(pkgInfoHash.Item ("is_patch"))
|
544 |
bis_patch = not IsNull(pkgInfoHash.Item ("is_patch"))
|
| 564 |
If bis_patch Then
|
- |
|
| 565 |
'patch
|
- |
|
| 566 |
' the user can unlock a patch if they have permission
|
545 |
' the user can unlock a patch if they have permission
|
| 567 |
bcan_unlock = objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch"))
|
- |
|
| 568 |
spkgtype = "patch"
|
- |
|
| 569 |
Else
|
- |
|
| 570 |
' package
|
- |
|
| 571 |
' the user can only unlock a package if it is released and they have permission
|
546 |
' packages can be unlocked by the btnUnlockRelease button
|
| 572 |
bcan_unlock = bis_released AND objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPackage"))
|
547 |
bcan_unlock = bis_patch AND objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch"))
|
| 573 |
spkgtype = "package"
|
- |
|
| 574 |
End If
|
- |
|
| 575 |
|
548 |
|
| 576 |
If (pkgInfoHash.Item ("dlocked") = "Y") Then
|
549 |
If (pkgInfoHash.Item ("dlocked") = "Y") Then
|
| 577 |
sstate = "Released"
|
550 |
sstate = "Released"
|
| 578 |
Else
|
551 |
Else
|
| 579 |
sstate = "Not released"
|
552 |
sstate = "Not released"
|
| 580 |
End If
|
553 |
End If
|
| 581 |
|
554 |
|
| 582 |
If bcan_unlock Then
|
555 |
If bcan_unlock Then
|
| 583 |
If (pkgInfoHash.Item ("dlocked") = "Y") Then
|
556 |
If (pkgInfoHash.Item ("dlocked") = "Y") Then
|
| 584 |
' Unlock patch or package.
|
557 |
' Unlock patch.
|
| 585 |
stitle="Unlock the " & spkgtype
|
558 |
stitle="Unlock the patch"
|
| 586 |
shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
|
559 |
shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
|
| 587 |
' allow unlocking of package after confirmation. Note: Unlocking of a package is intended for the administrators
|
- |
|
| 588 |
If not bis_patch Then slockonclick="'return confirmAction(""Do you want to unlock this package?"");'"
|
- |
|
| 589 |
ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
|
560 |
ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
|
| 590 |
' lock patch or package.
|
561 |
' lock patch.
|
| 591 |
shref="_s_lock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
|
562 |
shref="_s_lock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
|
| 592 |
stitle="Lock the " & spkgtype & ". Release requirements are not applied."
|
563 |
stitle="Lock the patch. Release requirements are not applied."
|
| 593 |
' allow locking of package after confirmation. Note: locking of a package is intended for the administrators
|
- |
|
| 594 |
If not bis_patch Then slockonclick="'return confirmAction(""Do you want to lock this package?"");'"
|
- |
|
| 595 |
End If
|
564 |
End If
|
| 596 |
End if
|
565 |
End if
|
| 597 |
|
566 |
|
| 598 |
%>
|
567 |
%>
|
| 599 |
|
568 |
|
| Line 757... |
Line 726... |
| 757 |
<%If IsNull( rsQry("src_path") ) Then%>
|
726 |
<%If IsNull( rsQry("src_path") ) Then%>
|
| 758 |
<span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
|
727 |
<span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
|
| 759 |
<%End If%>
|
728 |
<%End If%>
|
| 760 |
</td>
|
729 |
</td>
|
| 761 |
</tr>
|
730 |
</tr>
|
| - |
|
731 |
<%If PackageExists(parRtag_id,parPv_id,"work_in_progress") AND (Not IsNull(rsQry("pkg_label")) ) Then%>
|
| - |
|
732 |
<tr>
|
| - |
|
733 |
<td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>WIP Tag:</b> </td>
|
| - |
|
734 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
| - |
|
735 |
<%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%>
|
| - |
|
736 |
</td>
|
| - |
|
737 |
</tr>
|
| - |
|
738 |
<%End If%>
|
| 762 |
<%ElseIf vcsInfoCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG Then%>
|
739 |
<%ElseIf vcsInfoCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG Then%>
|
| 763 |
<tr>
|
740 |
<tr>
|
| 764 |
<td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Version Control System:</b></td>
|
741 |
<td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Version Control System:</b></td>
|
| 765 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
742 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
| 766 |
<%=NewLine_To_BR ( To_HTML( vcsInfoCollector.Item("vcs_name") ) )%>
|
743 |
<%=NewLine_To_BR ( To_HTML( vcsInfoCollector.Item("vcs_name") ) )%>
|