Subversion Repositories DevTools

Rev

Rev 15 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15 Rev 25
Line 11... Line 11...
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
- 
 
 16 
<!--#include file="common/_form_window_common.asp"-->
16 
<%
 17 
<%
17 
'------------ VARIABLE DEFINITION -------------
 18 
'------------ VARIABLE DEFINITION -------------
18 
Dim rsQry
 19 
Dim rsQry
19 
Dim IsProductInNewBom
 20 
Dim IsProductInNewBom
20 
Dim bgColor
 21 
Dim bgColor
21 
Dim QueryName
 22 
Dim QueryName
22 
Dim parBomId
 23 
Dim parBomId
- 
 
 24 
Dim rsPkg, pkgName, pkgVersion, pkgId
- 
 
 25 
Dim rsProj, projName, branchName, projId
- 
 
 26 
Dim rsOS, OSName
- 
 
 27 
Dim objZIPObject
23 
'------------ CONSTANTS DECLARATION -----------
 28 
'------------ CONSTANTS DECLARATION -----------
24 
'------------ VARIABLE INIT -------------------
 29 
'------------ VARIABLE INIT -------------------
25 
parBomId = Request("bom_id")
 30 
parBomId = Request("bom_id")
26 
'------------ CONDITIONS ----------------------
 31 
'------------ CONDITIONS ----------------------
27 
'----------------------------------------------
 32 
'----------------------------------------------
Line 43... Line 48...
43
48
44 
	QueryName = "BomAddedProductLocation.sql"
 49 
	QueryName = "BomAddedProductLocation.sql"
45 
	IsProductInNewBom = TRUE
 50 
	IsProductInNewBom = TRUE
46
51
47 
End If
 52 
End If
- 
 
 53 
 
- 
 
 54 
Call GetProjDetails ( parBomId, objFormCollector )
48 
'----------------------------------------------
 55 
'----------------------------------------------
49 
%>
 56 
%>
50 
 
 57 
 
51
58
52 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 59 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
Line 74... Line 81...
74 
		  	If IsNull( bgColor ) Then
 81 
		  	If IsNull( bgColor ) Then
75 
				bgColor = "bgcolor='#F5F5F5'"
 82 
				bgColor = "bgcolor='#F5F5F5'"
76 
			Else
 83 
			Else
77 
				bgColor = NULL
 84 
				bgColor = NULL
78 
			End If
 85 
			End If
- 
 
 86 
 
- 
 
 87 
If Request("bom_id") <> "" AND Request("prod_id") <> "" Then
- 
 
 88 
 
- 
 
 89 
	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))
- 
 
 90
- 
 
 91 
	pkgName = rsPkg("pkg_name")
- 
 
 92 
	pkgVersion = rsPkg("pkg_version")
- 
 
 93 
	pkgId = rsPkg("pkg_id")
- 
 
 94
- 
 
 95 
	rsPkg.Close()
- 
 
 96 
	Set rsPkg = nothing
- 
 
 97
- 
 
 98 
	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))
- 
 
 99
- 
 
 100 
	projName = rsProj("proj_name")
- 
 
 101 
	branchName = rsProj("branch_name")
- 
 
 102 
	projId = rsProj("proj_id")
- 
 
 103
- 
 
 104 
	rsProj.Close()
- 
 
 105 
	Set rsProj = nothing
- 
 
 106
- 
 
 107
- 
 
 108 
	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))
- 
 
 109
- 
 
 110 
	OSName = rsOS("bos_type")
- 
 
 111
- 
 
 112 
	If OSName = "Windows" OR OSName = "MOS" Then
- 
 
 113 
		OSName = "win32"
- 
 
 114 
	Else
- 
 
 115 
		OSName = "sparc"
- 
 
 116 
	End If
- 
 
 117
- 
 
 118 
	rsOS.Close()
- 
 
 119 
	Set rsOS = nothing
- 
 
 120
- 
 
 121 
	Dim sSourcePath, sDestPath, sSourcePathTest
- 
 
 122 
	sSourcePath = "F:\"&projName&"\"&branchName&"\"&pkgName&"\"&OSName&"\"&pkgVersion&"\*.*"
- 
 
 123 
	sSourcePathTest = "http://auperaunx26/releases/"&projName&"/"&branchName&"/"&pkgName&"/"&OSName&"/"&pkgVersion&"/"
- 
 
 124 
	sDestPath = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\zipdownloads\"
- 
 
 125
- 
 
 126 
	Dim oFileSys
- 
 
 127 
	Set oFileSys = CreateObject("Scripting.FileSystemObject")
- 
 
 128
- 
 
 129
- 
 
 130 
	'Response.Write(sSourcePath)
- 
 
 131
- 
 
 132
- 
 
 133
- 
 
 134
- 
 
 135 
End If
- 
 
 136 
 
- 
 
 137 
 
- 
 
 138
- 
 
 139 
		  %>
- 
 
 140
- 
 
 141
79 
		  %>
 142
80 
		  <tr>
 143 
		  <tr>
81 
            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;
 144 
            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;
82 
			<%If IsProductInNewBom Then%>
 145 
			<%If IsProductInNewBom Then%>
83 
				<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>
 146 
				<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>
84 
				&nbsp;/&nbsp;<a href="OsDefault.asp?os_id=<%=rsQry("os_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %></a>
 147 
				&nbsp;/&nbsp;<a href="OsDefault.asp?os_id=<%=rsQry("os_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %></a>
85 
				&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>
 148 
				&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>
- 
 
 149 
				<%If NOT IsNull(objFormCollector.Item("is_download")) Then%>
- 
 
 150 
				&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;
- 
 
 151 
				<%End If%>
86 
			<%Else%>
 152 
			<%Else%>
87 
				<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>
 153 
				<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>
88 
				&nbsp;/&nbsp;<a href="OsDefault.asp?os_id=<%=rsQry("os_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %></a>&nbsp;/&nbsp;
 154 
				&nbsp;/&nbsp;<a href="OsDefault.asp?os_id=<%=rsQry("os_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %></a>&nbsp;/&nbsp;
- 
 
 155 
				<%If NOT IsNull(objFormCollector.Item("is_download")) Then%>
- 
 
 156 
				&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;
- 
 
 157 
				<%End If%>
89 
			<%End If%>
 158 
			<%End If%>
90 
			</td>
 159 
			</td>
91 
          </tr>
 160 
          </tr>
92 
	  	  <%
 161 
	  	  <%
93 
		  	rsQry.MoveNext
 162 
		  	rsQry.MoveNext