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