| Line 464... |
Line 464... |
| 464 |
'---------------------------------------------------------------
|
464 |
'---------------------------------------------------------------
|
| 465 |
' Returns the jats extraction commands
|
465 |
' Returns the jats extraction commands
|
| 466 |
Sub Jats_Extract_Command (ByRef ajats_cmd, ByRef ajats_cmd_test)
|
466 |
Sub Jats_Extract_Command (ByRef ajats_cmd, ByRef ajats_cmd_test)
|
| 467 |
Dim dlocked: dlocked = pkgInfoHash.Item("dlocked")
|
467 |
Dim dlocked: dlocked = pkgInfoHash.Item("dlocked")
|
| 468 |
|
468 |
|
| 469 |
Dim pkg_vcs_tag: pkg_vcs_tag = Get_Vcs_Tag(Request("pv_id"))
|
469 |
Dim pkg_vcs_tag: pkg_vcs_tag = Get_Pkg_Vcs_Tag(Request("pv_id"))
|
| 470 |
|
470 |
|
| 471 |
' if not released then use last package version vcs tag and branch else use current vcs tag
|
471 |
' if not released then use last package version vcs tag and branch else use current vcs tag
|
| 472 |
If dlocked <> "Y" Then
|
472 |
If dlocked <> "Y" Then
|
| 473 |
' not released, so get last package version id
|
473 |
' not released, so get last package version id
|
| 474 |
Dim last_pv_id: last_pv_id = pkgInfoHash.Item("last_pv_id")
|
474 |
Dim last_pv_id: last_pv_id = pkgInfoHash.Item("last_pv_id")
|
| 475 |
Dim last_pkg_vcs_tag: last_pkg_vcs_tag = Get_Vcs_Tag(last_pv_id)
|
475 |
Dim last_pkg_vcs_tag: last_pkg_vcs_tag = Get_Pkg_Vcs_Tag(last_pv_id)
|
| 476 |
Call Query_Config_Spec (Request("rtag_id"), last_pv_id)
|
476 |
Call Query_Config_Spec (Request("rtag_id"), last_pv_id)
|
| 477 |
Dim config_branch: config_branch = rsQry("config_spec_branch")
|
477 |
Dim config_branch: config_branch = rsQry("config_spec_branch")
|
| 478 |
|
478 |
|
| 479 |
If NOT IsNull(config_branch) AND (config_branch <> "") Then
|
479 |
If NOT IsNull(config_branch) AND (config_branch <> "") Then
|
| 480 |
ajats_cmd = "jats vcsrelease -extract -label """ & last_pkg_vcs_tag & """ -branch " & config_branch
|
480 |
ajats_cmd = "jats vcsrelease -extract -label """ & last_pkg_vcs_tag & """ -branch " & config_branch
|
| Line 493... |
Line 493... |
| 493 |
|
493 |
|
| 494 |
End Sub
|
494 |
End Sub
|
| 495 |
|
495 |
|
| 496 |
'---------------------------------------------------------------
|
496 |
'---------------------------------------------------------------
|
| 497 |
' Returns the VCS tag for the specified package version
|
497 |
' Returns the VCS tag for the specified package version
|
| 498 |
Function Get_Vcs_Tag(apv_id)
|
498 |
Function Get_Pkg_Vcs_Tag(apv_id)
|
| 499 |
OraDatabase.Parameters.Add "PV_ID", apv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
499 |
OraDatabase.Parameters.Add "PV_ID", apv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 500 |
OraDatabase.Parameters.Add "RETURN_CODE","", ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
500 |
OraDatabase.Parameters.Add "RETURN_CODE","", ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
| 501 |
OraDatabase.ExecuteSQL ("BEGIN :RETURN_CODE := PK_RMAPI.RETURN_VCS_TAG( :PV_ID ); END;")
|
501 |
OraDatabase.ExecuteSQL ("BEGIN :RETURN_CODE := PK_RMAPI.RETURN_VCS_TAG( :PV_ID ); END;")
|
| 502 |
Get_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 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
507 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| Line 840... |
Line 840... |
| 840 |
' Previous pkg vcs tag
|
840 |
' Previous pkg vcs tag
|
| 841 |
Dim last_pv_id
|
841 |
Dim last_pv_id
|
| 842 |
Dim rsQryPV, rsQryVT
|
842 |
Dim rsQryPV, rsQryVT
|
| 843 |
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))
|
| 844 |
last_pv_id = rsQryPV("last_pv_id")
|
844 |
last_pv_id = rsQryPV("last_pv_id")
|
| 845 |
Dim slast_vcs_tag: slast_vcs_tag = Get_Vcs_Tag(last_pv_id)
|
845 |
Dim slast_vcs_tag: slast_vcs_tag = Get_Pkg_Vcs_Tag(last_pv_id)
|
| 846 |
%>
|
846 |
%>
|
| 847 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
847 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
| 848 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
848 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
| 849 |
<tr class="sublbox_txt">
|
849 |
<tr class="sublbox_txt">
|
| 850 |
<td width=15% colspan=2 nowrap class="sublbox_txt">
|
850 |
<td width=15% colspan=2 nowrap class="sublbox_txt">
|
| Line 866... |
Line 866... |
| 866 |
|
866 |
|
| 867 |
If (pv_id_exists(iLastSignificantPVID) = TRUE) Then
|
867 |
If (pv_id_exists(iLastSignificantPVID) = TRUE) Then
|
| 868 |
Dim rsQryLPV
|
868 |
Dim rsQryLPV
|
| 869 |
Set rsQryLPV = OraDatabase.DbCreateDynaset( "SELECT pkg_version 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))
|
| 870 |
old_previous_version_value = rsQryLPV("pkg_version")
|
870 |
old_previous_version_value = rsQryLPV("pkg_version")
|
| 871 |
old_pkg_vcs_tag = Get_Vcs_Tag(iLastSignificantPVID)
|
871 |
old_pkg_vcs_tag = Get_Pkg_Vcs_Tag(iLastSignificantPVID)
|
| 872 |
%>
|
872 |
%>
|
| 873 |
<tr>
|
873 |
<tr>
|
| 874 |
<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>
|
| 875 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
875 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
| 876 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
876 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|