Subversion Repositories DevTools

Rev

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

Rev 5061 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    ADMIN Page	     	        	 |
 5 
'|				    ADMIN Page	     	        	 |
6 
'|                 Package Properties              	 |
 6 
'|                 Package Properties              	 |
7 
'|                                        			 |
 7 
'|                                        			 |
8 
'=====================================================
 8 
'=====================================================
9 
%>
 9 
%>
10 
<%
 10 
<%
11 
Option explicit
 11 
Option explicit
12 
' Good idea to set when using redirect
 12 
' Good idea to set when using redirect
13 
Response.Expires = 0	' always load the page, dont store
 13 
Response.Expires = 0	' always load the page, dont store
14 
%>
 14 
%>
15 
<!--#include file="common/conf.asp"-->
 15 
<!--#include file="common/conf.asp"-->
16 
<!--#include file="common/globals.asp"-->
 16 
<!--#include file="common/globals.asp"-->
17 
<!--#include file="common/formating.asp"-->
 17 
<!--#include file="common/formating.asp"-->
18 
<!--#include file="common/qstr.asp"-->
 18 
<!--#include file="common/qstr.asp"-->
19 
<!--#include file="common/common_subs.asp"-->
 19 
<!--#include file="common/common_subs.asp"-->
20 
<!--#include file="sec/Crypt.asp"-->
 20 
<!--#include file="sec/Crypt.asp"-->
21 
<!--#include file="common/_form_window_common.asp"-->
 21 
<!--#include file="common/_form_window_common.asp"-->
22 
<!--#include file="_action_buttons.asp"-->
 22 
<!--#include file="_action_buttons.asp"-->
23 
 
 23 
 
24 
<!--#include file="class/classActionButtonControl.asp"-->
 24 
<!--#include file="class/classActionButtonControl.asp"-->
25 
 
 25 
 
26 
<%
 26 
<%
27 
'------------ ACCESS CONTROL ------------------
 27 
'------------ ACCESS CONTROL ------------------
28 
%>
 28 
%>
29 
<!--#include file="_access_control_general.asp"-->
 29 
<!--#include file="_access_control_general.asp"-->
30 
<%
 30 
<%
31 
'------------ Variable Definition -------------
 31 
'------------ Variable Definition -------------
32 
Dim objBtnControl
 32 
Dim objBtnControl
33 
Dim rsPkg
 33 
Dim rsPkg
34 
Dim SCRIPT_NAME
 34 
Dim SCRIPT_NAME
35 
Dim peg_checked
 35 
Dim peg_checked
36 
Dim adr_checked
 36 
Dim adr_checked
37 
Dim parPkgId
 37 
Dim parPkgId
38 
Dim editMode
 38 
Dim editMode
39 
Dim SqlStr
 39 
Dim SqlStr
40 
Dim canEdit
 40 
Dim canEdit
41 
Dim rowClass, rowBorder
 41 
Dim rowClass, rowBorder
42 
'------------ Constants Declaration -----------
 42 
'------------ Constants Declaration -----------
43 
Const LIMG_ROW_SUBMIT = "<input name='btn' type='image' src='icons/btn_row_submit.gif' width='53' height='16' hspace='2' border='0' title='Submit this entry'>"
 43 
Const LIMG_ROW_SUBMIT = "<input name='btn' type='image' src='icons/btn_row_submit.gif' width='53' height='16' hspace='2' border='0' title='Submit this entry'>"
44 
Const LIMG_ROW_CANCEL = "<img src='icons/bi_cancel.gif' width='16' height='16' border='0' hspace='2' title='Cancel'>"
 44 
Const LIMG_ROW_CANCEL = "<img src='icons/bi_cancel.gif' width='16' height='16' border='0' hspace='2' title='Cancel'>"
45 
Const LIMG_ROW_EDIT   = "<img src='icons/i_edit.gif' width='16' height='16' border='0' hspace='2' title='Edit'>"
 45 
Const LIMG_ROW_EDIT   = "<img src='icons/i_edit.gif' width='16' height='16' border='0' hspace='2' title='Edit'>"
46 
'------------ Variable Init -------------------
 46 
'------------ Variable Init -------------------
47 
Set objBtnControl = New ActionButtonControl
 47 
