<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' wAddReleaseReplica.asp ' IFrame Dialog to add package replicas to the current Release '===================================================== %> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsQry '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% Function Get_All_Server_Names Get_All_Server_Names = _ "WITH aa as (" &_ " SELECT * from blat_projects where proj_id = (select PROJ_ID from RELEASE_TAGS where rtag_id = :RTAG_ID)" &_ " )" &_ " SELECT" &_ " bs.*," &_ " nvl2(br.BLAT_ID, 1, 0) AS inRelease," &_ " nvl2(aa.BLAT_ID, 1, 0) AS inProject" &_ " FROM" &_ " blat_servers bs," &_ " blat_releases br," &_ " aa" &_ " WHERE" &_ " bs.BLAT_ID = br.BLAT_ID (+)" &_ " AND br.rtag_id(+) = :RTAG_ID" &_ " AND bs.BLAT_ID = aa.BLAT_ID (+)" &_ " ORDER BY" &_ " upper(blat_display_name) ASC" End Function %> Release Manager
<% OraDatabase.Parameters.Add "RTAG_ID", DB_RTAG_ID, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( Get_All_Server_Names, cint(0)) OraDatabase.Parameters.Remove "RTAG_ID" While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Dim canAdd canAdd = rsQry("InRelease") = 0 Dim replicationMode replicationMode = "" If rsQry("blat_mode") = "E" Then replicationMode = "Entire Repository" ElseIf rsQry("blat_mode") = "P" Then replicationMode = "All Projects" ElseIf rsQry("inProject") > 0 Then replicationMode = "Project" ElseIf rsQry("inRelease") > 0 Then replicationMode = "Release" End If %> "> <%rsQry.MoveNext WEnd%> <%If rsQry.RecordCount < 1 Then%> <%End If%>
Opr Target Server Active<%=Quick_Help("activeReplica")%> Replicate Mode<%=Quick_Help("replicaMode")%>
<%If canAdd Then%> <%Else%> <%End If%> <%=rsQry.Fields("blat_display_name")%> > <%=replicationMode%>
No Replica servers found!
<% Call Destroy_All_Objects %>