Subversion Repositories DevTools

Rev

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

Rev 13 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wSortBase				 	 |
 5 
'|			          wSortBase				 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
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/_os_common.asp"-->
 16 
<!--#include file="common/_os_common.asp"-->
17 
 
 17 
 
18 
 
 18 
 
19 
 
 19 
 
20 
 
 20 
 
21 
 
 21 
 
22 
 
 22 
 
23 
<%
 23 
<%
24 
'------------ ACCESS CONTROL ------------------
 24 
'------------ ACCESS CONTROL ------------------
25 
%>
 25 
%>
26 
<!--#include file="_access_control_general.asp"-->
 26 
<!--#include file="_access_control_general.asp"-->
27 
<%
 27 
<%
28 
'------------ VARIABLE DEFINITION -------------
 28 
'------------ VARIABLE DEFINITION -------------
29 
Dim rsQry
 29 
Dim rsQry
30 
Dim objFormCollector
 30 
Dim objFormCollector
31 
Dim sMessage
 31 
Dim sMessage
32 
Dim parBase_id
32 
Dim parBase_id
33 
Dim BaseEnvId
 33 
Dim BaseEnvId
34 
'------------ CONSTANTS DECLARATION -----------
 34 
'------------ CONSTANTS DECLARATION -----------
35 
'Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 35 
'Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
36 
'Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
 36 
'Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
37 
'------------ VARIABLE INIT -------------------
 37 
'------------ VARIABLE INIT -------------------
38 
sMessage = NULL
 38 
sMessage = NULL
39 
parBom_id = Request("bom_id")
 39 
parBom_id = Request("bom_id")
40 
parOs_id = Request("os_id")
 40 
parOs_id = Request("os_id")
41 
parBase_id = Request("base_env_id")
 41 
parBase_id = Request("base_env_id")
42 
BaseEnvId = objOsCollector.Item("base_env_id")
 42 
BaseEnvId = objOsCollector.Item("base_env_id")
43 
 
 43 
 
44 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 44 
Set objFormCollector = CreateObject("Scripting.Dictionary")
45 
'------------ CONDITIONS ----------------------
 45 
'------------ CONDITIONS ----------------------
46 
'----------------------------------------------
 46 
'----------------------------------------------
47 
%>
 47 
%>
48 
<%
 48 
<%
49 
'--------------------------------------------------------------------------------------------------------------------------
 49 
'--------------------------------------------------------------------------------------------------------------------------
50 
Sub SortProd ()
 50 
Sub SortProd ()
51 
	Dim sProdOrderList
 51 
	Dim sProdOrderList
52
52
53 
	'-- Check cookie for new soring list
 53 
	'-- Check cookie for new soring list
54 
	If Request.Cookies("sort-list") = "" Then Exit Sub
 54 
	If Request.Cookies("sort-list") = "" Then Exit Sub
55
55
56 
	'-- Replace pipe separated values with comma for database use
 56 
	'-- Replace pipe separated values with comma for database use
57 
	sProdOrderList = Replace( Request.Cookies("sort-list") , "|", "," )
 57 
	sProdOrderList = Replace( Request.Cookies("sort-list") , "|", "," )
58
58
59
59
60
60
61
61
62 
	On Error Resume Next
 62 
	On Error Resume Next
63
63
64 
	OraDatabase.Parameters.Add "PROD_ORDER", 	sProdOrderList, 		ORAPARM_INPUT, ORATYPE_VARCHAR2
64 
	OraDatabase.Parameters.Add "PROD_ORDER", 	sProdOrderList, 		ORAPARM_INPUT, ORATYPE_VARCHAR2
65 
	OraDatabase.Parameters.Add "BASE_ENV", 	BaseEnvId,		ORAPARM_INPUT, ORATYPE_NUMBER
65 
	OraDatabase.Parameters.Add "BASE_ENV", 	BaseEnvId,		ORAPARM_INPUT, ORATYPE_NUMBER
