Subversion Repositories DevTools

Rev

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

Rev 5513 Rev 5646
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
Line 33... Line 33...
33 
'----------------------------------------------
 33 
'----------------------------------------------
34 
%>
 34 
%>
35 
<%
 35 
<%
36 
'--------------------------------------------------------------------------------------------------------------------------
 36 
'--------------------------------------------------------------------------------------------------------------------------
37 
Sub SortProd ()
 37 
Sub SortProd ()
38 
	Dim sProdOrderList
 38 
    Dim sProdOrderList
39
39 
 
40 
	'-- Check cookie for new soring list
 - 
 
41 
	If Request.Cookies("sort-list") = "" Then Exit Sub
 40 
    If Request("newOrder") = "" Then Exit Sub
42
41 
 
43 
	'-- Replace pipe separated values with comma for database use
 42 
    '-- Replace pipe separated values with comma for database use
44 
	sProdOrderList = Replace( Request.Cookies("sort-list") , "|", "," )
 43 
    sProdOrderList = Replace( Request("newOrder") , "|", "," )
45
44 
 
46
45 
 
47 
	On Error Resume Next
 46 
    On Error Resume Next
48
47 
 
49 
	OraDatabase.Parameters.Add "PROD_ORDER", 	sProdOrderList, 		ORAPARM_INPUT, ORATYPE_VARCHAR2
48 
    OraDatabase.Parameters.Add "PROD_ORDER",    sProdOrderList,         ORAPARM_INPUT, ORATYPE_VARCHAR2
50 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
49 
    OraDatabase.Parameters.Add "OS_ID",         Request("os_id"),           ORAPARM_INPUT, ORATYPE_NUMBER
51 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
50 
    OraDatabase.Parameters.Add "USER_ID",       objAccessControl.UserId,            ORAPARM_INPUT, ORATYPE_NUMBER
52
51 
 
53
52 
 
54 
	objEH.TryORA ( OraSession )
 53 
    objEH.TryORA ( OraSession )
55
54 
 
56 
	OraDatabase.ExecuteSQL _
 55 
    OraDatabase.ExecuteSQL _
57 
	"BEGIN   pk_Product.Sort_Products ( :PROD_ORDER, :OS_ID, :USER_ID );   END;"
 56 
    "BEGIN   pk_Product.Sort_Products ( :PROD_ORDER, :OS_ID, :USER_ID );   END;"
58
57 
 
59 
	objEH.CatchORA ( OraSession )
 58 
    objEH.CatchORA ( OraSession )
60
59 
 
61
60 
 
62 
	OraDatabase.Parameters.Remove "PROD_ORDER"
 61 
    OraDatabase.Parameters.Remove "PROD_ORDER"
63 
	OraDatabase.Parameters.Remove "OS_ID"
 62 
    OraDatabase.Parameters.Remove "OS_ID"
64 
	OraDatabase.Parameters.Remove "USER_ID"
 63 
    OraDatabase.Parameters.Remove "USER_ID"
65 
End Sub
 64 
End Sub
66 
 
 65 
 
67 
'--------------------------------------------------------------------------------------------------------------------------
 66 
'--------------------------------------------------------------------------------------------------------------------------
68 
%>
 67 
%>
69 
<%
 68 
<%
70 
'------------ RUN BEFORE PAGE RENDER ----------------
 69 
'------------ RUN BEFORE PAGE RENDER ----------------
71 
'----------------------------------------------------
 70 
'----------------------------------------------------
72 
 
 71 
 
73 
If CBool(Request("action")) Then
 72 
If CBool(Request("action")) Then
74 
	'-- Sort Product
 73 
    '-- Sort Product
75 
	Call SortProd()
 74 
    Call SortProd()
76
- 
 
77 
	If objEH.Finally Then
 - 
 
78 
		Call OpenInParentWindow ( Request("rfile") &"?SORTED=OK"& objPMod.ComposeURLWithout("rfile") )
 - 
 
79 
		Call CloseWindow()
 - 
 
80 
	End If
 - 
 
81
- 
 
82 
End If
 - 
 
83 
 
 - 
 
84 
 
 75 
 
- 
 
 76 
    If objEH.Finally Then
- 
 
 77 
        Call OpenInParentWindow ( Request("rfile") &"?SORTED=OK"& objPMod.ComposeURLWithout("rfile") )
- 
 
 78 
        Call CloseWindow()
- 
 
 79 
    End If
85 
 
 80 
 
- 
 
 81 
End If
86 
 
 82 
 
87 
'----------------------------------------------
 83 
'----------------------------------------------
88 
%>
 84 
%>
89 
<html>
 85 
<html>
90 
<head>
 86 
<head>
Line 105... Line 101...
105 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/dragsort.js"></script>
 101 
<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/cookies.js"></script>
 102 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/cookies.js"></script>
107 
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 103 
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
108 
 
 104 
 
109 
<script language="JavaScript" type="text/javascript"><!--
 105 
<script language="JavaScript" type="text/javascript"><!--
110 
	var dragsort = ToolMan.dragsort()
 106 
    var dragsort = ToolMan.dragsort()
