Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'|                                                   |

'|		          RequestProductLocation		 	 |

'|                                                   |

'=====================================================

%>

<%

Option explicit

Response.Expires = 0

%>

<!--#include file="common/globals.asp"-->

<!--#include file="common/config.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="common/_form_window_common.asp"-->

<%

'------------ VARIABLE DEFINITION -------------

Dim rsQry

Dim IsProductInNewBom

Dim bgColor

Dim QueryName

Dim parBomId

Dim rsPkg, pkgName, pkgVersion, pkgId

Dim rsProj, projName, branchName, projId

Dim rsOS, OSName

Dim objZIPObject

'------------ CONSTANTS DECLARATION -----------

'------------ VARIABLE INIT -------------------

parBomId = Request("bom_id")

'------------ CONDITIONS ----------------------

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

%>

<%

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

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

%>

<%

'------------ RUN BEFORE PAGE RENDER ----------

If (Request("change_type") = "R") Then

	QueryName = "BomRemovedProductLocation.sql"

	IsProductInNewBom = FALSE

ElseIf (Request("change_type") = "U") Then

	QueryName = "BomUpdatedProductLocation.sql"

	IsProductInNewBom = FALSE

Else

	QueryName = "BomAddedProductLocation.sql"

	IsProductInNewBom = TRUE

End If

Call GetProjDetails ( parBomId, objFormCollector )

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

%>

		<table width="100%"  border="0" cellspacing="3" cellpadding="0">

          <%

		  OraDatabase.Parameters.Add "BOM_ID", 			Request("bom_id"),			ORAPARM_INPUT, ORATYPE_NUMBER 

		  OraDatabase.Parameters.Add "COMPARE_BOM_ID", 	Request("compare_bom_id"),	ORAPARM_INPUT, ORATYPE_NUMBER 

		  OraDatabase.Parameters.Add "PROD_ID",  		Request("prod_id"),		ORAPARM_INPUT, ORATYPE_NUMBER 

		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ( QueryName ), ORADYN_DEFAULT )

		  bgColor = NULL

		  If rsQry.RecordCount < 1 Then

		  %>

		  <tr>

            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">Product not found.

			</td>

          </tr>

		  <%

		  End If

		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

		  	If IsNull( bgColor ) Then

				bgColor = "bgcolor='#F5F5F5'"

			Else

				bgColor = NULL

			End If

If Request("bom_id") <> "" AND Request("prod_id") <> "" Then

	Set rsPkg = OraDatabase.DbCreateDynaset( "select * from package_versions pv, packages pkg where pv.pv_id = "&Request("prod_id")&" and pkg.pkg_id = pv.pkg_id", cint(0))

	pkgName = rsPkg("pkg_name")

	pkgVersion = rsPkg("pkg_version")

	pkgId = rsPkg("pkg_id")

	rsPkg.Close()

	Set rsPkg = nothing

	Set rsProj = OraDatabase.DbCreateDynaset( "select br.branch_name, prj.proj_name, prj.proj_id from boms bm, branches br, dm_projects prj where bm.bom_id = "&Request("bom_id")&" and br.BRANCH_ID = bm.BRANCH_ID and prj.PROJ_ID = br.PROJ_ID", cint(0))

	projName = rsProj("proj_name")	

	branchName = rsProj("branch_name")

	projId = rsProj("proj_id")

	rsProj.Close()

	Set rsProj = nothing

	Set rsOS = OraDatabase.DbCreateDynaset( "select bt.bos_type from os_base_env obe, base_env be, bos_types bt where obe.OS_ID = "&rsQry("os_id")&" and be.BASE_ENV_ID = obe.BASE_ENV_ID and bt.BOS_ID = be.BOS_ID", cint(0))

	OSName = rsOS("bos_type")

	If OSName = "Windows" OR OSName = "MOS" Then

		OSName = "win32"

	Else

		OSName = "sparc"

	End If	

	rsOS.Close()

	Set rsOS = nothing	

	Dim sSourcePath, sDestPath, sSourcePathTest

	sSourcePath = "F:\"&projName&"\"&branchName&"\"&pkgName&"\"&OSName&"\"&pkgVersion&"\*.*"

	sSourcePathTest = "http://auperaunx26/releases/"&projName&"/"&branchName&"/"&pkgName&"/"&OSName&"/"&pkgVersion&"/"

	sDestPath = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\zipdownloads\"

	Dim oFileSys

	Set oFileSys = CreateObject("Scripting.FileSystemObject")

	'Response.Write(sSourcePath)

End If

		  %>			

		  <tr>

            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;

			<%If IsProductInNewBom Then%>

				<img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><a href="NodeDefault.asp?node_id=<%=rsQry("node_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("node_name")%></a>

				&nbsp;/&nbsp;<a href="OsDefault.asp?os_id=<%=rsQry("os_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %></a>

				&nbsp;/&nbsp;<a href="ProdDefault.asp?os_id=<%=rsQry("os_id")%>&prod_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></a>

				<%If NOT IsNull(objFormCollector.Item("is_download")) Then%>

				&nbsp;&nbsp;<a href="javascript:;" onClick="popup = window.open('LogDownload.asp?url=http://auperaunx26/releases/<%=projName%>/<%=branchName%>/<%=pkgName%>/<%=OSName%>/<%=pkgName%>-<%=pkgVersion%>-<%=OSName%>.zip&pkg_id=<%=pkgId%>&pkg_version=<%=pkgVersion%>', 'Download Version', 'height=440,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" class="body_link">Download Version: <%=Request("new_version") %></a>&nbsp;&nbsp;

				<%End If%>

			<%Else%>

				<img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><a href="NodeDefault.asp?node_id=<%=rsQry("node_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("node_name")%></a>

				&nbsp;/&nbsp;<a href="OsDefault.asp?os_id=<%=rsQry("os_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %></a>&nbsp;/&nbsp;

				<%If NOT IsNull(objFormCollector.Item("is_download")) Then%>

				&nbsp;&nbsp;<a href="javascript:;" onClick="popup = window.open('LogDownload.asp?url=http://auperaunx26/releases/<%=projName%>/<%=branchName%>/<%=pkgName%>/<%=OSName%>/<%=pkgVersion%>/<%=pkgName%>-<%=pkgVersion%>-<%=OSName%>.zip&pkg_id=<%=pkgId%>&pkg_version=<%=pkgVersion%>', 'Download Version', 'height=440,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" class="body_link">Download Version: <%=Request("new_version") %></a>&nbsp;&nbsp;

				<%End If%>

			<%End If%>

			</td>

          </tr>

	  	  <%

		  	rsQry.MoveNext

		  WEnd

		  OraDatabase.Parameters.Remove "BOM_ID"

		  OraDatabase.Parameters.Remove "PROD_ID"

		  rsQry.Close

		  Set rsQry = Nothing

		  %>

		</table>	

<%

'------------ RUN AFTER PAGE RENDER -----------

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

%><!--#include file="common/globals_destructor.asp"-->