Set objBtnControl = New ActionButtonControl
48 
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
 48 
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
49 
parPkgId = Request("PkgId")
 49 
parPkgId = Request("PkgId")
50 
editMode = "none"
 50 
editMode = "none"
51 
canEdit = false
 51 
canEdit = false
52 
'----------------------------------------------
 52 
'----------------------------------------------
53 
%>
 53 
%>
54 
<%
 54 
<%
55 
'------------------------------------------------------------------------------
 55 
'------------------------------------------------------------------------------
56 
' Function:     Get_Packages
 56 
' Function:     Get_Packages
57 
' Description:  Get a list of packages to be displayed
 57 
' Description:  Get a list of packages to be displayed
58 
'               Will be either selected by name or only packages with defined defaults
 58 
'               Will be either selected by name or only packages with defined defaults
59 
Function Get_Packages
 59 
Function Get_Packages
60 
   If Request("pkgFilter") <> "" Then
 60 
   If Request("pkgFilter") <> "" Then
61 
    	Get_Packages = _
 61 
    	Get_Packages = _
62 
    	" SELECT * FROM PACKAGES " &_
 62 
    	" SELECT * FROM PACKAGES " &_
63 
        " WHERE PKG_NAME LIKE '%"&Request("pkgFilter")&"%'" &_
63 
        " WHERE PKG_NAME LIKE '%"&Request("pkgFilter")&"%'" &_
64 
        " ORDER BY pkg_name ASC"
 64 
        " ORDER BY pkg_name ASC"
65 
   Else
 65 
   Else
66 
    	Get_Packages = _
 66 
    	Get_Packages = _
67 
    	" SELECT * FROM PACKAGES " &_
 67 
    	" SELECT * FROM PACKAGES " &_
68 
        " WHERE DEFAULT_PEGGED is not NULL " &_
 68 
        " WHERE DEFAULT_PEGGED is not NULL " &_
69 
        "    OR DEFAULT_ADVISORY_RIPPLE is not NULL" &_
 69 
        "    OR DEFAULT_ADVISORY_RIPPLE is not NULL" &_
70 
        " ORDER BY pkg_name ASC"
 70 
        " ORDER BY pkg_name ASC"
71 
    End If
 71 
    End If
72 
End Function
 72 
End Function
73 
'-------------Page Access Condition--------------------------------------------
 73 
'-------------Page Access Condition--------------------------------------------
74 
If NOT objAccessControl.UserLogedIn Then
 74 
If NOT objAccessControl.UserLogedIn Then
75 
	Response.Redirect("message.asp?msg=401-9")
 75 
	Response.Redirect("message.asp?msg=401-9")
76 
End If
 76 
End If
77 
If canActionControlInProject("EditPackageProperties") Then
 77 
If canActionControlInProject("EditPackageProperties") Then
78 
    canEdit = true
 78 
    canEdit = true
79 
Else
 79 
Else
80 
    parPkgId = NULL
 80 
    parPkgId = NULL
81 
End If
 81 
End If
82 
'------------- Before Render --------------------------------------------------
 82 
'------------- Before Render --------------------------------------------------
83 
'-------------------------------------------------
 83 
'-------------------------------------------------
84 
' Function:         check2Yes
84 
' Function:         check2Yes
85 
' Description:      Convert the value of a checkbox into a 'Y" or a empty value
 85 
' Description:      Convert the value of a checkbox into a 'Y" or a empty value
86 
Function check2Yes(val)
 86 
Function check2Yes(val)
87 
    If  val = "on" Then
 87 
    If  val = "on" Then
88 
        check2Yes = "'Y'"
 88 
        check2Yes = "'Y'"
89 
    Else
 89 
    Else
90 
        check2Yes = "''"
 90 
        check2Yes = "''"
91 
    End If
 91 
    End If
92 
End Function
 92 
End Function
93 
'-------------------------------------------------
 93 
'-------------------------------------------------
94 
' Update edited values
 94 
' Update edited values
95 
If canEdit AND Request("action") = "update" AND parPkgId <> "" Then
 95 
If canEdit AND Request("action") = "update" AND parPkgId <> "" Then
96 
    sqlStr = "UPDATE PACKAGES SET" &_
 96 
    sqlStr = "UPDATE PACKAGES SET" &_
