| Line 284... |
Line 284... |
| 284 |
Set rsTemp = nothing
|
284 |
Set rsTemp = nothing
|
| 285 |
Set OraDatabase2 = nothing
|
285 |
Set OraDatabase2 = nothing
|
| 286 |
Set OraSession2 = nothing
|
286 |
Set OraSession2 = nothing
|
| 287 |
End Function
|
287 |
End Function
|
| 288 |
'-----------------------------------------------------------------------------------------------------------------------------
|
288 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 289 |
Function Get_Pkg_Base_View ( NNpv_id, NNrtag_id )
|
- |
|
| 290 |
Dim rsTemp, Query_String
|
- |
|
| 291 |
|
- |
|
| 292 |
If NNrtag_id = "" Then
|
- |
|
| 293 |
Get_Pkg_Base_View = "N/A"
|
- |
|
| 294 |
Exit Function
|
- |
|
| 295 |
End If
|
- |
|
| 296 |
|
- |
|
| 297 |
Query_String = _
|
- |
|
| 298 |
" SELECT vi.view_name"&_
|
- |
|
| 299 |
" FROM release_content rc,"&_
|
- |
|
| 300 |
" views vi"&_
|
- |
|
| 301 |
" WHERE vi.view_id = rc.base_view_id"&_
|
- |
|
| 302 |
" AND rc.rtag_id = "& NNrtag_id &_
|
- |
|
| 303 |
" AND rc.pv_id = "& NNpv_id
|
- |
|
| 304 |
|
- |
|
| 305 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
- |
|
| 306 |
|
- |
|
| 307 |
If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
|
- |
|
| 308 |
Get_Pkg_Base_View = UCase(rsTemp.Fields("view_name"))
|
- |
|
| 309 |
Else
|
- |
|
| 310 |
Get_Pkg_Base_View = "N/A"
|
- |
|
| 311 |
End If
|
- |
|
| 312 |
|
- |
|
| 313 |
rsTemp.Close
|
- |
|
| 314 |
Set rsTemp = nothing
|
- |
|
| 315 |
End Function
|
- |
|
| 316 |
'-----------------------------------------------------------------------------------------------------------------------------
|
- |
|
| 317 |
Function Get_Proj_ID ( SSrtag_id )
|
289 |
Function Get_Proj_ID ( SSrtag_id )
|
| 318 |
Dim rsTemp, Query_String
|
290 |
Dim rsTemp, Query_String
|
| 319 |
|
291 |
|
| 320 |
Query_String = _
|
292 |
Query_String = _
|
| 321 |
" SELECT projects.proj_id"&_
|
293 |
" SELECT projects.proj_id"&_
|
| Line 508... |
Line 480... |
| 508 |
pkgInfoHash.Add "insertor", (rsTemp.Fields("insertor"))
|
480 |
pkgInfoHash.Add "insertor", (rsTemp.Fields("insertor"))
|
| 509 |
pkgInfoHash.Add "insertor_email", (rsTemp.Fields("insertor_email"))
|
481 |
pkgInfoHash.Add "insertor_email", (rsTemp.Fields("insertor_email"))
|
| 510 |
pkgInfoHash.Add "used_count", (rsTemp.Fields("used_count"))
|
482 |
pkgInfoHash.Add "used_count", (rsTemp.Fields("used_count"))
|
| 511 |
|
483 |
|
| 512 |
pkgInfoHash.Item ("base_view_id") = (rsTemp.Fields("base_view_id"))
|
484 |
pkgInfoHash.Item ("base_view_id") = (rsTemp.Fields("base_view_id"))
|
| - |
|
485 |
pkgInfoHash.Item ("view_name") = (rsTemp.Fields("view_name"))
|
| 513 |
pkgInfoHash.Item ("pkg_state") = (rsTemp.Fields("pkg_state"))
|
486 |
pkgInfoHash.Item ("pkg_state") = (rsTemp.Fields("pkg_state"))
|
| 514 |
pkgInfoHash.Item ("deprecated_state") = (rsTemp.Fields("deprecated_state"))
|
487 |
pkgInfoHash.Item ("deprecated_state") = (rsTemp.Fields("deprecated_state"))
|
| 515 |
pkgInfoHash.Item ("product_state") = (rsTemp.Fields("product_state"))
|
488 |
pkgInfoHash.Item ("product_state") = (rsTemp.Fields("product_state"))
|
| 516 |
|
489 |
|
| 517 |
pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))
|
490 |
pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))
|
| Line 521... |
Line 494... |
| 521 |
pkgInfoHash.Add "sdktag_id", (rsTemp.Fields("sdktag_id"))
|
494 |
pkgInfoHash.Add "sdktag_id", (rsTemp.Fields("sdktag_id"))
|
| 522 |
pkgInfoHash.Add "is_sdkpkg", (NOT IsNull(rsTemp.Fields("sdktag_id")))
|
495 |
pkgInfoHash.Add "is_sdkpkg", (NOT IsNull(rsTemp.Fields("sdktag_id")))
|
| 523 |
pkgInfoHash.Add "is_pegged", (rsTemp.Fields("pegged") <> 0)
|
496 |
pkgInfoHash.Add "is_pegged", (rsTemp.Fields("pegged") <> 0)
|
| 524 |
pkgInfoHash.Add "ripple_stop", rsTemp.Fields("ripple_stop")
|
497 |
pkgInfoHash.Add "ripple_stop", rsTemp.Fields("ripple_stop")
|
| 525 |
pkgInfoHash.Add "persist_ripple_stop", rsTemp.Fields("persist_ripple_stop")
|
498 |
pkgInfoHash.Add "persist_ripple_stop", rsTemp.Fields("persist_ripple_stop")
|
| - |
|
499 |
pkgInfoHash.Add "advisory_ripple", rsTemp.Fields("advisory_ripple") <> 0
|
| 526 |
|
500 |
|
| 527 |
Else
|
501 |
Else
|
| 528 |
' -- Package Version is not a member of the specified release
|
502 |
' -- Package Version is not a member of the specified release
|
| 529 |
' Get Basic Release and Project Details
|
503 |
' Get Basic Release and Project Details
|
| 530 |
Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
|
504 |
Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
|