| Line 419... |
Line 419... |
| 419 |
'-----------------------------------------------------------------------------------------------------------------------------
|
419 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 420 |
Sub Get_Pkg_Info ( SSpv_id, NNrtag )
|
420 |
Sub Get_Pkg_Info ( SSpv_id, NNrtag )
|
| 421 |
Dim rsTemp, Query_String, isaRelease
|
421 |
Dim rsTemp, Query_String, isaRelease
|
| 422 |
Dim opCodeListString, opCodeList, opCodeStr
|
422 |
Dim opCodeListString, opCodeList, opCodeStr
|
| 423 |
|
423 |
|
| 424 |
isaRelease = NOT ((NNrtag = "") or (IsNull(NNrtag)))
|
- |
|
| 425 |
|
- |
|
| 426 |
OraDatabase.Parameters.Add "PV_ID", SSpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
424 |
OraDatabase.Parameters.Add "PV_ID", SSpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 427 |
OraDatabase.Parameters.Add "RTAG_ID", NNrtag, ORAPARM_INPUT, ORATYPE_NUMBER
|
425 |
OraDatabase.Parameters.Add "RTAG_ID", NNrtag, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 428 |
OraDatabase.Parameters.Add "RETURN_NUMBER", NULL, ORAPARM_OUTPUT, ORATYPE_NUMBER
|
426 |
OraDatabase.Parameters.Add "RETURN_NUMBER", NULL, ORAPARM_OUTPUT, ORATYPE_NUMBER
|
| 429 |
OraDatabase.Parameters.Add "OP_CODE_LIST", NULL, ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
427 |
OraDatabase.Parameters.Add "OP_CODE_LIST", NULL, ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
| 430 |
|
428 |
|
| - |
|
429 |
isaRelease = NOT ((NNrtag = "") or (IsNull(NNrtag)))
|
| 431 |
pkgInfoHash.Add "isaRelease", isaRelease
|
430 |
pkgInfoHash.Add "isaRelease", isaRelease
|
| 432 |
|
431 |
|
| 433 |
'-- can_unofficial
|
432 |
'-- can_unofficial
|
| 434 |
' Limits the ability to unrelease a package version
|
433 |
' Limits the ability to unrelease a package version
|
| 435 |
pkgInfoHash.Item ("can_unofficial") = "false"
|
434 |
pkgInfoHash.Item ("can_unofficial") = "false"
|
| 436 |
|
435 |
|
| Line 670... |
Line 669... |
| 670 |
If rsTemp.RecordCount > 0 Then
|
669 |
If rsTemp.RecordCount > 0 Then
|
| 671 |
pkgInfoHash.Add "is_deprecated", True
|
670 |
pkgInfoHash.Add "is_deprecated", True
|
| 672 |
End If
|
671 |
End If
|
| 673 |
End If
|
672 |
End If
|
| 674 |
|
673 |
|
| - |
|
674 |
|
| - |
|
675 |
' Check if package is a NEW package - only one version in existence
|
| - |
|
676 |
Set rsTemp = OraDatabase.DbCreateDynaset( "select count(*) as count from package_versions pv where pkg_id = " & pkgInfoHash.Item ("pkg_id"), cint(0))
|
| - |
|
677 |
pkgInfoHash.Add "pkg_count" , rsTemp("count")
|
| - |
|
678 |
|
| 675 |
rsTemp.Close
|
679 |
rsTemp.Close
|
| 676 |
Set rsTemp = nothing
|
680 |
Set rsTemp = nothing
|
| 677 |
|
681 |
|
| 678 |
End Sub
|
682 |
End Sub
|
| 679 |
'-----------------------------------------------------------------------------------------------------------------------------
|
683 |
'-----------------------------------------------------------------------------------------------------------------------------
|