| Line 466... |
Line 466... |
| 466 |
|
466 |
|
| 467 |
Call Query_Config_Spec (Request("rtag_id"), Request("pv_id"))
|
467 |
Call Query_Config_Spec (Request("rtag_id"), Request("pv_id"))
|
| 468 |
|
468 |
|
| 469 |
Dim config_branch: config_branch = rsQry("config_spec_branch")
|
469 |
Dim config_branch: config_branch = rsQry("config_spec_branch")
|
| 470 |
Dim dlocked: dlocked = pkgInfoHash.Item("dlocked")
|
470 |
Dim dlocked: dlocked = pkgInfoHash.Item("dlocked")
|
| 471 |
Dim src_path: src_path = rsQry("src_path")
|
- |
|
| 472 |
Dim pkg_label: pkg_label = rsQry("pkg_label")
|
- |
|
| 473 |
Dim pkg_vcs_tag
|
471 |
Dim pkg_vcs_tag
|
| 474 |
|
472 |
|
| 475 |
OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
473 |
OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 476 |
OraDatabase.Parameters.Add "RETURN_CODE","", ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
474 |
OraDatabase.Parameters.Add "RETURN_CODE","", ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
| 477 |
OraDatabase.ExecuteSQL _
|
475 |
OraDatabase.ExecuteSQL _
|
| 478 |
"BEGIN :RETURN_CODE := PK_RMAPI.RETURN_VCS_TAG( :PV_ID ); END;"
|
476 |
"BEGIN :RETURN_CODE := PK_RMAPI.RETURN_VCS_TAG( :PV_ID ); END;"
|
| 479 |
pkg_vcs_tag = OraDatabase.Parameters("RETURN_CODE").Value
|
477 |
pkg_vcs_tag = OraDatabase.Parameters("RETURN_CODE").Value
|
| 480 |
OraDatabase.Parameters.Remove "PV_ID"
|
478 |
OraDatabase.Parameters.Remove "PV_ID"
|
| 481 |
OraDatabase.Parameters.Remove "RETURN_CODE"
|
479 |
OraDatabase.Parameters.Remove "RETURN_CODE"
|
| 482 |
|
480 |
|
| 483 |
If (pkg_label <> "" AND src_path <> "") Then
|
- |
|
| 484 |
If (dlocked <> "Y" AND NOT IsNull(config_branch) AND config_branch <> "" ) Then
|
481 |
If (dlocked <> "Y" AND NOT IsNull(config_branch) AND config_branch <> "" ) Then
|
| 485 |
ajats_cmd = "jats vcsrelease -extract -label """ & pkg_vcs_tag & """ " & config_branch
|
482 |
ajats_cmd = "jats vcsrelease -extract -label """ & pkg_vcs_tag & """ -branch " & config_branch
|
| 486 |
Else
|
- |
|
| 487 |
ajats_cmd = "jats vcsrelease -extract -label """ & pkg_vcs_tag & """"
|
- |
|
| 488 |
End If
|
- |
|
| 489 |
ajats_cmd_test = "jats vcsrelease -test -label """ & pkg_vcs_tag & """"
|
- |
|
| 490 |
Else
|
483 |
Else
|
| 491 |
ajats_cmd = "UNAVAILABLE - missing package vcs tag"
|
484 |
ajats_cmd = "jats vcsrelease -extract -label """ & pkg_vcs_tag & """"
|
| 492 |
ajats_cmd_test = "UNAVAILABLE - missing package vcs tag"
|
- |
|
| 493 |
End If
|
485 |
End If
|
| - |
|
486 |
ajats_cmd_test = "jats vcsrelease -test -label """ & pkg_vcs_tag & """"
|
| 494 |
|
487 |
|
| 495 |
rsQry.Close()
|
488 |
rsQry.Close()
|
| 496 |
Set rsQry = nothing
|
489 |
Set rsQry = nothing
|
| 497 |
|
490 |
|
| 498 |
End Sub
|
491 |
End Sub
|