97 
             " WIN_ELECTRONIC_NAME  = '" & Request("WIN_ELECTRONIC_NAME") & "'"&_
 97 
             " WIN_ELECTRONIC_NAME  = '" & Request("WIN_ELECTRONIC_NAME") & "'"&_
98 
             ",SUNOS_ELECTRONIC_NAME  = '" & Request("SUNOS_ELECTRONIC_NAME") & "'"&_
 98 
             ",SUNOS_ELECTRONIC_NAME  = '" & Request("SUNOS_ELECTRONIC_NAME") & "'"&_
99 
             ",DEFAULT_PEGGED  = " & check2Yes(Request("DEFAULT_PEGGED")) &_
 99 
             ",DEFAULT_PEGGED  = " & check2Yes(Request("DEFAULT_PEGGED")) &_
100 
             ",DEFAULT_ADVISORY_RIPPLE  = " & check2Yes(Request("DEFAULT_ADVISORY_RIPPLE")) &_
 100 
             ",DEFAULT_ADVISORY_RIPPLE  = " & check2Yes(Request("DEFAULT_ADVISORY_RIPPLE")) &_
101 
             " WHERE PKG_ID = '" & parPkgId & "'"
 101 
             " WHERE PKG_ID = '" & parPkgId & "'"
102 
    objEH.TryORA ( OraSession )
 102 
    objEH.TryORA ( OraSession )
103 
	OraDatabase.ExecuteSQL sqlStr
 103 
	OraDatabase.ExecuteSQL sqlStr
104 
	objEH.CatchORA ( OraSession )
 104 
	objEH.CatchORA ( OraSession )
105 
 
 105 
 
106 
    If objEH.Finally Then
 106 
    If objEH.Finally Then
107 
        Call OpenInWindow ( SCRIPT_NAME + "?pkgFilter=" + Request("pkgFilter") )
 107 
        Call OpenInWindow ( SCRIPT_NAME + "?pkgFilter=" + Request("pkgFilter") )
108 
    End If
 108 
    End If
109 
End If
 109 
End If
110 
%>
 110 
%>
111 
<html>
 111 
<html>
112 
<head>
 112 
<head>
113 
<title>Package Administration</title>
 113 
<title>Package Administration</title>
114 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 114 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
115 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 115 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
116 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 116 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
117 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 117 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
118 
<script language="JavaScript" src="images/common.js"></script>
 118 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
119 
<!-- DROPDOWN MENUS -->
 119 
<script language="JavaScript" src="images/common.js"></script>
120 
<!--#include file="_menu_def.asp"-->
 120 
<!-- DROPDOWN MENUS -->
121 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 121 
<!--#include file="_menu_def.asp"-->
122 
<!-- LOCAL STYLING -->
 122 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
123 
<style>
 123 
