Subversion Repositories DevTools

Rev

Rev 6146 | Rev 6184 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6146 Rev 6176
Line 423... Line 423...
423 
 
 423 
 
424 
   OraDatabase.Parameters.Add "PV_ID",         SSpv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
 424 
   OraDatabase.Parameters.Add "PV_ID",         SSpv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
425 
   OraDatabase.Parameters.Add "RTAG_ID",       NNrtag,    ORAPARM_INPUT, ORATYPE_NUMBER
 425 
   OraDatabase.Parameters.Add "RTAG_ID",       NNrtag,    ORAPARM_INPUT, ORATYPE_NUMBER
426 
   OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,      ORAPARM_OUTPUT, ORATYPE_NUMBER
426 
   OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,      ORAPARM_OUTPUT, ORATYPE_NUMBER
427 
 
 427 
 
- 
 
 428 
    pkgInfoHash.Add "isaRelease", isaRelease
- 
 
 429 
 
428 
   '-- can_unofficial
 430 
   '-- can_unofficial
429 
   '   Limits the ability to unrelease a package version
 431 
   '   Limits the ability to unrelease a package version
430 
   pkgInfoHash.Item ("can_unofficial") = "false"
 432 
   pkgInfoHash.Item ("can_unofficial") = "false"
431 
 
 433 
 
432 
   '--  can_edit_in_project
 434 
   '--  can_edit_in_project
Line 479... Line 481...
479 
      pkgInfoHash.Add "is_deployable", (rsTemp.Fields("is_deployable"))
 481 
      pkgInfoHash.Add "is_deployable", (rsTemp.Fields("is_deployable"))
480 
      pkgInfoHash.Add "sbom_priority", (rsTemp.Fields("sbom_priority"))
 482 
      pkgInfoHash.Add "sbom_priority", (rsTemp.Fields("sbom_priority"))
481 
      pkgInfoHash.Add "ripple_field", (rsTemp.Fields("ripple_field"))
 483 
      pkgInfoHash.Add "ripple_field", (rsTemp.Fields("ripple_field"))
482 
   End If
 484 
   End If
483 
 
 485 
 
- 
 
 486 
    If (pkgInfoHash.Item ("dlocked") = "Y") OR pkgInfoHash.Item("build_type") = "M" Then
- 
 
 487 
        pkgInfoHash.Add "isInArchive", testArchiveAccessPkg(pkgInfoHash.Item ("pkg_name"), pkgInfoHash.Item ("pkg_version"))
- 
 
 488 
    End If
- 
 
 489 
 
484 
   If isaRelease Then
 490 
   If isaRelease Then
485 
      '-- Find if package is editable in this project
 491 
      '-- Find if package is editable in this project
486 
      '   Not editable if
 492 
      '   Not editable if
487 
      '     Imported via a Reference Package
 493 
      '     Imported via a Reference Package
488 
      '     Imported via an SDK
 494 
      '     Imported via an SDK
Line 1857... Line 1863...
1857 
      rsTemp.Close()
 1863 
      rsTemp.Close()
1858 
      set rsTemp = nothing
 1864 
      set rsTemp = nothing
1859 
   End If
 1865 
   End If
1860 
End Function
 1866 
End Function
1861 
'----------------------------------------------------------------------------------------------------------------------
 1867 
'----------------------------------------------------------------------------------------------------------------------
- 
 
 1868 
' Number of active (Not paused, Not Disabled) daemon configured for a given Release
- 
 
 1869 
Function activeDaemonCount ( NNrtag_id )
- 
 
 1870 
   Dim rsTemp, Query_String
- 
 
 1871 
 
- 
 
 1872 
   activeDaemonCount = 0
- 
 
 1873 
 
- 
 
 1874 
   If NNrtag_id <> ""  Then
- 
 
 1875 
      Query_String = "SELECT count(*) as Count FROM release_config rc, run_level rl WHERE rc.rtag_id = " & NNrtag_id &  " AND rc.RCON_ID = rl.rcon_id AND NVL(rl.pause, 0 ) = 0"
- 
 
 1876 
 
- 
 
 1877 
      Set rsTemp = OraDatabase.DbCreateDynaset(Query_String, cint(0))
- 
 
 1878 
      If rsTemp.RecordCount <> 0  Then
- 
 
 1879 
         activeDaemonCount = rsTemp("Count")
- 
 
 1880 
      End If
- 
 
 1881 
      rsTemp.Close()
- 
 
 1882 
      set rsTemp = nothing
- 
 
 1883 
   End If
- 
 
 1884 
 
- 
 
 1885 
End Function
- 
 
 1886 
'----------------------------------------------------------------------------------------------------------------------
1862 
Function pv_id_exists( nPv_id )
 1887 
Function pv_id_exists( nPv_id )
1863 
   Dim rsTemp, Query_String
 1888 
   Dim rsTemp, Query_String
1864 
 
 1889 
 
1865 
   If NOT IsNull( nPv_id ) AND nPv_id <> "" Then
 1890 
   If NOT IsNull( nPv_id ) AND nPv_id <> "" Then
1866 
      Query_String = _
 1891 
      Query_String = _