Subversion Repositories DevTools

Rev

Rev 5513 | Rev 5640 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5513 Rev 5634
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
- 
 
 4 
'
4 
'|                                                   |
 5 
'   RequestBomDiffProductLocation.asp
5 
'|		          RequestProductLocation		 	 |
 6 
'       This page is used by an AJAX call
6 
'|                                                   |
 7 
'       It will return an html fragment
7 
'=====================================================
 8 
'=====================================================
8 
%>
 9 
%>
9 
<%
 10 
<%
10 
Option explicit
 11 
Option explicit
11 
Response.Expires = 0
 12 
Response.Expires = 0
Line 23... Line 24...
23 
Dim parBomId
 24 
Dim parBomId
24 
Dim rsPkg, pkgName, pkgVersion, pkgId
 25 
Dim rsPkg, pkgName, pkgVersion, pkgId
25 
Dim rsProj, projName, branchName, projId
 26 
Dim rsProj, projName, branchName, projId
26 
Dim rsOS, OSName
 27 
Dim rsOS, OSName
27 
Dim objZIPObject
 28 
Dim objZIPObject
- 
 
 29 
Dim mode
- 
 
 30 
Dim pageOs
28 
'------------ CONSTANTS DECLARATION -----------
 31 
'------------ CONSTANTS DECLARATION -----------
29 
'------------ VARIABLE INIT -------------------
 32 
'------------ VARIABLE INIT -------------------
30 
parBomId = Request("bom_id")
 33 
parBomId = Request("bom_id")
31 
'------------ CONDITIONS ----------------------
 34 
pageOs = "OsDefault.asp"
- 
 
 35 
mode = ""
32 
'----------------------------------------------
 36 
If Request("Mode") <> "" Then
33 
%>
 - 
 
- 
 
 37 
    mode = Request("Mode")
34 
<%
 38 
    mode="Base"
35 
'--------------------------------------------------------------------------------------------------------------
 - 
 
36 
'--------------------------------------------------------------------------------------------------------------
 39 
    pageOs = "Os_BaseConf.asp"
37 
%>
 40 
End If
38 
<%
 41 
 
39 
'------------ RUN BEFORE PAGE RENDER ----------
 42 
'------------ RUN BEFORE PAGE RENDER ----------
40 
If (Request("change_type") = "R") Then
 43 
If (Request("change_type") = "R") Then
41 
	QueryName = "BomRemovedProductLocation.sql"
 44 
    QueryName = "BomRemoved"+mode+"ProductLocation.sql"
42 
	IsProductInNewBom = FALSE
 45 
    IsProductInNewBom = FALSE
43
46
44 
ElseIf (Request("change_type") = "U") Then
 47 
ElseIf (Request("change_type") = "U") Then
45 
	QueryName = "BomUpdatedProductLocation.sql"
 48 
    QueryName = "BomUpdated"+mode+"ProductLocation.sql"
46 
	IsProductInNewBom = FALSE
 49 
    IsProductInNewBom = TRUE
- 
 
 50 
 
47 
Else
 51 
Else
48
- 
 
49 
	QueryName = "BomAddedProductLocation.sql"
 52 
    QueryName = "BomAdded"+mode+"ProductLocation.sql"
50 
	IsProductInNewBom = TRUE
 53 
    IsProductInNewBom = TRUE
51
54
52 
End If
 55 
End If
53 
 
 56 
 
54 
Call GetProjDetails ( parBomId, objFormCollector )
 57 
Call GetProjDetails ( parBomId, objFormCollector )
55 
'----------------------------------------------
 58 
'----------------------------------------------
56 
%>
 59 
%>
57 
 
 - 
 
58
- 
 
59 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 60 
        <table width="100%"  border="0" cellspacing="3" cellpadding="0">
60 
          <%
 61 
          <%
61 
		  OraDatabase.Parameters.Add "BOM_ID", 			Request("bom_id"),			ORAPARM_INPUT, ORATYPE_NUMBER
62 
          OraDatabase.Parameters.Add "BOM_ID",          Request("bom_id"),          ORAPARM_INPUT, ORATYPE_NUMBER