<!-- LOCAL STYLING -->
124 
.edit {background-color:#FFFFE1}
 124 
<style>
125 
.display {background-color:white}
 125 
.edit {background-color:#FFFFE1}
126 
.border {background-color:#F2F0E4}
 126 
.display {background-color:white}
127 
.outerTable {background-color:#DAD7C8}
 127 
.border {background-color:#F2F0E4}
128 
</style>
 128 
.outerTable {background-color:#DAD7C8}
129 
</head>
 129 
</style>
130 
<body text="#000000" leftmargin="0" topmargin="0" >
 130 
</head>
131 
<!-- MENU LAYERS -------------------------------------->
 131 
<body text="#000000" leftmargin="0" topmargin="0" >
132 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
132 
<!-- MENU LAYERS -------------------------------------->
133 
</div>
 133 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
134 
<!-- TIPS LAYERS -------------------------------------->
 134 
</div>
135 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 135 
<!-- TIPS LAYERS -------------------------------------->
136 
<!-- HEADER -->
 136 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
137 
<!--#include file="_header.asp"-->
 137 
<!-- HEADER -->
138 
<div class="div_table">
 138 
<!--#include file="_header.asp"-->
139 
  <%
 139 
<div class="div_table">
140 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 140 
  <%
141 
  objFormComponent.FormName = "PackageAdmin"
 141 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
142 
  objFormComponent.Action = ScriptName
 142 
  objFormComponent.FormName = "PackageAdmin"
143 
  objFormComponent.OnSubmit = "ShowProgress();"
 143 
  objFormComponent.Action = ScriptName
144 
  Call objFormComponent.FormStart()
 144 
  objFormComponent.OnSubmit = "ShowProgress();"
145 
  %>
 145 
  Call objFormComponent.FormStart()
146 
    <span class="form_item">
 146 
  %>
147 
        Package Filter: <input type="text" name="pkgFilter" value="<%=Request("pkgFilter")%>">
 147 
    <span class="form_item">
148 
    </span>
 148 
        Package Filter: <input type="text" name="pkgFilter" value="<%=Request("pkgFilter")%>">
149 
    <table class="embedded_table">
 149 
    </span>
150 
      <tr>
 150 
    <table class="embedded_table">
151 
        <td class="outerTable">
 151 
      <tr>
152 
          <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 152 
        <td class="outerTable">
153 
            <tr>
 153 
          <table width="100%"  border="0" cellspacing="1" cellpadding="2">
154 
              <td width="1%" class="border"></td>
 154 
            <tr>
155 
              <td width="1%" class="border body_col" nowrap>Package Name </td>
 155 
              <td width="1%" class="border"></td>
156 
              <td width="1%" class="border body_col" nowrap>SunOs Name</td>
 156 
              <td width="1%" class="border body_col" nowrap>Package Name </td>
157 
              <td width="1%" class="border body_col" nowrap>Windows Name</td>
 157 
              <td width="1%" class="border body_col" nowrap>SunOs Name</td>
158 
              <td width="1%" class="border body_col" nowrap>Default Peg</td>
 158 
              <td width="1%" class="border body_col" nowrap>Windows Name</td>
159 
              <td width="1%" class="border body_col" nowrap>Default Ripple</td>
 159 
              <td width="1%" class="border body_col" nowrap>Default Peg</td>
160 
              <td width="1%" class="border">&nbsp;</td>
 160 
              <td width="1%" class="border body_col" nowrap>Default Ripple</td>
161 
            </tr>
 161 
              <td width="1%" class="border">&nbsp;</td>
162 
					  <!-- NORMAL ROW +++++++++++++++++++ -->
 162 
            </tr>
163 
				    <%Set rsPkg = OraDatabase.DbCreateDynaset( Get_Packages, cint(0))
 163 
					  <!-- NORMAL ROW +++++++++++++++++++ -->
164 
		        While ((NOT rsPkg.BOF) AND (NOT rsPkg.EOF))
 164 
				    <%Set rsPkg = OraDatabase.DbCreateDynaset( Get_Packages, cint(0))
165 
                peg_checked = ""
 165 
		        While ((NOT rsPkg.BOF) AND (NOT rsPkg.EOF))
166 
                adr_checked = ""
 166 
                peg_checked = ""
167 
                If rsPkg.Fields("DEFAULT_PEGGED") = "Y" Then peg_checked = "checked"
 167 
                adr_checked = ""
168 
                If rsPkg.Fields("DEFAULT_ADVISORY_RIPPLE") = "Y" Then adr_checked = "checked"
 168 
                If rsPkg.Fields("DEFAULT_PEGGED") = "Y" Then peg_checked = "checked"
169 
                If parPkgId = rsPkg.Fields("PKG_ID") THEN
 169 
                If rsPkg.Fields("DEFAULT_ADVISORY_RIPPLE") = "Y" Then adr_checked = "checked"
170 
                    rowClass = "class='body_row edit'"
 170 
                If parPkgId = rsPkg.Fields("PKG_ID") THEN
171 
                    rowBorder = "class='edit'"
 171 
                    rowClass = "class='body_row edit'"
172 
                    editMode = "update"
 172 
                    rowBorder = "class='edit'"
173 
                Else
 173 
                    editMode = "update"
174 
                    rowClass = "class='body_row display'"
 174 
                Else
175 
                    rowBorder = "class='border'"
 175 
                    rowClass = "class='body_row display'"
176 
                End If
 176 
                    rowBorder = "class='border'"
177 
 
 177 
                End If
178 
		        %>
 178 
 
179 
	          <tr>
 179 
		        %>
180 
	            <td <%=rowBorder%> align="center"></td>
 180 
	          <tr>
181 
	            <td <%=rowClass%> nowrap><%=rsPkg.Fields("PKG_NAME")%></td>
 181 
	            <td <%=rowBorder%> align="center"></td>
182 
                <%If parPkgId = rsPkg.Fields("PKG_ID") THEN%>
 182 
	            <td <%=rowClass%> nowrap><%=rsPkg.Fields("PKG_NAME")%></td>
183 
    	            <td <%=rowClass%> nowrap>
 183 
                <%If parPkgId = rsPkg.Fields("PKG_ID") THEN%>
184 
                      <input type="text" name="SUNOS_ELECTRONIC_NAME" class='form_iname' value="<%=rsPkg.Fields("SUNOS_ELECTRONIC_NAME")%>">
 184 
    	            <td <%=rowClass%> nowrap>
185 
                    </td>
 185 
                      <input type="text" name="SUNOS_ELECTRONIC_NAME" class='form_iname' value="<%=rsPkg.Fields("SUNOS_ELECTRONIC_NAME")%>">
186 
    	            <td <%=rowClass%> nowrap>
 186 
                    </td>
187 
                      <input type="text" name="WIN_ELECTRONIC_NAME" class='form_iname' value="<%=rsPkg.Fields("WIN_ELECTRONIC_NAME")%>">
 187 
    	            <td <%=rowClass%> nowrap>
188 
                    </td>
 188 
                      <input type="text" name="WIN_ELECTRONIC_NAME" class='form_iname' value="<%=rsPkg.Fields("WIN_ELECTRONIC_NAME")%>">
189 
    	            <td <%=rowClass%>" nowrap>
 189 
                    </td>
190 
                      <input type="checkbox" name="DEFAULT_PEGGED" class='form_iname' <%=peg_checked%>>
 190 
    	            <td <%=rowClass%>" nowrap>
191 
                    </td>
 191 
                      <input type="checkbox" name="DEFAULT_PEGGED" class='form_iname' <%=peg_checked%>>
192 
    	            <td <%=rowClass%>" nowrap>
 192 
                    </td>
193 
                      <input type="checkbox" name="DEFAULT_ADVISORY_RIPPLE" class='form_iname'<%=adr_checked%>>
 193 
    	            <td <%=rowClass%>" nowrap>
194 
                    </td>
 194 
                      <input type="checkbox" name="DEFAULT_ADVISORY_RIPPLE" class='form_iname'<%=adr_checked%>>
195 
                <%ELSE%>
 195 
                    </td>
196 
    	            <td <%=rowClass%> nowrap><%=rsPkg.Fields("SUNOS_ELECTRONIC_NAME")%></td>
 196 
                <%ELSE%>
197 
    	            <td <%=rowClass%> nowrap><%=rsPkg.Fields("WIN_ELECTRONIC_NAME")%></td>
 197 
    	            <td <%=rowClass%> nowrap><%=rsPkg.Fields("SUNOS_ELECTRONIC_NAME")%></td>
198 
    	            <td <%=rowClass%> nowrap><input type="checkbox" disabled <%=peg_checked%>></td>
 198 
    	            <td <%=rowClass%> nowrap><%=rsPkg.Fields("WIN_ELECTRONIC_NAME")%></td>
199 
    	            <td <%=rowClass%> nowrap><input type="checkbox" disabled <%=adr_checked%>></td>
 199 
    	            <td <%=rowClass%> nowrap><input type="checkbox" disabled <%=peg_checked%>></td>
200 
                <%END IF%>
 200 
    	            <td <%=rowClass%> nowrap><input type="checkbox" disabled <%=adr_checked%>></td>
201 
 
 201 
                <%END IF%>
202 
	                <td align="center" nowrap <%=rowBorder%>>
 202 
 
203 
                    <%If parPkgId = rsPkg.Fields("PKG_ID") THEN%>
 203 
	                <td align="center" nowrap <%=rowBorder%>>
204 
                        <%=LIMG_ROW_SUBMIT %>
 204 
                    <%If parPkgId = rsPkg.Fields("PKG_ID") THEN%>
205 
                        <a href="<%=SCRIPT_NAME%>?pkgFilter=<%=Request("pkgFilter")%>"><%=LIMG_ROW_CANCEL%></a>
 205 
                        <%=LIMG_ROW_SUBMIT %>
206 
                    <%ELSEIF parPkgId <> "" OR NOT canEdit THEN%>
 206 
                        <a href="<%=SCRIPT_NAME%>?pkgFilter=<%=Request("pkgFilter")%>"><%=LIMG_ROW_CANCEL%></a>
207 
                    <%ELSE%>
 207 
                    <%ELSEIF parPkgId <> "" OR NOT canEdit THEN%>
208 
                        <a href="<%=SCRIPT_NAME%>?action=edit&pkgId=<%=rsPkg.Fields("PKG_ID")%>&pkgFilter=<%=Request("pkgFilter")%>"><%=LIMG_ROW_EDIT %></a>
 208 
                    <%ELSE%>
209 
                    <%END IF%>
 209 
                        <a href="<%=SCRIPT_NAME%>?action=edit&pkgId=<%=rsPkg.Fields("PKG_ID")%>&pkgFilter=<%=Request("pkgFilter")%>"><%=LIMG_ROW_EDIT %></a>
210 
                    </td>
 210 
                    <%END IF%>
211 
	          </tr>
 211 
                    </td>
212 
	          <%
 212 
	          </tr>
213 
                rsPkg.MoveNext
 213 
	          <%
214 
	          WEnd
 214 
                rsPkg.MoveNext
215 
			<!-- ++ Error Message Display ++++++++ -->
 215 
	          WEnd
216 
		      If rsPkg.RecordCount < 1 Then
 216 
			<!-- ++ Error Message Display ++++++++ -->
217 
              %>
 217 
		      If rsPkg.RecordCount < 1 Then
218 
			      <tr>
 218 
              %>
219 
                  <td class="border"></td>
219 
			      <tr>
220 
    	            <td colspan="5" nowrap class="display err_alert" style="text-align: center">
 220 
                  <td class="border"></td>
221 
                        <b>No packages selected by filters</b>
 221 
    	            <td colspan="5" nowrap class="display err_alert" style="text-align: center">
222 
                    </td>
 222 
                        <b>No packages selected by filters</b>
223 
                  <td class="border"></td>
223 
                    </td>
224 
	            </tr>
 224 
                  <td class="border"></td>
225 
		      <%End If%>
 225 
	            </tr>
226 
			<!-- +++++++++++++++++++++++++++++++++ -->
 226 
		      <%End If%>
227 
            <tr>
 227 
			<!-- +++++++++++++++++++++++++++++++++ -->
228 
            <td class="border"</td>
 228 
            <tr>
229 
            <td class="border"</td>
 229 
            <td class="border"</td>
230 
            <td class="border"</td>
 230 
            <td class="border"</td>
231 
            <td class="border"</td>
 231 
            <td class="border"</td>
232 
            <td class="border"</td>
 232 
            <td class="border"</td>
233 
            <td class="border"</td>
 233 
            <td class="border"</td>
234 
            <td class="border"</td>
 234 
            <td class="border"</td>
235 
            </tr>
 235 
            <td class="border"</td>
236 
			</table>
 236 
            </tr>
237 
        </td>
 237 
			</table>
238 
        </tr>
 238 
        </td>
239 
		  <%=objPMod.ComposeHiddenTags()%>
 239 
        </tr>
240 
		  <input type="hidden" name="action" value=<%=editMode%>>
 240 
		  <%=objPMod.ComposeHiddenTags()%>
241 
		  <input type="hidden" name="pkgId" value="<%=parPkgId%>">
 241 
		  <input type="hidden" name="action" value=<%=editMode%>>
242 
		  </form>
 242 
		  <input type="hidden" name="pkgId" value="<%=parPkgId%>">
243 
		  <%Call objFormComponent.FormEnd()%>
 243 
		  </form>
244 
    </table>
 244 
		  <%Call objFormComponent.FormEnd()%>
245 
  </div>
 245 
    </table>
246 
</body>
 246 
  </div>
247 
</html>
 247 
</body>
248 
<!-- FOOTER -->
 248 
</html>
249 
<!--#include file="_footer.asp"-->
 249 
<!-- FOOTER -->
250 
<%
 250 
<!--#include file="_footer.asp"-->
251 
Call Destroy_All_Objects
 251 
<%
- 
 
 252 
Call Destroy_All_Objects
252 
%>
 253 
%>
253 

            254