66 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
66 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
67
67
68
68
69 
	objEH.TryORA ( OraSession )
 69 
	objEH.TryORA ( OraSession )
70
70
71 
	OraDatabase.ExecuteSQL _
 71 
	OraDatabase.ExecuteSQL _
72 
	"BEGIN   pk_Base_Env.Sort_Products ( :PROD_ORDER, :BASE_ENV, :USER_ID );   END;"
 72 
	"BEGIN   pk_Base_Env.Sort_Products ( :PROD_ORDER, :BASE_ENV, :USER_ID );   END;"
73
73
74 
	objEH.CatchORA ( OraSession )
 74 
	objEH.CatchORA ( OraSession )
75
75
76
76
77 
	OraDatabase.Parameters.Remove "PROD_ORDER"
 77 
	OraDatabase.Parameters.Remove "PROD_ORDER"
78 
	OraDatabase.Parameters.Remove "BASE_ENV"
 78 
	OraDatabase.Parameters.Remove "BASE_ENV"
79 
	OraDatabase.Parameters.Remove "USER_ID"
 79 
	OraDatabase.Parameters.Remove "USER_ID"
80 
End Sub
 80 
End Sub
81 
 
 81 
 
82 
'--------------------------------------------------------------------------------------------------------------------------
 82 
'--------------------------------------------------------------------------------------------------------------------------
83 
%>
 83 
%>
84 
<%
 84 
<%
85 
'------------ RUN BEFORE PAGE RENDER ----------------
 85 
'------------ RUN BEFORE PAGE RENDER ----------------
86 
'----------------------------------------------------
 86 
'----------------------------------------------------
87 
 
 87 
 
88 
If CBool(Request("action")) Then
 88 
If CBool(Request("action")) Then
89 
	'-- Sort Product
 89 
	'-- Sort Product
90
90
91 
	Call SortProd()
 91 
	Call SortProd()
92
92
93 
	If objEH.Finally Then
 93 
	If objEH.Finally Then
94 
%>
94 
%>
95 
	<script language="JavaScript" type="text/javascript">
 95 
	<script language="JavaScript" type="text/javascript">
96 
	<!--
 96 
	<!--
97 
	window.opener.document.location='<%="Os_BaseConf.asp?SORTED=OK"& objPMod.ComposeURLWithout("rfile")%>';
 97 
	window.opener.document.location='<%="Os_BaseConf.asp?SORTED=OK"& objPMod.ComposeURLWithout("rfile")%>';
98 
	//-->
98 
	//-->
99 
	</script>
 99 
	</script>
100 
 
 100 
 
101 
	<SCRIPT language="JavaScript" type="text/javascript">
 101 
	<SCRIPT language="JavaScript" type="text/javascript">
102 
	<!--
 102 
	<!--
103 
	self.close();
 103 
	self.close();
104 
	//-->
 104 
	//-->
105 
	</SCRIPT>
 105 
	</SCRIPT>
106
106
107 
<%
107 
<%
108 
		'Call OpenInParentWindow ( Request("rfile") &"?SORTED=OK"& objPMod.ComposeURLWithout("rfile") )
 108 
		'Call OpenInParentWindow ( Request("rfile") &"?SORTED=OK"& objPMod.ComposeURLWithout("rfile") )
109 
		'Call CloseWindow()
 109 
		'Call CloseWindow()
110 
	End If
 110 
	End If
111
111
112 
End If
 112 
End If
113 
 
 113 
 
114 
 
 114 
 
115 
 
 115 
 
116 
 
 116 
 
117 
'----------------------------------------------
 117 
'----------------------------------------------
118 
%>
 118 
%>
119 
<html>
 119 
<html>
120 
<head>
 120 
<head>
121 
<title>Deployment Manager</title>
 121 
<title>Deployment Manager</title>
122 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 122 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
123 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 123 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
124 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
124 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
125 
 
 125 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