62 
		  OraDatabase.Parameters.Add "COMPARE_BOM_ID", 	Request("compare_bom_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
63 
          OraDatabase.Parameters.Add "COMPARE_BOM_ID",  Request("compare_bom_id"),  ORAPARM_INPUT, ORATYPE_NUMBER
63 
		  OraDatabase.Parameters.Add "PROD_ID",  		Request("prod_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
64 
          OraDatabase.Parameters.Add "PROD_ID",         Request("prod_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
64 
		  OraDatabase.Parameters.Add "PKG_NAME",  		Request("pkg_name"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
 65 
          OraDatabase.Parameters.Add "PKG_NAME",        Request("pkg_name"),        ORAPARM_INPUT, ORATYPE_VARCHAR2
65
66
66 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ( QueryName ), ORADYN_DEFAULT )
 67 
          Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ( QueryName ), ORADYN_DEFAULT )
67
68
68 
		  bgColor = NULL
 69 
          bgColor = NULL
69
70
70 
		  If rsQry.RecordCount < 1 Then
 71 
          If rsQry.RecordCount < 1 Then
71 
		  %>
 72 
          %>
72 
		  <tr>
 73 
          <tr>
73 
            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">Product not found.
 74 
            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">Product not found.
74 
			</td>
 75 
            </td>
75 
          </tr>
 76 
          </tr>
76 
		  <%
 77 
          <%
77 
		  End If
 78 
          End If
78
- 
 
79
79
80 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 80 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
81
81
82 
		  	If IsNull( bgColor ) Then
 82 
            If IsNull( bgColor ) Then
83 
				bgColor = "bgcolor='#F5F5F5'"
 83 
                bgColor = "bgcolor='#F5F5F5'"
84 
			Else
 84 
            Else
85 
				bgColor = NULL
 85 
                bgColor = NULL
86 
			End If
 86 
            End If
87 
 
 87 
 
88 
If Request("bom_id") <> "" AND Request("prod_id") <> "" Then
 88 
            If Request("bom_id") <> "" AND Request("prod_id") <> "" Then
89 
 
 89 
 
90 
	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 
                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))
91
91
92 
	pkgName = rsPkg("pkg_name")
 92 
                pkgName = rsPkg("pkg_name")
93 
	pkgVersion = rsPkg("pkg_version")
 93 
                pkgVersion = rsPkg("pkg_version")
94 
	pkgId = rsPkg("pkg_id")
 94 
                pkgId = rsPkg("pkg_id")
95
95
96 
	rsPkg.Close()
 96 
                rsPkg.Close()
97 
	Set rsPkg = nothing
 97 
                Set rsPkg = nothing
98
98
99 
	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 
                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))
100
100
101 
	projName = rsProj("proj_name")
101 
                projName = rsProj("proj_name")
102 
	branchName = rsProj("branch_name")
 102 
                branchName = rsProj("branch_name")
103 
	projId = rsProj("proj_id")
 103 
                projId = rsProj("proj_id")
104
104
105 
	rsProj.Close()
 105 
                rsProj.Close()
106 
	Set rsProj = nothing
 106 
                Set rsProj = nothing
107
- 
 
108
107
109 
	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))
 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))
110
109
111 
	OSName = rsOS("bos_type")
 110 
                OSName = rsOS("bos_type")
112
111
113 
	If OSName = "Windows" OR OSName = "MOS" Then
 112 
                If OSName = "Windows" OR OSName = "MOS" Then
114 
		OSName = "win32"
 113 
                    OSName = "win32"
115 
	Else
 114 
                Else
116 
		OSName = "sparc"
 115 
                    OSName = "sparc"
117 
	End If
116 
                End If
118
117
119 
	rsOS.Close()
 118 
                rsOS.Close()
120 
	Set rsOS = nothing
119 
                Set rsOS = nothing
121
- 
 
122 
	Dim sSourcePath, sDestPath, sSourcePathTest
 - 
 
123 
	sSourcePath = "F:\"&projName&"\"&branchName&"\"&pkgName&"\"&OSName&"\"&pkgVersion&"\*.*"
 - 
 
124 
	sSourcePathTest = "http://auperaunx26/releases/"&projName&"/"&branchName&"/"&pkgName&"/"&OSName&"/"&pkgVersion&"/"
 - 
 
