Subversion Repositories DevTools

'-----------------------------------------------------------------------------------------------------------------------------

'	Add information to the pkgInfoHash describing the S3 Sync

'	Added only when required

'	Assumes that Get_Pkg_Info has already been called 

'	Calculate: 

'		s3Sync - This package in this release is marked for S3Sync

'   	s3SyncEnabled - This Release has s3 sync enabled

'		s3SyncContent - This version of the package appears to have S3Sync content

Sub Get_Pkg_Info_s3Sync ()

	Dim Query_String, rsTemp, pvidInRelease

	pkgInfoHash.Add "s3Sync", "N"

	pkgInfoHash.Add "s3SyncEnabled", "N"

	pkgInfoHash.Add "s3SyncContent", "N"

	If pkgInfoHash.Item ("isaRelease") Then

		'	Use the base package in a Release if this is a WIP or in Pending

		'	as the property will be inherited when the package is updated

		'

		pvidInRelease = pkgInfoHash.Item ("pv_id_InRelease")

		If pvidInRelease = "" Then

			pvidInRelease = pkgInfoHash.Item ("pv_id")

		End If

		OraDatabase.Parameters.Add "PV_ID",         pvidInRelease,    ORAPARM_INPUT, ORATYPE_NUMBER

		OraDatabase.Parameters.Add "RTAG_ID",       pkgInfoHash.Item ("rtag_id"),  ORAPARM_INPUT, ORATYPE_NUMBER

		  Query_String = _

			" SELECT NVL(rc.s3sync, 'N') as s3sync, NVL(rt.s3sync, 'N') AS s3syncenabled, nvl2(s3.file_path, 'Y', 'N') AS s3synccontent" &_

			" FROM release_content rc, release_tags rt, (" &_

			"     SELECT rcp.* FROM release_components rcp, release_content rc WHERE rc.rtag_id = :RTAG_ID" &_

			"           AND rc.pv_id = rcp.pv_id" &_

			"           AND rcp.file_name IS NULL" &_

			"           AND rcp.file_path LIKE 'pkg/S3TRANSFER'" &_

			" ) s3" &_

			" WHERE rc.rtag_id = rt.rtag_id" &_

			"       AND rc.pv_id = :PV_ID" &_

			"       AND rt.rtag_id = :RTAG_ID" &_

			"       AND s3.pv_id (+) = rc.pv_id"

		  Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

		  If rsTemp.RecordCount > 0 Then

			pkgInfoHash.Item ("s3Sync") = (rsTemp.Fields("s3Sync"))

			pkgInfoHash.Item ("s3SyncEnabled") = (rsTemp.Fields("s3SyncEnabled"))

			pkgInfoHash.Item ("s3SyncContent") = (rsTemp.Fields("s3SyncContent"))

		  End If

		OraDatabase.Parameters.Remove "PV_ID"

		OraDatabase.Parameters.Remove "RTAG_ID"

		rsTemp.Close

		Set rsTemp = nothing

	End If

End Sub

    End If

End Function

'-------------------------------------------------

' Function:         RenderS3SyncStateString   

' Description:      Return a string to show the current S3 Sync state

Function RenderS3SyncStateString(rtagid, s3Sync, official, txt)

    If s3Sync = "N" Then

        RenderS3SyncStateString = ""

    Else

        Dim image, hover, iClass

		iClass = ""

        If releaseIsClosed(official) Then s3Sync = "A"

        Select Case s3Sync

            Case "Y"

                image = "AmazonS3.png"

                hover = "S3 Sync Active"

            Case "N"

                image = "AmazonS3.png"

                hover = "S3 Sync not enabled"

            Case "A"

                image = "AmazonS3.png"

                hover = "S3 Sync not active. Release is no longer open"

                iClass = "class=lessOpacity"

            Case Else

                image = "LXRlogo64_progress.jpeg"

                hover = "S3Sync unknown State:(" & s3Sync &")"

        End Select

        RenderS3SyncStateString = "<span title='"&hover&"'><img "& iClass &" src=""images/"&image&""" height=16 border=0 vspace=0 hspace=0 style='vertical-align : bottom'>" & txt & "</span>"