126 
<script language="JavaScript" src="scripts/common.js"></script>
 126 
 
127 
 
 127 
<script language="JavaScript" src="scripts/common.js"></script>
128 
<!-- Drag and Drop modules +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 128 
 
129 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/core.js"></script>
 129 
<!-- Drag and Drop modules +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
130 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/events.js"></script>
 130 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/core.js"></script>
131 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/css.js"></script>
 131 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/events.js"></script>
132 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/coordinates.js"></script>
 132 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/css.js"></script>
133 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/drag.js"></script>
 133 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/coordinates.js"></script>
134 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/dragsort.js"></script>
 134 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/drag.js"></script>
135 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/cookies.js"></script>
 135 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/dragsort.js"></script>
136 
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 136 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/cookies.js"></script>
137 
 
 137 
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
138 
<script language="JavaScript" type="text/javascript"><!--
 138 
 
139 
	var dragsort = ToolMan.dragsort()
 139 
<script language="JavaScript" type="text/javascript"><!--
140 
	var junkdrawer = ToolMan.junkdrawer()
 140 
	var dragsort = ToolMan.dragsort()
141 
 
 141 
	var junkdrawer = ToolMan.junkdrawer()
142 
	window.onload = function() {
 142 
 
143 
		self.focus();
 143 
	window.onload = function() {
144
144 
		self.focus();
145 
		dragsort.makeListSortable(document.getElementById("list"),
 145
146 
				verticalOnly, saveOrder);
 146 
		dragsort.makeListSortable(document.getElementById("list"),
147 
	}
 147 
				verticalOnly, saveOrder);
148 
 
 148 
	}
149 
	function verticalOnly(item) {
 149 
 
150 
		item.toolManDragGroup.verticalOnly()
 150 
	function verticalOnly(item) {
151 
	}
 151 
		item.toolManDragGroup.verticalOnly()
152 
 
 152 
	}
153 
	function saveOrder(item) {
 153 
 
154 
		var group = item.toolManDragGroup
 154 
	function saveOrder(item) {
155 
		var list = group.element.parentNode
 155 
		var group = item.toolManDragGroup
156 
		var id = list.getAttribute("id")
 156 
		var list = group.element.parentNode
157 
		if (id == null) return
 157 
		var id = list.getAttribute("id")
158 
		group.register('dragend', function() {
 158 
		if (id == null) return
159 
			ToolMan.cookies().set("sort-" + id,
159 
		group.register('dragend', function() {
160 
					junkdrawer.serializeList(list), 365)
 160 
			ToolMan.cookies().set("sort-" + id,
161 
		})
 161 
					junkdrawer.serializeList(list), 365)
162 
	}
 162 
		})
163 
 
 163 
	}
164 
	//-->
 164 
 
165 
</script>
 165 
	//-->
166 
</head>
 166 
</script>
167 
 
 167 
</head>
168 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0">
 168 
 
169 
 
 169 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0">
170 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 170 
 
171 
  <tr>
 171 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
172 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Sort Products </span> <br>
 172 
  <tr>
173 
    Drag Products to Sort and then click Submit.
 173 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Sort Products </span> <br>
174 
      </td>
 174 
    Drag Products to Sort and then click Submit.
175 
  </tr>
 175 
      </td>
176 
<%
 176 
  </tr>
177 
'-- FROM START --------------------------------------------------------------------------------------------------------------
 177 
<%
178 
objFormComponent.FormName = "FormName"
 178 
'-- FROM START --------------------------------------------------------------------------------------------------------------
179 
objFormComponent.Action = SCRIPT_NAME
 179 
objFormComponent.FormName = "FormName"
180 
objFormComponent.OnSubmit = "ShowProgress();"
 180 
objFormComponent.Action = SCRIPT_NAME
181 
Call objFormComponent.FormStart()
 181 
objFormComponent.OnSubmit = "ShowProgress();"
182 
%>
182 
Call objFormComponent.FormStart()
183 
  <tr>
 183 
