| Line 460... |
Line 460... |
| 460 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
460 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| 461 |
OraDatabase.Parameters.Remove "PV_ID"
|
461 |
OraDatabase.Parameters.Remove "PV_ID"
|
| 462 |
End Sub
|
462 |
End Sub
|
| 463 |
|
463 |
|
| 464 |
'---------------------------------------------------------------
|
464 |
'---------------------------------------------------------------
|
| - |
|
465 |
' Returns the jats extraction commands
|
| 465 |
Sub Jats_Extract_Command (ByRef ajats_cmd, ByRef ajats_cmd_test)
|
466 |
Sub Jats_Extract_Command (ByRef ajats_cmd, ByRef ajats_cmd_test)
|
| 466 |
|
- |
|
| 467 |
Call Query_Config_Spec (Request("rtag_id"), Request("pv_id"))
|
- |
|
| 468 |
|
- |
|
| 469 |
Dim config_branch: config_branch = rsQry("config_spec_branch")
|
- |
|
| 470 |
Dim dlocked: dlocked = pkgInfoHash.Item("dlocked")
|
467 |
Dim dlocked: dlocked = pkgInfoHash.Item("dlocked")
|
| - |
|
468 |
|
| 471 |
Dim pkg_vcs_tag
|
469 |
Dim pkg_vcs_tag: pkg_vcs_tag = Get_Vcs_Tag(Request("pv_id"))
|
| 472 |
|
470 |
|
| 473 |
OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
471 |
' if not released then use last package version vcs tag and branch else use current vcs tag
|
| 474 |
OraDatabase.Parameters.Add "RETURN_CODE","", ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
472 |
If dlocked <> "Y" Then
|
| 475 |
OraDatabase.ExecuteSQL _
|
473 |
' not released, so get last package version id
|
| 476 |
"BEGIN :RETURN_CODE := PK_RMAPI.RETURN_VCS_TAG( :PV_ID ); END;"
|
474 |
Dim last_pv_id: last_pv_id = pkgInfoHash.Item("last_pv_id")
|
| 477 |
pkg_vcs_tag = OraDatabase.Parameters("RETURN_CODE").Value
|
475 |
Dim last_pkg_vcs_tag: last_pkg_vcs_tag = Get_Vcs_Tag(last_pv_id)
|
| 478 |
OraDatabase.Parameters.Remove "PV_ID"
|
476 |
Call Query_Config_Spec (Request("rtag_id"), last_pv_id)
|
| 479 |
OraDatabase.Parameters.Remove "RETURN_CODE"
|
477 |
Dim config_branch: config_branch = rsQry("config_spec_branch")
|
| 480 |
|
478 |
|
| 481 |
If (dlocked <> "Y" AND NOT IsNull(config_branch) AND config_branch <> "" ) Then
|
479 |
If NOT IsNull(config_branch) AND (config_branch <> "") Then
|
| 482 |
ajats_cmd = "jats vcsrelease -extract -label """ & pkg_vcs_tag & """ -branch " & config_branch
|
480 |
ajats_cmd = "jats vcsrelease -extract -label """ & last_pkg_vcs_tag & """ -branch " & config_branch
|
| - |
|
481 |
Else
|
| - |
|
482 |
ajats_cmd = "jats vcsrelease -extract -label """ & last_pkg_vcs_tag & """"
|
| - |
|
483 |
End If
|
| 483 |
Else
|
484 |
Else
|
| - |
|
485 |
' released
|
| 484 |
ajats_cmd = "jats vcsrelease -extract -label """ & pkg_vcs_tag & """"
|
486 |
ajats_cmd = "jats vcsrelease -extract -label """ & pkg_vcs_tag & """"
|
| 485 |
End If
|
487 |
End If
|
| - |
|
488 |
|
| 486 |
ajats_cmd_test = "jats vcsrelease -test -label """ & pkg_vcs_tag & """"
|
489 |
ajats_cmd_test = "jats vcsrelease -test -label """ & pkg_vcs_tag & """"
|
| 487 |
|
490 |
|
| 488 |
rsQry.Close()
|
491 |
rsQry.Close()
|
| 489 |
Set rsQry = nothing
|
492 |
Set rsQry = nothing
|
| 490 |
|
493 |
|
| 491 |
End Sub
|
494 |
End Sub
|
| 492 |
|
495 |
|
| - |
|
496 |
'---------------------------------------------------------------
|
| - |
|
497 |
' Returns the VCS tag for the specified package version
|
| - |
|
498 |
Function Get_Vcs_Tag(apv_id)
|
| - |
|
499 |
OraDatabase.Parameters.Add "PV_ID", apv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
500 |
OraDatabase.Parameters.Add "RETURN_CODE","", ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
| - |
|
501 |
OraDatabase.ExecuteSQL ("BEGIN :RETURN_CODE := PK_RMAPI.RETURN_VCS_TAG( :PV_ID ); END;")
|
| 493 |
|
- |
|
| - |
|
502 |
Get_Vcs_Tag = OraDatabase.Parameters("RETURN_CODE").Value
|
| - |
|
503 |
OraDatabase.Parameters.Remove "PV_ID"
|
| - |
|
504 |
OraDatabase.Parameters.Remove "RETURN_CODE"
|
| 494 |
|
505 |
End Function
|
| 495 |
|
506 |
|
| 496 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
507 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 497 |
|
508 |
|
| 498 |
|
509 |
|
| 499 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
510 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| Line 829... |
Line 840... |
| 829 |
' Previous pkg vcs tag
|
840 |
' Previous pkg vcs tag
|
| 830 |
Dim last_pv_id
|
841 |
Dim last_pv_id
|
| 831 |
Dim rsQryPV, rsQryVT
|
842 |
Dim rsQryPV, rsQryVT
|
| 832 |
Set rsQryPV = OraDatabase.DbCreateDynaset( "SELECT last_pv_id from package_versions where pv_id ="&parPv_id , cint(0))
|
843 |
Set rsQryPV = OraDatabase.DbCreateDynaset( "SELECT last_pv_id from package_versions where pv_id ="&parPv_id , cint(0))
|
| 833 |
last_pv_id = rsQryPV("last_pv_id")
|
844 |
last_pv_id = rsQryPV("last_pv_id")
|
| 834 |
Set rsQryVT = OraDatabase.DbCreateDynaset( "SELECT RELEASE_MANAGER.PK_RMAPI.return_vcs_tag("& last_pv_id &") as pkg_vcs_tag from DUAL", cint(0))
|
845 |
Dim slast_vcs_tag: slast_vcs_tag = Get_Vcs_Tag(last_pv_id)
|
| 835 |
%>
|
846 |
%>
|
| 836 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
847 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
| 837 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
848 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
| 838 |
<tr class="sublbox_txt">
|
849 |
<tr class="sublbox_txt">
|
| 839 |
<td width=15% colspan=2 nowrap class="sublbox_txt">
|
850 |
<td width=15% colspan=2 nowrap class="sublbox_txt">
|
| 840 |
<%=sprevious_version_value%>
|
851 |
<%=sprevious_version_value%>
|
| 841 |
</td>
|
852 |
</td>
|
| 842 |
<td colspan="2" nowrap class="sublbox_txt">
|
853 |
<td colspan="2" nowrap class="sublbox_txt">
|
| 843 |
<%=NewLine_To_BR ( To_HTML( rsQryVT("pkg_vcs_tag") ) )%><%=Quick_Help ( "PreviousVcsTag" )%>
|
854 |
<%=NewLine_To_BR ( To_HTML(slast_vcs_tag) )%><%=Quick_Help ( "PreviousVcsTag" )%>
|
| 844 |
</td>
|
855 |
</td>
|
| 845 |
</tr>
|
856 |
</tr>
|
| 846 |
</table>
|
857 |
</table>
|
| 847 |
</td>
|
858 |
</td>
|
| 848 |
</tr>
|
859 |
</tr>
|
| Line 853... |
Line 864... |
| 853 |
Dim old_previous_version_value
|
864 |
Dim old_previous_version_value
|
| 854 |
iLastSignificantPVID = getLastSignificantPVID(pkgInfoHash.Item("pv_id"), pkgInfoHash.Item("last_pv_id"))
|
865 |
iLastSignificantPVID = getLastSignificantPVID(pkgInfoHash.Item("pv_id"), pkgInfoHash.Item("last_pv_id"))
|
| 855 |
|
866 |
|
| 856 |
If (pv_id_exists(iLastSignificantPVID) = TRUE) Then
|
867 |
If (pv_id_exists(iLastSignificantPVID) = TRUE) Then
|
| 857 |
Dim rsQryLPV
|
868 |
Dim rsQryLPV
|
| 858 |
Set rsQryLPV = OraDatabase.DbCreateDynaset( "SELECT pkg_version,PK_RMAPI.RETURN_VCS_TAG(pv_id) as pkg_vcs_tag from package_versions where pv_id ="&iLastSignificantPVID , cint(0))
|
869 |
Set rsQryLPV = OraDatabase.DbCreateDynaset( "SELECT pkg_version from package_versions where pv_id ="&iLastSignificantPVID , cint(0))
|
| 859 |
old_pkg_vcs_tag = rsQryLPV("pkg_vcs_tag")
|
- |
|
| 860 |
old_previous_version_value = rsQryLPV("pkg_version")
|
870 |
old_previous_version_value = rsQryLPV("pkg_version")
|
| - |
|
871 |
old_pkg_vcs_tag = Get_Vcs_Tag(iLastSignificantPVID)
|
| 861 |
%>
|
872 |
%>
|
| 862 |
<tr>
|
873 |
<tr>
|
| 863 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt"><strong>Previous Significant Version:</strong></td>
|
874 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt"><strong>Previous Significant Version:</strong></td>
|
| 864 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
875 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
| 865 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
876 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|