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 = _