%>
184 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 184 
  <tr>
185 
      <tr>
 185 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
186 
        <td><%=ProgressBar()%></td>
 186 
      <tr>
187 
        <td align="right">        &nbsp;&nbsp;
 187 
        <td><%=ProgressBar()%></td>
188 
          <input name="btn" type="submit" class="form_btn" value="Submit">
 188 
        <td align="right">        &nbsp;&nbsp;
189 
            <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td></tr>
 189 
          <input name="btn" type="submit" class="form_btn" value="Submit">
190 
    </table></td>
 190 
            <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td></tr>
191 
  </tr>
 191 
    </table></td>
192 
  <tr>
 192 
  </tr>
193 
    <td>
 193 
  <tr>
194 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
194 
    <td>
195 
	<!--#include file="messages/_msg_inline.asp"-->
 195 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
196 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 196 
	<!--#include file="messages/_msg_inline.asp"-->
197 
	<!-- SORT PRODUCT +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
197 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
198 
	<ul id="list" class="boxy">
 198 
	<!-- SORT PRODUCT +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
199 
	<%
 199 
	<ul id="list" class="boxy">
200
200 
	<%
201 
	'OraDatabase.Parameters.Add "OS_ID", 	parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
201
202 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	parBase_id,		ORAPARM_INPUT, ORATYPE_NUMBER
202 
	'OraDatabase.Parameters.Add "OS_ID", 	parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
203
203 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	parBase_id,		ORAPARM_INPUT, ORATYPE_NUMBER
204 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BaseEnvContents.sql"), ORADYN_DEFAULT )
 204
205
205 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BaseEnvContents.sql"), ORADYN_DEFAULT )
206 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 206
207 
	'OraDatabase.Parameters.Remove "BOM_ID"
 207 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
208
208 
	'OraDatabase.Parameters.Remove "BOM_ID"
209 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 209
210 
	%>
 210 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
211
211 
	%>
212 
		<li id="<%=rsQry("prod_id")%>"><%=GetProductIcon(rsQry)  &  rsQry("pkg_name") &"&nbsp;"& rsQry("pkg_version") %></li>
 212
213
213 
		<li id="<%=rsQry("prod_id")%>"><%=GetProductIcon(rsQry)  &  rsQry("pkg_name") &"&nbsp;"& rsQry("pkg_version") %></li>
214 
	<%rsQry.MoveNext%>
 214
215 
	<%
 215 
	<%rsQry.MoveNext%>
216 
	WEnd
 216 
	<%
217
217 
	WEnd
218 
	rsQry.Close()
 218
219 
	Set rsQry = Nothing
 219 
	rsQry.Close()
220 
	%>
 220 
	Set rsQry = Nothing
221 
	</ul>
 221 
	%>
222 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 222 
	</ul>
223 
	</td>
 223 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
224 
  </tr>
 224 
	</td>
225 
  <%=objPMod.ComposeHiddenTags()%>
 225 
  </tr>
226 
  <input type="hidden" name="action" value="true">
 226 
  <%=objPMod.ComposeHiddenTags()%>
227 
<%
 227 
  <input type="hidden" name="action" value="true">
228 
Call objFormComponent.FormEnd()
 228 
<%
229 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 229 
Call objFormComponent.FormEnd()
230 
%>
230 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
231 
</table>
 231 
%>
232 
 
 232 
</table>
233 
</body>
 233 
 
234 
</html>
 234 
</body>
235 
<%
 235 
</html>
236 
'------------ RUN AFTER PAGE RENDER -----------
 236 
<%
237 
Set objFormCollector = Nothing
 237 
'------------ RUN AFTER PAGE RENDER -----------
238 
'----------------------------------------------
 238 
Set objFormCollector = Nothing
239 
%><!--#include file="common/globals_destructor.asp"-->
 239 
'----------------------------------------------
- 
 
 240 
%><!--#include file="common/globals_destructor.asp"-->