111 
	var junkdrawer = ToolMan.junkdrawer()
 107 
    var junkdrawer = ToolMan.junkdrawer()
112 
 
 108 
 
113 
	window.onload = function() {
 109 
    window.onload = function() {
114 
		self.focus();
 110 
        self.focus();
115
- 
 
116 
		dragsort.makeListSortable(document.getElementById("list"),
 - 
 
117 
				verticalOnly, saveOrder);
 - 
 
118 
	}
 - 
 
119 
 
 - 
 
120 
	function verticalOnly(item) {
 - 
 
121 
		item.toolManDragGroup.verticalOnly()
 - 
 
122 
	}
 - 
 
123 
 
 - 
 
124 
	function saveOrder(item) {
 - 
 
125 
		var group = item.toolManDragGroup
 - 
 
126 
		var list = group.element.parentNode
 - 
 
127 
		var id = list.getAttribute("id")
 - 
 
128 
		if (id == null) return
 - 
 
129 
		group.register('dragend', function() {
 - 
 
130 
			ToolMan.cookies().set("sort-" + id,
- 
 
131 
					junkdrawer.serializeList(list), 365)
 - 
 
132 
		})
 - 
 
133 
	}
 - 
 
134 
 
 111 
 
- 
 
 112 
        dragsort.makeListSortable(document.getElementById("list"),
- 
 
 113 
                verticalOnly, saveOrder);
- 
 
 114 
    }
- 
 
 115 
 
- 
 
 116 
    function verticalOnly(item) {
- 
 
 117 
        item.toolManDragGroup.verticalOnly()
- 
 
 118 
    }
- 
 
 119 
 
- 
 
 120 
    function saveOrder(item) {
- 
 
 121 
        var group = item.toolManDragGroup
- 
 
 122 
        var list = group.element.parentNode
- 
 
 123 
        var id = list.getAttribute("id")
- 
 
 124 
        if (id == null) return
- 
 
 125 
        group.register('dragend', function() {
- 
 
 126 
            var el = MM_findObj('newOrder');
- 
 
 127 
            el.value = junkdrawer.serializeList(list);
- 
 
 128 
        })
- 
 
 129 
    }
- 
 
 130 
 
135 
	//-->
 131 
    //-->
136 
</script>
 132 
</script>
137 
</head>
 133 
</head>
138 
 
 134 
 
139 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0">
 135 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0">
140 
 
 136 
 
Line 160... Line 156...
160 
            <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td></tr>
 156 
            <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td></tr>
161 
    </table></td>
 157 
    </table></td>
162 
  </tr>
 158 
  </tr>
163 
  <tr>
 159 
  <tr>
164 
    <td>
 160 
    <td>
165 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
161 
    <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
166 
	<!--#include file="messages/_msg_inline.asp"-->
 162 
    <!--#include file="messages/_msg_inline.asp"-->
167 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 163 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
168 
	<!-- SORT PRODUCT +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
164 
    <!-- SORT PRODUCT +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
169 
	<ul id="list" class="boxy">
 165 
    <ul id="list" class="boxy">
170 
	<%
 166 
    <%
171 
	OraDatabase.Parameters.Add "OS_ID", 	parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
167 
    OraDatabase.Parameters.Add "OS_ID",     parOs_id,       ORAPARM_INPUT, ORATYPE_NUMBER
172
168 
 
173 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsList.sql"), ORADYN_DEFAULT )
 169 
    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsList.sql"), ORADYN_DEFAULT )
174
170 
 
175 
	OraDatabase.Parameters.Remove "OS_ID"
 171 
    OraDatabase.Parameters.Remove "OS_ID"
176
172 
 
177
173 
 
178 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 174 
    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
179 
	%>
 175 
    %>
180
176 
 
181 
		<li id="<%=rsQry("prod_id")%>"><%=GetProductIcon(rsQry)  &  rsQry("pkg_name") &"&nbsp;"& rsQry("pkg_version") %></li>
 177 
        <li id="<%=rsQry("prod_id")%>"><%=GetProductIcon(rsQry)  &  rsQry("pkg_name") &"&nbsp;"& rsQry("pkg_version") %></li>
182
178 
 
183 
	<%rsQry.MoveNext%>
 179 
    <%rsQry.MoveNext%>
184 
	<%
 180 
    <%
185 
	WEnd
 181 
    WEnd
186
182 
 
187 
	rsQry.Close()
 183 
    rsQry.Close()
188 
	Set rsQry = Nothing
 184 
    Set rsQry = Nothing
189 
	%>
 185 
    %>
190 
	</ul>
 186 
    </ul>
191 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 187 
    <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
192 
	</td>
 188 
    </td>
193 
  </tr>
 189 
  </tr>
194 
  <%=objPMod.ComposeHiddenTags()%>
 190 
  <%=objPMod.ComposeHiddenTags()%>
195 
  <input type="hidden" name="action" value="true">
 191 
  <input type="hidden" name="action" value="true">
- 
 
 192 
  <input type="hidden" name="newOrder" value="">
196 
<%
 193 
<%
197 
Call objFormComponent.FormEnd()
 194 
Call objFormComponent.FormEnd()
198 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 195 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
199 
%>
196 
%>
200 
</table>
 197 
</table>