125 
	sDestPath = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\zipdownloads\"
 - 
 
126
- 
 
127 
	Dim oFileSys
 120
128 
	Set oFileSys = CreateObject("Scripting.FileSystemObject")
 - 
 
129
- 
 
130
- 
 
131 
	'Response.Write(sSourcePath)
 - 
 
132
- 
 
133
- 
 
134
- 
 
135
- 
 
136 
End If
 121 
            End If
137 
 
 - 
 
138 
 
 - 
 
139
- 
 
140 
		  %>
122 
          %>
141
- 
 
142
- 
 
143
123
144 
		  <tr>
 124 
          <tr>
145 
            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;
 125 
            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;
- 
 
 126 
                <img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0">
146 
			<%If IsProductInNewBom Then%>
 127 
                <%If rsQry("nodeExists") <> "" Then%>
147 
				<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>
 128 
                    <a href="NodeDefault.asp?node_id=<%=rsQry("node_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("node_name")%></a>
- 
 
 129 
                <%Else%>
148 
				&nbsp;/&nbsp;<a href="OsDefault.asp?os_id=<%=rsQry("os_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %></a>
 130 
                    <span class="body_strike"><%=rsQry("node_name")%></span>
- 
 
 131 
                <%End If%>
- 
 
 132 
                &nbsp;/&nbsp;
- 
 
 133 
                <%If rsQry("osExists") <> "" Then%>
149 
				&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>
 134 
                    <a href="<%=pageOs%>?os_id=<%=rsQry("os_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %></a>
150 
				<%If NOT IsNull(objFormCollector.Item("is_download")) Then%>
 135 
                <%Else%>
151 
				&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;
 136 
                    <span class="body_strike"><%=rsQry("os_name")%></span>
152 
				<%End If%>
 137 
                <%End If%>
153 
			<%Else%>
 138 
                &nbsp;/&nbsp;
154 
				<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>
 139 
            <%If IsProductInNewBom Then%>
155 
				&nbsp;/&nbsp;<a href="OsDefault.asp?os_id=<%=rsQry("os_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %></a>&nbsp;/&nbsp;
 140 
                <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>
156 
				<%If NOT IsNull(objFormCollector.Item("is_download")) Then%>
 141 
            <%End If%>
157 
				&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;
 142 
            <%If NOT IsNull(objFormCollector.Item("is_download")) Then%>
158 
				<%End If%>
 143 
                &nbsp;&nbsp;<a href="javascript:;" onClick="popup = window.open('LogDownload.asp?url=<%=release_archiveURL%><%=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;
159 
			<%End If%>
 144 
            <%End If%>
160 
			</td>
 145 
            </td>
161 
          </tr>
 146 
          </tr>
162 
	  	  <%
 147 
          <%
163 
		  	rsQry.MoveNext
 148 
            rsQry.MoveNext
164 
		  WEnd
 149 
          WEnd
165
150
166 
		  OraDatabase.Parameters.Remove "BOM_ID"
 151 
          OraDatabase.Parameters.Remove "BOM_ID"
167 
		  OraDatabase.Parameters.Remove "PROD_ID"
 152 
          OraDatabase.Parameters.Remove "PROD_ID"
168 
		  OraDatabase.Parameters.Remove "COMPARE_BOM_ID"
 153 
          OraDatabase.Parameters.Remove "COMPARE_BOM_ID"
169 
		  OraDatabase.Parameters.Remove "PKG_NAME"
 154 
          OraDatabase.Parameters.Remove "PKG_NAME"
170
155
171 
		  rsQry.Close
 156 
          rsQry.Close
172 
		  Set rsQry = Nothing
 157 
          Set rsQry = Nothing
173 
		  %>
 158 
          %>
174
- 
 
175
- 
 
176 
		</table>
159 
        </table>
177
- 
 
178
- 
 
179
- 
 
180 
<%
 160 
<%
181 
'------------ RUN AFTER PAGE RENDER -----------
 161 
'------------ RUN AFTER PAGE RENDER -----------
182 
'----------------------------------------------
 162 
'----------------------------------------------
183 
%><!--#include file="common/globals_destructor.asp"-->
 - 
 
184 

            163
            
%>

          

          

            -
            
 

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

          

          

            -
            
 

            165