| Line 450... |
Line 450... |
| 450 |
|
450 |
|
| 451 |
If isaRelease Then
|
451 |
If isaRelease Then
|
| 452 |
'-- Find if package is editable in this project
|
452 |
'-- Find if package is editable in this project
|
| 453 |
' Not editable if
|
453 |
' Not editable if
|
| 454 |
' Imported via a Reference Package
|
454 |
' Imported via a Reference Package
|
| - |
|
455 |
' Imported via an SDK
|
| 455 |
' Release is not in Open or Restricted Mode
|
456 |
' Release is not in Open or Restricted Mode
|
| 456 |
' Project extenstion is project specific - and not within the allowed project
|
457 |
' Project extenstion is project specific - and not within the allowed project
|
| 457 |
'
|
458 |
'
|
| 458 |
OraDatabase.ExecuteSQL "BEGIN :RETURN_NUMBER := CAN_EDIT_PKG_IN_PROJECT( :PV_ID, :RTAG_ID ); END;"
|
459 |
OraDatabase.ExecuteSQL "BEGIN :RETURN_NUMBER := CAN_EDIT_PKG_IN_PROJECT( :PV_ID, :RTAG_ID ); END;"
|
| 459 |
pkgInfoHash.Item ("can_edit_in_project") = CStr( OraDatabase.Parameters("RETURN_NUMBER").Value )
|
460 |
pkgInfoHash.Item ("can_edit_in_project") = CStr( OraDatabase.Parameters("RETURN_NUMBER").Value )
|
| Line 474... |
Line 475... |
| 474 |
|
475 |
|
| 475 |
pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))
|
476 |
pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))
|
| 476 |
pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))
|
477 |
pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))
|
| 477 |
pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
|
478 |
pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
|
| 478 |
pkgInfoHash.Add "product_state_used", (rsTemp.Fields("product_state_used"))
|
479 |
pkgInfoHash.Add "product_state_used", (rsTemp.Fields("product_state_used"))
|
| - |
|
480 |
pkgInfoHash.Add "sdktag_id", (rsTemp.Fields("sdktag_id"))
|
| - |
|
481 |
pkgInfoHash.Add "is_sdkpkg", (NOT IsNull(rsTemp.Fields("sdktag_id")))
|
| - |
|
482 |
|
| 479 |
Else
|
483 |
Else
|
| 480 |
' -- Package Version is not a member of the specified release
|
484 |
' -- Package Version is not a member of the specified release
|
| 481 |
' Get Basic Release and Project Details
|
485 |
' Get Basic Release and Project Details
|
| 482 |
Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
|
486 |
Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
|
| 483 |
" from projects pj, release_tags rt" &_
|
487 |
" from projects pj, release_tags rt" &_
|
| Line 1028... |
Line 1032... |
| 1028 |
Case enumPKG_ADVISORY_RIPPLE_DEPENDENT
|
1032 |
Case enumPKG_ADVISORY_RIPPLE_DEPENDENT
|
| 1029 |
DefineStateIcon = enum_imgARD
|
1033 |
DefineStateIcon = enum_imgARD
|
| 1030 |
|
1034 |
|
| 1031 |
Case enumPKG_PEGGED_VERSION
|
1035 |
Case enumPKG_PEGGED_VERSION
|
| 1032 |
DefineStateIcon = enum_imgGreenPin
|
1036 |
DefineStateIcon = enum_imgGreenPin
|
| - |
|
1037 |
|
| - |
|
1038 |
Case enumPKG_SDK_IMPORT
|
| - |
|
1039 |
DefineStateIcon = enum_imgSdkImport
|
| - |
|
1040 |
|
| - |
|
1041 |
Case enumPKG_SDK_DEPENDENCY
|
| - |
|
1042 |
DefineStateIcon = enum_imgSdkDep
|
| - |
|
1043 |
|
| 1033 |
End Select
|
1044 |
End Select
|
| 1034 |
|
1045 |
|
| 1035 |
If (NOT bForEnvironment) AND _
|
1046 |
If (NOT bForEnvironment) AND _
|
| 1036 |
(cBuildType = "A") AND _
|
1047 |
(cBuildType = "A") AND _
|
| 1037 |
(CCdlocked <> "Y") AND _
|
1048 |
(CCdlocked <> "Y") AND _
|
| Line 1094... |
Line 1105... |
| 1094 |
Case enumPKG_ADVISORY_RIPPLE_DEPENDENT
|
1105 |
Case enumPKG_ADVISORY_RIPPLE_DEPENDENT
|
| 1095 |
DefineStateIconSimple = enum_imgARD
|
1106 |
DefineStateIconSimple = enum_imgARD
|
| 1096 |
|
1107 |
|
| 1097 |
Case enumPKG_PEGGED_VERSION
|
1108 |
Case enumPKG_PEGGED_VERSION
|
| 1098 |
DefineStateIconSimple = enum_imgGreenPin
|
1109 |
DefineStateIconSimple = enum_imgGreenPin
|
| - |
|
1110 |
|
| - |
|
1111 |
Case enumPKG_SDK_IMPORT
|
| - |
|
1112 |
DefineStateIcon = enum_imgSdkImport
|
| - |
|
1113 |
|
| - |
|
1114 |
Case enumPKG_SDK_DEPENDENCY
|
| - |
|
1115 |
DefineStateIcon = enum_imgSdkDep
|
| - |
|
1116 |
|
| 1099 |
End Select
|
1117 |
End Select
|
| 1100 |
End Function
|
1118 |
End Function
|
| 1101 |
'-----------------------------------------------------------------------------------------------------------------------------
|
1119 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 1102 |
Function DefineStateSmallIcon ( NNpkg_state, CCdlocked )
|
1120 |
Function DefineStateSmallIcon ( NNpkg_state, CCdlocked )
|
| 1103 |
Select Case CInt( NNpkg_state )
|
1121 |
Select Case CInt( NNpkg_state )
|