Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
Option explicit
 3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
 4 
Response.Expires = 0   ' always load the page, dont store
5 
 
 5 
 
6 
'To enable the script timeout to 10 mins
 6 
'To enable the script timeout to 10 mins
7 
Server.ScriptTimeout=600
 7 
Server.ScriptTimeout=600
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
'=====================================================
 10 
'=====================================================
11 
'					New Patch
 11 
'               New Patch
12 
'=====================================================
 12 
'=====================================================
13 
%>
 13 
%>
14 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
Line 39... Line 39...
39 
Dim skip, AlreadyConnected
 39 
Dim skip, AlreadyConnected
40 
Dim newPatchId
 40 
Dim newPatchId
41 
'------------ Constants Declaration -----------
 41 
'------------ Constants Declaration -----------
42 
'------------ Variable Init -------------------
 42 
'------------ Variable Init -------------------
43 
parPv_id = QStrPar("pv_id")
 43 
parPv_id = QStrPar("pv_id")
44 
strDriveLetter = "R:"
44 
strDriveLetter = "R:"
45 
strRemotePath = "\\auperaunx26\dpkg_archive"
45 
strRemotePath = "\\auperaunx26\dpkg_archive"
46 
strUser = "releasem"
 46 
strUser = "releasem"
47 
strPassword = "releasem"
 47 
strPassword = "releasem"
48 
strProfile = "False" ' means do not store in profile leave as false.
 48 
strProfile = "False" ' means do not store in profile leave as false.
49 
AlreadyConnected = False
49 
AlreadyConnected = False
50 
'----------------------------------------------
 50 
'----------------------------------------------
51 
%>
 51 
%>
52 
<%
 52 
<%
53 
'--------------------------------------------------------------------------------------------------
 53 
'--------------------------------------------------------------------------------------------------
54 
Function SearchAndReplace(s, Str1, Str2)
 54 
Function SearchAndReplace(s, Str1, Str2)
55 
	Dim pos
 55 
   Dim pos
56 
	s = s & "" 'Fix Null
 56 
   s = s & "" 'Fix Null
57 
	pos = InStr(s, Str1)
 57 
   pos = InStr(s, Str1)
58 
	While pos > 0
 58 
   While pos > 0
59 
		s = Mid(s, 1, pos - 1) & Str2 & Mid(s, pos + Len(Str1))
 59 
      s = Mid(s, 1, pos - 1) & Str2 & Mid(s, pos + Len(Str1))
60 
	    pos = InStr(pos, s, Str1)
 60 
       pos = InStr(pos, s, Str1)
61 
	Wend
 61 
   Wend
62 
	SearchAndReplace = s
 62 
   SearchAndReplace = s
63 
End Function
 63 
End Function
64 
'--------------------------------------------------------------------------------------------------
 64 
'--------------------------------------------------------------------------------------------------
65 
Sub Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
 65 
Sub Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
66 
	On Error Resume Next
 66 
   On Error Resume Next
67 
	OraDatabase.Parameters.Add "PATCH_VERSION", 	SSpatchversion, ORAPARM_INPUT, ORATYPE_VARCHAR2
 67 
   OraDatabase.Parameters.Add "PATCH_VERSION",  SSpatchversion,          ORAPARM_INPUT,  ORATYPE_VARCHAR2
68 
	OraDatabase.Parameters.Add "PV_ID", 			NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
 68 
   OraDatabase.Parameters.Add "PV_ID",          NNpv_id,                 ORAPARM_INPUT,  ORATYPE_NUMBER
69 
	OraDatabase.Parameters.Add "PATCH_ID_LIST", 	patchId, ORAPARM_INPUT, ORATYPE_VARCHAR2
 69 
   OraDatabase.Parameters.Add "PATCH_ID_LIST",  patchId,                 ORAPARM_INPUT,  ORATYPE_VARCHAR2
70 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 70 
   OraDatabase.Parameters.Add "USER_ID",        objAccessControl.UserId, ORAPARM_INPUT,  ORATYPE_NUMBER
71 
	OraDatabase.Parameters.Add "RTAG_ID", 			Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 71 
   OraDatabase.Parameters.Add "RTAG_ID",        Request("rtag_id"),      ORAPARM_INPUT,  ORATYPE_NUMBER
72 
	OraDatabase.Parameters.Add "VIEW_ID", 			view_id, ORAPARM_INPUT, ORATYPE_NUMBER
 72 
   OraDatabase.Parameters.Add "VIEW_ID",        view_id,                 ORAPARM_INPUT,  ORATYPE_NUMBER
73 
	OraDatabase.Parameters.Add "RET_PATCH_ID", 		0, ORAPARM_OUTPUT, ORATYPE_NUMBER
 73 
   OraDatabase.Parameters.Add "RET_PATCH_ID",   0,                       ORAPARM_OUTPUT, ORATYPE_NUMBER
74
74 
 
75 
	objEH.TryORA ( OraSession )
 75 
   objEH.TryORA ( OraSession )
76
76 
 
77 
	OraDatabase.ExecuteSQL _
 77 
   OraDatabase.ExecuteSQL _
78 
	"BEGIN "&_
 78 
   "BEGIN "&_
79 
	" PK_PACKAGE.NEW_PATCH( :PATCH_VERSION, :PV_ID, :PATCH_ID_LIST, :USER_ID, :RET_PATCH_ID ); "&_
 79 
   " PK_PACKAGE.NEW_PATCH( :PATCH_VERSION, :PV_ID, :PATCH_ID_LIST, :USER_ID, :RET_PATCH_ID ); "&_
80 
	"END; "
 80 
   "END; "
81
81 
 
82 
	'" PK_ENVIRONMENT.ADD_PACKAGE ( :RET_PATCH_ID, :VIEW_ID, :RTAG_ID, :USER_ID ); "&_
 82 
   '" PK_ENVIRONMENT.ADD_PACKAGE ( :RET_PATCH_ID, :VIEW_ID, :RTAG_ID, :USER_ID ); "&_
83
83 
 
84
- 
 
85
- 
 
86 
	objEH.CatchORA ( OraSession )
 84 
   objEH.CatchORA ( OraSession )
87
85 
 
88 
	newPatchId = OraDatabase.Parameters("RET_PATCH_ID").Value
86 
   newPatchId = OraDatabase.Parameters("RET_PATCH_ID").Value
89
87 
 
90 
	OraDatabase.Parameters.Remove "PATCH_VERSION"
 88 
   OraDatabase.Parameters.Remove "PATCH_VERSION"
91 
	OraDatabase.Parameters.Remove "PV_ID"
 89 
   OraDatabase.Parameters.Remove "PV_ID"
92 
	OraDatabase.Parameters.Remove "PATCH_ID_LIST"
 90 
   OraDatabase.Parameters.Remove "PATCH_ID_LIST"
93 
	OraDatabase.Parameters.Remove "USER_ID"
 91 
   OraDatabase.Parameters.Remove "USER_ID"
94 
	OraDatabase.Parameters.Remove "RTAG_ID"
 92 
   OraDatabase.Parameters.Remove "RTAG_ID"
95 
	OraDatabase.Parameters.Remove "VIEW_ID"
 93 
   OraDatabase.Parameters.Remove "VIEW_ID"
96 
	OraDatabase.Parameters.Remove "RET_PATCH_ID"
 94 
   OraDatabase.Parameters.Remove "RET_PATCH_ID"
97 
End Sub
 95 
End Sub
98 
'--------------------------------------------------------------------------------------------------
 96 
'--------------------------------------------------------------------------------------------------
99 
Sub AutoWrite_Reason (patchId, newPatchId)
 97 
Sub AutoWrite_Reason (patchId, newPatchId)
100
98 
 
101 
	On Error Resume Next
 99 
   On Error Resume Next
102 
	Dim rsTemp, filename, textdata, pos1, pos2, rsQry
 100 
   Dim rsTemp, filename, textdata, pos1, pos2, rsQry
103
101 
 
104 
	Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PKG.PKG_ID = PV.PKG_ID AND PV.PV_ID ="&patchId, ORADYN_DEFAULT)
 102 
   Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PKG.PKG_ID = PV.PKG_ID AND PV.PV_ID ="&patchId, ORADYN_DEFAULT)
105 
 
 103 
 
106 
	Set fs=Server.CreateObject("Scripting.FileSystemObject")
 104 
   Set fs=Server.CreateObject("Scripting.FileSystemObject")
107
105 
 
108 
	'Rupesh Testing Start
 106 
   'Rupesh Testing Start
109 
 
 107 
 
110 
	Set objNetwork = CreateObject("WScript.Network")
108 
   Set objNetwork = CreateObject("WScript.Network")
111 
	Set CheckDrive = objNetwork.EnumNetworkDrives()
109 
   Set CheckDrive = objNetwork.EnumNetworkDrives()
112
110 
 
113 
	For i = 0 To CheckDrive.Count - 1 Step 2
111 
   For i = 0 To CheckDrive.Count - 1 Step 2
114 
		If CheckDrive.Item(i) = strDriveLetter Then AlreadyConnected = True
112 
      If CheckDrive.Item(i) = strDriveLetter Then AlreadyConnected = True
115 
	Next
113 
   Next
116 
	If AlreadyConnected = True then
114 
   If AlreadyConnected = True then
117 
		objNetwork.RemoveNetworkDrive strDriveLetter
115 
      objNetwork.RemoveNetworkDrive strDriveLetter
118 
	End If
 116 
   End If
119 
 
 117 
 
120 
	objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, strProfile, strUser, strPassword
 118 
   objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, strProfile, strUser, strPassword
121
119 
 
122 
	filename = Mid(rsTemp("v_ext"), 2, len(rsTemp("v_ext"))) + "."
 120 
   filename = Mid(rsTemp("v_ext"), 2, len(rsTemp("v_ext"))) + "."
123
121 
 
124 
	filename = filename + rsTemp("pkg_name") + "."
 122 
   filename = filename + rsTemp("pkg_name") + "."
125
123 
 
126 
	filename = filename + Mid(rsTemp("pkg_version"), 1, len(rsTemp("pkg_version")) - 4)
 124 
   filename = filename + Mid(rsTemp("pkg_version"), 1, len(rsTemp("pkg_version")) - 4)
127
125 
 
128 
	filename = filename + ".sh"
 126 
   filename = filename + ".sh"
129
127 
 
130 
	Set f=fs.OpenTextFile(""&strDriveLetter&"\"&rsTemp("pkg_name")&"\"&rsTemp("pkg_version")&"\scripts\"&filename&"", 1)
 128 
   Set f=fs.OpenTextFile(""&strDriveLetter&"\"&rsTemp("pkg_name")&"\"&rsTemp("pkg_version")&"\scripts\"&filename&"", 1)
131
129 
 
132 
	textdata = f.ReadAll
 130 
   textdata = f.ReadAll
133
131 
 
134 
	pos1 = Instr(textdata, "PATCH_ENV1=")
 132 
   pos1 = Instr(textdata, "PATCH_ENV1=")
135
133 
 
136 
	pos2 = Instr(textdata, "PATCH_DATE")
 134 
   pos2 = Instr(textdata, "PATCH_DATE")
137
135 
 
138 
	rsTemp.Close()
 136 
   rsTemp.Close()
139 
	Set rsTemp = nothing
 137 
   Set rsTemp = nothing
140
138 
 
141 
	Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID ="&newPatchId, ORADYN_DEFAULT )
 139 
   Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID ="&newPatchId, ORADYN_DEFAULT )
142 
    rsTemp.Edit
 140 
   rsTemp.Edit
143 
    rsTemp.Fields("COMMENTS").Value = "Schema Patch - "&Mid(textdata, pos1+11, pos2-(pos1+11))
 141 
   rsTemp.Fields("COMMENTS").Value = "Schema Patch - "&Mid(textdata, pos1+11, pos2-(pos1+11))
144 
	rsTemp.Fields("PV_OVERVIEW").Value = rsTemp.Fields("PV_DESCRIPTION").Value
 142 
   rsTemp.Fields("PV_OVERVIEW").Value = rsTemp.Fields("PV_DESCRIPTION").Value
145 
	rsTemp.Fields("IS_BUILD_ENV_REQUIRED").Value = "N"
 143 
   rsTemp.Fields("IS_BUILD_ENV_REQUIRED").Value = "N"
146 
	Set rsQry = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGES WHERE PKG_ID ="&rsTemp("pkg_id"), ORADYN_DEFAULT )
 144 
   Set rsQry = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGES WHERE PKG_ID ="&rsTemp("pkg_id"), ORADYN_DEFAULT )
147 
	rsTemp.Fields("PKG_LABEL").Value = UCase( Replace(rsTemp("V_EXT"), ".", "") ) &"_"& UCase(rsQry("pkg_name")) &"_R_"& Format_Version( rsTemp("pkg_version"), rsTemp("V_EXT") )
 145 
   rsTemp.Fields("PKG_LABEL").Value = UCase( Replace(rsTemp("V_EXT"), ".", "") ) &"_"& UCase(rsQry("pkg_name")) &"_R_"& Format_Version( rsTemp("pkg_version"), rsTemp("V_EXT") )
148 
    rsTemp.Update
 146 
   rsTemp.Update
149
147 
 
150 
	f.Close()
 148 
   f.Close()
151 
 
 149 
 
152 
	objNetwork.RemoveNetworkDrive strDriveLetter
 150 
   objNetwork.RemoveNetworkDrive strDriveLetter
153 
	Set f = Nothing
 151 
   Set f = Nothing
154 
	Set fs = Nothing
152 
   Set fs = Nothing
155 
	Set objNetwork= Nothing
 153 
   Set objNetwork= Nothing
156 
	rsTemp.Close()
 154 
   rsTemp.Close()
157 
	Set rsTemp = Nothing
 155 
   Set rsTemp = Nothing
158 
	rsQry.Close()
 156 
   rsQry.Close()
159 
	Set rsQry = Nothing
 157 
   Set rsQry = Nothing
160 
End Sub
 158 
End Sub
161 
'--------------------------------------------------------------------------------------------------
 159 
'--------------------------------------------------------------------------------------------------
162 
Sub Add_Patch ( NNpv_id, SSpatchversion )
 160 
Sub Add_Patch ( NNpv_id, SSpatchversion )
163 
 
 161 
 
164 
	On Error Resume Next
 162 
   On Error Resume Next
165 
	OraDatabase.Parameters.Add "PATCH_VERSION", 	SSpatchversion, ORAPARM_INPUT, ORATYPE_VARCHAR2
 163 
   OraDatabase.Parameters.Add "PATCH_VERSION", SSpatchversion,          ORAPARM_INPUT, ORATYPE_VARCHAR2
166 
	OraDatabase.Parameters.Add "PV_ID", 			NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
 164 
   OraDatabase.Parameters.Add "PV_ID",         NNpv_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
167 
	OraDatabase.Parameters.Add "PATCH_ID_LIST", 	Request("patch_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 165 
   OraDatabase.Parameters.Add "PATCH_ID_LIST", Request("patch_id_list"),ORAPARM_INPUT, ORATYPE_VARCHAR2
168 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 166 
   OraDatabase.Parameters.Add "USER_ID",       objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
169 
	OraDatabase.Parameters.Add "RTAG_ID", 			Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 167 
   OraDatabase.Parameters.Add "RTAG_ID",       Request("rtag_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
170 
	OraDatabase.Parameters.Add "VIEW_ID", 			view_id, ORAPARM_INPUT, ORATYPE_NUMBER
 168 
   OraDatabase.Parameters.Add "VIEW_ID",       view_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
171 
	OraDatabase.Parameters.Add "RET_PATCH_ID", 		0, ORAPARM_OUTPUT, ORATYPE_NUMBER
 169 
   OraDatabase.Parameters.Add "RET_PATCH_ID",  0,                       ORAPARM_OUTPUT,ORATYPE_NUMBER
172
170 
 
173 
	objEH.TryORA ( OraSession )
 171 
   objEH.TryORA ( OraSession )
174
172 
 
175 
	OraDatabase.ExecuteSQL _
 173 
   OraDatabase.ExecuteSQL _
176 
	"BEGIN "&_
 174 
   "BEGIN "&_
177 
	" PK_PACKAGE.NEW_PATCH( :PATCH_VERSION, :PV_ID, :PATCH_ID_LIST, :USER_ID, :RET_PATCH_ID ); "&_
 175 
   " PK_PACKAGE.NEW_PATCH( :PATCH_VERSION, :PV_ID, :PATCH_ID_LIST, :USER_ID, :RET_PATCH_ID ); "&_
178 
	"END; "
 176 
   "END; "
179
177 
 
180 
	'" PK_ENVIRONMENT.ADD_PACKAGE ( :RET_PATCH_ID, :VIEW_ID, :RTAG_ID, :USER_ID ); "&_
 178 
   '" PK_ENVIRONMENT.ADD_PACKAGE ( :RET_PATCH_ID, :VIEW_ID, :RTAG_ID, :USER_ID ); "&_
181
- 
 
182
179 
 
183 
	objEH.CatchORA ( OraSession )
 180 
   objEH.CatchORA ( OraSession )
184
- 
 
185
- 
 
186
181 
 
187 
	OraDatabase.Parameters.Remove "PATCH_VERSION"
 182 
   OraDatabase.Parameters.Remove "PATCH_VERSION"
188 
	OraDatabase.Parameters.Remove "PV_ID"
 183 
   OraDatabase.Parameters.Remove "PV_ID"
189 
	OraDatabase.Parameters.Remove "PATCH_ID_LIST"
 184 
   OraDatabase.Parameters.Remove "PATCH_ID_LIST"
190 
	OraDatabase.Parameters.Remove "USER_ID"
 185 
   OraDatabase.Parameters.Remove "USER_ID"
191 
	OraDatabase.Parameters.Remove "RTAG_ID"
 186 
   OraDatabase.Parameters.Remove "RTAG_ID"
192 
	OraDatabase.Parameters.Remove "VIEW_ID"
 187 
   OraDatabase.Parameters.Remove "VIEW_ID"
193 
	OraDatabase.Parameters.Remove "RET_PATCH_ID"
 188 
   OraDatabase.Parameters.Remove "RET_PATCH_ID"
194 
End Sub
 189 
End Sub
195 
'-----------------------------------------------------------------------------------------
 190 
'-----------------------------------------------------------------------------------------
196 
Sub Auto_Patch (NNpv_id, SSpatchversions)
 191 
Sub Auto_Patch (NNpv_id, SSpatchversions)
197
- 
 
198 
	On Error Resume Next
 - 
 
199 
	Dim posComma, posUnderscore, patchId, sspatchversion, value
 - 
 
200
- 
 
201 
	value = SSpatchversions
 - 
 
202 
	posComma = InStr(SSpatchversions, ",")
 - 
 
203
- 
 
204 
	While posComma <> 0
 - 
 
205 
		value = Mid(SSpatchversions, 1, posComma-1)
 - 
 
206 
		posUnderscore = Instr(value, "_")
 - 
 
207 
		patchId = Mid(value, 1, posUnderscore - 1)
 - 
 
208 
		sspatchversion = Mid(value, posUnderscore + 1, posComma-1)
 - 
 
209 
		Call Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
 - 
 
210 
		Call AutoWrite_Reason (patchId, newPatchId)
 - 
 
211 
		Call Insert_NOT_DONE_Unit_Test (newPatchId)
 - 
 
212 
		SSpatchversions = Mid(SSpatchversions, posComma + 1, Len(SSpatchversions))
 - 
 
213 
		posComma = InStr(SSpatchversions, ",")
 - 
 
214 
	Wend
 - 
 
215
- 
 
216 
	If posComma = 0 Then
 - 
 
217 
		posUnderscore = Instr(SSpatchversions, "_")
 - 
 
218 
		patchId = Mid(SSpatchversions, 1, posUnderscore - 1)
 - 
 
219 
		sspatchversion = Mid(SSpatchversions, posUnderscore + 1)
 - 
 
220 
		Call Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
 - 
 
221 
		Call AutoWrite_Reason(patchId, newPatchId)
 - 
 
222 
		Call Insert_NOT_DONE_Unit_Test (newPatchId)
- 
 
223 
	End if
- 
 
224 
 
 192 
 
- 
 
 193 
   On Error Resume Next
- 
 
 194 
   Dim posComma, posUnderscore, patchId, sspatchversion, value
- 
 
 195 
 
- 
 
 196 
   value = SSpatchversions
- 
 
 197 
   posComma = InStr(SSpatchversions, ",")
225 
 
 198 
 
- 
 
 199 
   While posComma <> 0
- 
 
 200 
      value = Mid(SSpatchversions, 1, posComma-1)
- 
 
 201 
      posUnderscore = Instr(value, "_")
- 
 
 202 
      patchId = Mid(value, 1, posUnderscore - 1)
- 
 
 203 
      sspatchversion = Mid(value, posUnderscore + 1, posComma-1)
- 
 
 204 
      Call Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
- 
 
 205 
      Call AutoWrite_Reason (patchId, newPatchId)
- 
 
 206 
      Call Insert_NOT_DONE_Unit_Test (newPatchId)
- 
 
 207 
      SSpatchversions = Mid(SSpatchversions, posComma + 1, Len(SSpatchversions))
- 
 
 208 
      posComma = InStr(SSpatchversions, ",")
- 
 
 209 
   Wend
- 
 
 210 
 
- 
 
 211 
   If posComma = 0 Then
- 
 
 212 
      posUnderscore = Instr(SSpatchversions, "_")
- 
 
 213 
      patchId = Mid(SSpatchversions, 1, posUnderscore - 1)
- 
 
 214 
      sspatchversion = Mid(SSpatchversions, posUnderscore + 1)
- 
 
 215 
      Call Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
- 
 
 216 
      Call AutoWrite_Reason(patchId, newPatchId)
- 
 
 217 
      Call Insert_NOT_DONE_Unit_Test (newPatchId)
- 
 
 218 
   End if
226 
 
 219 
 
227 
End Sub
 220 
End Sub
228 
'-----------------------------------------------------------------------------------------
 221 
'-----------------------------------------------------------------------------------------
229 
Sub Get_Parent_Details ( NNpv_id, nRtagId, outPkg_name, outDefPatchVersion, outViewId )
 222 
Sub Get_Parent_Details ( NNpv_id, nRtagId, outPkg_name, outDefPatchVersion, outViewId )
230 
	Dim rsTemp, Query_String, tempVersion, V_EXT
 223 
   Dim rsTemp, Query_String, tempVersion, V_EXT
231
224 
 
232 
	OraDatabase.Parameters.Add "PV_ID", 		NNpv_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
 225 
   OraDatabase.Parameters.Add "PV_ID",   NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
233 
	OraDatabase.Parameters.Add "RTAG_ID", 		nRtagId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 226 
   OraDatabase.Parameters.Add "RTAG_ID", nRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
234
227 
 
235 
	Query_String = _
 228 
   Query_String = _
236 
	"  SELECT pkg.pkg_name, pv.pkg_version, pv.V_EXT, rc.BASE_VIEW_ID"&_
 229 
   "  SELECT pkg.pkg_name, pv.pkg_version, pv.V_EXT, rc.BASE_VIEW_ID"&_
237 
	" FROM package_versions pv, "&_
 230 
   " FROM package_versions pv, "&_
238 
	" 	  packages pkg,"&_
 231 
   "      packages pkg,"&_
239 
	"	  RELEASE_CONTENT rc"&_
 232 
   "     RELEASE_CONTENT rc"&_
240 
	" WHERE pv.pkg_id = pkg.pkg_id "&_
 233 
   " WHERE pv.pkg_id = pkg.pkg_id "&_
241 
	"   AND pv.pv_id = :PV_ID"&_
 234 
   "   AND pv.pv_id = :PV_ID"&_
242 
	"   AND rc.RTAG_ID = :RTAG_ID"&_
 235 
   "   AND rc.RTAG_ID = :RTAG_ID"&_
243 
	"   AND rc.PV_ID = pv.PV_ID"
 236 
   "   AND rc.PV_ID = pv.PV_ID"
244
237 
 
245 
	Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
 238 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
246
239 
 
247 
	OraDatabase.Parameters.Remove "PV_ID"
 240 
   OraDatabase.Parameters.Remove "PV_ID"
248 
	OraDatabase.Parameters.Remove "RTAG_ID"
 241 
   OraDatabase.Parameters.Remove "RTAG_ID"
249
242 
 
250 
	'update fields
 243 
   'update fields
251 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 244 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
252 
		outPkg_name = rsTemp("pkg_name")
 245 
      outPkg_name = rsTemp("pkg_name")
253 
		tempVersion = rsTemp("pkg_version")
 246 
      tempVersion = rsTemp("pkg_version")
254 
		outViewId = rsTemp("base_view_id")
 247 
      outViewId = rsTemp("base_view_id")
255 
		V_EXT = rsTemp("V_EXT")
 248 
      V_EXT = rsTemp("V_EXT")
256 
	End If
 249 
   End If
257
250 
 
258 
	rsTemp.Close()
 251 
   rsTemp.Close()
259 
	Set rsTemp = nothing
 252 
   Set rsTemp = nothing
260
253 
 
261 
	If IsNull(V_EXT) Then V_EXT = ""
 254 
   If IsNull(V_EXT) Then V_EXT = ""
262
255 
 
263 
	outDefPatchVersion = Replace( tempVersion, V_EXT, "" ) &".pXXX"& V_EXT
 256 
   outDefPatchVersion = Replace( tempVersion, V_EXT, "" ) &".pXXX"& V_EXT
264
257 
 
265 
End Sub
 258 
End Sub
266 
'------------------------------------------------------------------------------------------------
 259 
'------------------------------------------------------------------------------------------------
267 
Sub Insert_NOT_DONE_Unit_Test (nPv_id)
 260 
Sub Insert_NOT_DONE_Unit_Test (nPv_id)
268 
 
 261 
 
269 
	' IN PARAMETERS
 262 
   ' IN PARAMETERS
270 
	OraDatabase.Parameters.Add "PV_ID", 			nPv_id, 				ORAPARM_INPUT, 	ORATYPE_NUMBER
 263 
   OraDatabase.Parameters.Add "PV_ID",                   nPv_id,                  ORAPARM_INPUT,    ORATYPE_NUMBER
271 
	OraDatabase.Parameters.Add "TEST_TYPE_ID", 		enumTEST_TYPE_NOT_DONE,	ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 264 
   OraDatabase.Parameters.Add "TEST_TYPE_ID",            enumTEST_TYPE_NOT_DONE,  ORAPARM_INPUT,    ORATYPE_VARCHAR2
272 
	OraDatabase.Parameters.Add "TEST_SUMMARY", 		NULL, 					ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 265 
   OraDatabase.Parameters.Add "TEST_SUMMARY",            NULL,                    ORAPARM_INPUT,    ORATYPE_VARCHAR2
273 
	OraDatabase.Parameters.Add "NUMOF_TEST", 		NULL, 					ORAPARM_INPUT, 	ORATYPE_CHAR
 266 
   OraDatabase.Parameters.Add "NUMOF_TEST",              NULL,                    ORAPARM_INPUT,    ORATYPE_CHAR
274 
	OraDatabase.Parameters.Add "DPKG_PATH", 		NULL, 					ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 267 
   OraDatabase.Parameters.Add "DPKG_PATH",               NULL,                    ORAPARM_INPUT,    ORATYPE_VARCHAR2
275 
	OraDatabase.Parameters.Add "RESULTS", 			NULL,					ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 268 
   OraDatabase.Parameters.Add "RESULTS",                 NULL,                    ORAPARM_INPUT,    ORATYPE_VARCHAR2
276 
	OraDatabase.Parameters.Add "COMPLETION_DATE", 	EuroDate ( Date ), 	ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 269 
   OraDatabase.Parameters.Add "COMPLETION_DATE",         EuroDate ( Date ),       ORAPARM_INPUT,    ORATYPE_VARCHAR2
277 
	OraDatabase.Parameters.Add "COMPLETED_BY", 		objAccessControl.UserId, ORAPARM_INPUT, 	ORATYPE_NUMBER
 270 
   OraDatabase.Parameters.Add "COMPLETED_BY",            objAccessControl.UserId, ORAPARM_INPUT,    ORATYPE_NUMBER
278 
	OraDatabase.Parameters.Add "enumTEST_TYPE_AUTOMATIC", 	NULL,			ORAPARM_INPUT, 	ORATYPE_NUMBER
 271 
   OraDatabase.Parameters.Add "enumTEST_TYPE_AUTOMATIC", NULL,                    ORAPARM_INPUT,    ORATYPE_NUMBER
279 
	OraDatabase.Parameters.Add "enumTEST_TYPE_NOT_DONE", 	NULL, 			ORAPARM_INPUT, 	ORATYPE_NUMBER
 272 
   OraDatabase.Parameters.Add "enumTEST_TYPE_NOT_DONE",  NULL,                    ORAPARM_INPUT,    ORATYPE_NUMBER
280
- 
 
281
273 
 
282 
	' OUT PARAMETERS
 274 
   ' OUT PARAMETERS
283 
	OraDatabase.Parameters.Add "FILENAME", 			NULL,				ORAPARM_OUTPUT, ORATYPE_VARCHAR2
 275 
   OraDatabase.Parameters.Add "FILENAME", NULL, ORAPARM_OUTPUT, ORATYPE_VARCHAR2
284
276 
 
- 
 
 277 
   objEH.TryORA ( OraSession )
285 
	OraSession.BeginTrans
 278 
   On Error Resume Next
286
279 
 
287 
	OraDatabase.ExecuteSQL _
 280 
   OraDatabase.ExecuteSQL _
288 
	"BEGIN  New_Unit_Test  ( :PV_ID,"&_
 281 
   "BEGIN  New_Unit_Test  ( :PV_ID,"&_
289 
    "                        :TEST_TYPE_ID,"&_
 282 
   "                        :TEST_TYPE_ID,"&_
290 
    "                        :TEST_SUMMARY,"&_
 283 
   "                        :TEST_SUMMARY,"&_
291 
    "                        :NUMOF_TEST,"&_
 284 
   "                        :NUMOF_TEST,"&_
292 
    "                        :DPKG_PATH,"&_
 285 
   "                        :DPKG_PATH,"&_
293 
	"                        :RESULTS,"&_
 286 
   "                        :RESULTS,"&_
294 
	"                        :COMPLETION_DATE,"&_
 287 
   "                        :COMPLETION_DATE,"&_
295 
    "                        :COMPLETED_BY,"&_
 288 
   "                        :COMPLETED_BY,"&_
296 
	"                        :enumTEST_TYPE_AUTOMATIC, "&_
 289 
   "                        :enumTEST_TYPE_AUTOMATIC, "&_
297 
	"                        :enumTEST_TYPE_NOT_DONE, "&_
 290 
   "                        :enumTEST_TYPE_NOT_DONE, "&_
298 
	"                        :FILENAME "&_
 291 
   "                        :FILENAME "&_
299 
	"						  );  END;"
 292 
   "                    );  END;"
300
293 
 
301 
	OraSession.CommitTrans
 294 
   objEH.CatchORA ( OraSession )
302
- 
 
303
295 
 
304 
	OraDatabase.Parameters.Remove "PV_ID"
 296 
   OraDatabase.Parameters.Remove "PV_ID"
305 
	OraDatabase.Parameters.Remove "TEST_TYPE_ID"
 297 
   OraDatabase.Parameters.Remove "TEST_TYPE_ID"
306 
	OraDatabase.Parameters.Remove "TEST_SUMMARY"
 298 
   OraDatabase.Parameters.Remove "TEST_SUMMARY"
307 
	OraDatabase.Parameters.Remove "NUMOF_TEST"
 299 
   OraDatabase.Parameters.Remove "NUMOF_TEST"
308 
	OraDatabase.Parameters.Remove "DPKG_PATH"
 300 
   OraDatabase.Parameters.Remove "DPKG_PATH"
309 
	OraDatabase.Parameters.Remove "RESULTS"
 301 
   OraDatabase.Parameters.Remove "RESULTS"
310 
	OraDatabase.Parameters.Remove "COMPLETION_DATE"
 302 
   OraDatabase.Parameters.Remove "COMPLETION_DATE"
311 
	OraDatabase.Parameters.Remove "COMPLETED_BY"
 303 
   OraDatabase.Parameters.Remove "COMPLETED_BY"
312 
	OraDatabase.Parameters.Remove "enumTEST_TYPE_AUTOMATIC"
 304 
   OraDatabase.Parameters.Remove "enumTEST_TYPE_AUTOMATIC"
313 
	OraDatabase.Parameters.Remove "enumTEST_TYPE_NOT_DONE"
 305 
   OraDatabase.Parameters.Remove "enumTEST_TYPE_NOT_DONE"
314 
	OraDatabase.Parameters.Remove "FILENAME"
 306 
   OraDatabase.Parameters.Remove "FILENAME"
315 
 
 307 
 
316 
End Sub
 308 
End Sub
317 
'------------------------------------------------------------------------------------------------
 309 
'------------------------------------------------------------------------------------------------
318 
%>
 310 
%>
319 
<%
 311 
<%
320 
'Process submition
 312 
'Process submition
321 
Call Get_Parent_Details ( Request("pv_id"),  Request("rtag_id"), pkg_name, patch_version, view_id )
 313 
Call Get_Parent_Details ( Request("pv_id"),  Request("rtag_id"), pkg_name, patch_version, view_id )
322 
 
 314 
 
323 
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
 315 
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
324 
	If Request("btn") = "AutoFill" Then
 316 
   If Request("btn") = "AutoFill" Then
325 
		Call Auto_Patch (parPv_id, Request("auto_patch_id_list") )
 317 
      Call Auto_Patch (parPv_id, Request("auto_patch_id_list") )
326 
	Else
 318 
   Else
327 
		Call Add_Patch ( parPv_id, Request("FRversion") )
 319 
      Call Add_Patch ( parPv_id, Request("FRversion") )
328 
	End If
 320 
   End If
329
321 
 
330 
	If objEH.Finally Then
 322 
   If objEH.Finally Then
331 
		Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 323 
      Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
332 
		Call CloseWindow
 324 
      Call CloseWindow
333 
	End If
 325 
   End If
334
- 
 
335
- 
 
336 
End If
 326 
End If
337 
%>
 327 
%>
338 
<html>
 328 
<html>
339 
<head>
 329 
<head>
340 
<script language="javascript">
 330 
<script language="javascript">
Line 343... Line 333...
343 
  var args = arguments;
 333 
  var args = arguments;
344 
  start_point:
 334 
  start_point:
345 
  for (var i=0;i<document.forms[0].elements.length;i++)
 335 
  for (var i=0;i<document.forms[0].elements.length;i++)
346 
  {
 336 
  {
347 
 
 337 
 
348 
     found = false;
338 
     found = false;
349 
     var e=document.forms[0].elements[i];
 339 
     var e=document.forms[0].elements[i];
350 
     if ((e.name != 'checkallmanual') && (e.type=='checkbox'))
 340 
     if ((e.name != 'checkallmanual') && (e.type=='checkbox'))
351 
     {
 341 
     {
352 
        for (var j = 0; j < args.length; j++)
 342 
        for (var j = 0; j < args.length; j++)
353 
           if (args[j] == e.name)
 343 
           if (args[j] == e.name)
Line 363... Line 353...
363 
  var args = arguments;
 353 
  var args = arguments;
364 
  start_point:
 354 
  start_point:
365 
  for (var i=0;i<document.forms[0].elements.length;i++)
 355 
  for (var i=0;i<document.forms[0].elements.length;i++)
366 
  {
 356 
  {
367 
 
 357 
 
368 
     found = false;
358 
     found = false;
369 
     var e=document.forms[0].elements[i];
 359 
     var e=document.forms[0].elements[i];
370 
     if ((e.name != 'checkallauto') && (e.type=='checkbox'))
 360 
     if ((e.name != 'checkallauto') && (e.type=='checkbox'))
371 
     {
 361 
     {
372 
        for (var j = 0; j < args.length; j++)
 362 
        for (var j = 0; j < args.length; j++)
373 
           if (args[j] == e.name)
 363 
           if (args[j] == e.name)
Line 386... Line 376...
386 
<script language="JavaScript" src="images/common.js"></script>
 376 
<script language="JavaScript" src="images/common.js"></script>
387 
</head>
 377 
</head>
388 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.ptch.FRversion.focus();">
 378 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.ptch.FRversion.focus();">
389 
<form name="ptch" method="post" action="<%=scriptName%>" onSubmit="MM_validateForm('FRversion','Patch Version','RisVersionStr');return document.MM_returnValue;">
 379 
<form name="ptch" method="post" action="<%=scriptName%>" onSubmit="MM_validateForm('FRversion','Patch Version','RisVersionStr');return document.MM_returnValue;">
390 
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
 380 
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
391 
    <tr>
381 
    <tr>
392 
      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_pkg_off.gif" width="21" height="23" hspace="5" border="0"></td>
 382 
      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_pkg_off.gif" width="21" height="23" hspace="5" border="0"></td>
393 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;New Patch</td>
 383 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;New Patch</td>
394 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
384 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
395 
		<input type="submit" name="btn" value="AutoFill" class="form_btn_comp">
 385 
      <input type="submit" name="btn" value="AutoFill" class="form_btn_comp">
396 
        <input type="submit" name="btn" value="Submit" class="form_btn_comp">
 386 
        <input type="submit" name="btn" value="Submit" class="form_btn_comp">
397 
        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
 387 
        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
398 
      </td>
 388 
      </td>
399 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
389 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
400 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
 390 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
401 
    </tr>
 391 
    </tr>
402 
    <tr>
392 
    <tr>
403 
      <td height="100%" width="1%">&nbsp;</td>
 393 
      <td height="100%" width="1%">&nbsp;</td>
404 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
394 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
405 
        <table width="100%" border="0" cellspacing="1" cellpadding="3">
 395 
        <table width="100%" border="0" cellspacing="1" cellpadding="3">
406 
          <tr>
396 
          <tr>
407 
            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Package</td>
 397 
            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Package</td>
408 
            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=pkg_name%></td>
 398 
            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=pkg_name%></td>
409 
          </tr>
 399 
          </tr>
410 
          <tr>
400 
          <tr>
411 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Patch Version</td>
 401 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Patch Version</td>
412 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
402 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
413 
              <input name="FRversion" type="text" class="form_item"  size="30" maxlength="50" value="<%=patch_version%>">
 403 
              <input name="FRversion" type="text" class="form_item"  size="30" maxlength="50" value="<%=patch_version%>">
414 
            </td>
 404 
            </td>
415 
          </tr>
 405 
          </tr>
416 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 406 
        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
417 
          <%If NOT objEH.Finally Then%>
 407 
          <%If NOT objEH.Finally Then%>
418 
          <tr>
 408 
          <tr>
419 
            <td class="form_iname" colspan="2">&nbsp;</td>
 409 
            <td class="form_iname" colspan="2">&nbsp;</td>
420 
            <td>
 410 
            <td>
421 
              <%objEH.DisplayMessage()%>
 411 
              <%objEH.DisplayMessage()%>
422 
            </td>
 412 
            </td>
423 
          </tr>
 413 
          </tr>
424 
          <%End If%>
 414 
          <%End If%>
425 
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 415 
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
426 
		  <!-- INCLUDE DEPENDENCY PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
 416 
        <!-- INCLUDE DEPENDENCY PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
427 
		  <%
 417 
        <%
428 
		  OraDatabase.Parameters.Add "PV_ID", 	parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
 418 
        OraDatabase.Parameters.Add "PV_ID",    parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
429 
		  OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 419 
        OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
430 
		  %>
 420 
        %>
431 
		  <%
 421 
        <%
432 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("UnusedPatches.sql"), cint(0))
 422 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("UnusedPatches.sql"), cint(0))
433 
		  %>
 423 
        %>
434 
		  <%If rsQry.RecordCount > 0 Then%>
 424 
        <%If rsQry.RecordCount > 0 Then%>
435 
		  <tr>
425 
        <tr>
436 
            <td nowrap class="body_colb" colspan="3"><br><br>Include Dependency Patches</td>
 426 
            <td nowrap class="body_colb" colspan="3"><br><br>Include Dependency Patches</td>
437 
          </tr>
 427 
          </tr>
438 
		  <tr>
428 
        <tr>
439 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Manual</td>
 429 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Manual</td>
440 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
 430 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
441 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
 431 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
442 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Auto</td>
432 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Auto</td>
443 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
433 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
444 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
434 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
445 
          </tr>
435 
          </tr>
446 
		  <tr>
436 
        <tr>
447 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkallmanual"   value="Check All"
 437 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkallmanual"   value="Check All"
448 
				onClick="checkAllManual('auto_patch_id_list', 'checkallauto');"></td>
 438 
            onClick="checkAllManual('auto_patch_id_list', 'checkallauto');"></td>
449 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
 439 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
450 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
 440 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
451 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkallauto"   value="Check All"
 441 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkallauto"   value="Check All"
452 
				onClick="checkAllAuto('patch_id_list', 'checkallmanual');"></td>
442 
            onClick="checkAllAuto('patch_id_list', 'checkallmanual');"></td>
453 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
443 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
454 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
444 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
455 
          </tr>
445 
          </tr>
456 
		  <%End If%>
 446 
        <%End If%>
457 
		  <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 447 
        <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
458
448 
 
459 
		  newPatch_version = patch_version
 449 
        newPatch_version = patch_version
460 
		  pos = InStr(rsQry("pkg_version"), "p")
 450 
        pos = InStr(rsQry("pkg_version"), "p")
461
451 
 
462 
		  patch_number = Mid(rsQry("pkg_version"), pos+1, 3)
 452 
        patch_number = Mid(rsQry("pkg_version"), pos+1, 3)
463
453 
 
464 
		  newPatch_version = SearchAndReplace(newPatch_version, "XXX", patch_number)
 454 
        newPatch_version = SearchAndReplace(newPatch_version, "XXX", patch_number)
465 
		  %>
 455 
        %>
466 
          <tr>
456 
          <tr>
467 
            <td><input type="checkbox" name="patch_id_list" value="<%=rsQry("patch_id")%>"></td>
 457 
            <td><input type="checkbox" name="patch_id_list" value="<%=rsQry("patch_id")%>"></td>
468 
            <td nowrap class="form_txt"><%=rsQry("pkg_name")%></td>
 458 
            <td nowrap class="form_txt"><%=rsQry("pkg_name")%></td>
469 
            <td nowrap class="form_txt"><%=rsQry("pkg_version")%></td>
 459 
            <td nowrap class="form_txt"><%=rsQry("pkg_version")%></td>
470 
            <td><input type="checkbox" name="auto_patch_id_list" value="<%=rsQry("patch_id")%>_<%=newPatch_version%>"></td>
460 
            <td><input type="checkbox" name="auto_patch_id_list" value="<%=rsQry("patch_id")%>_<%=newPatch_version%>"></td>
471 
            <td nowrap class="form_txt"><font color="#808080"><b><%=pkg_name%></b></font></td>
 461 
            <td nowrap class="form_txt"><font color="#808080"><b><%=pkg_name%></b></font></td>
472 
            <td nowrap class="form_txt"><font color="#808080"><b><%=newPatch_version%></b></font></td>
 462 
            <td nowrap class="form_txt"><font color="#808080"><b><%=newPatch_version%></b></font></td>
473 
          </tr>
 463 
          </tr>
474 
		  <%rsQry.MoveNext
 464 
        <%rsQry.MoveNext
475 
		  WEnd
 465 
        WEnd
476
466 
 
477 
		  rsQry.Close
 467 
        rsQry.Close
478 
		  Set rsQry = nothing
 468 
        Set rsQry = nothing
479 
		  %>
 469 
        %>
480
470 
 
481 
		  <!-- INCLUDE PACKAGES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
 471 
        <!-- INCLUDE PACKAGES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
482 
		  <%
 472 
        <%
483 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("UnusedPackages.sql"), cint(0))
 473 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("UnusedPackages.sql"), cint(0))
484 
		  %>
 474 
        %>
485 
		  <%If rsQry.RecordCount > 0 Then%>
 475 
        <%If rsQry.RecordCount > 0 Then%>
486 
		  <tr>
476 
        <tr>
487 
            <td nowrap class="body_colb" colspan="3"><br><br>Include Latest Packages</td>
 477 
            <td nowrap class="body_colb" colspan="3"><br><br>Include Latest Packages</td>
488 
          </tr>
 478 
          </tr>
489 
		  <tr>
479 
        <tr>
490 
            <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
 480 
            <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
491 
            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
 481 
            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
492 
            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
 482 
            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
493 
          </tr>
483 
          </tr>
494 
		  <%End If%>
 484 
        <%End If%>
495 
		  <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
 485 
        <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
496 
          <tr>
486 
          <tr>
497 
            <td><input type="checkbox" name="patch_id_list" value="<%=rsQry("latest_pv_id")%>"></td>
 487 
            <td><input type="checkbox" name="patch_id_list" value="<%=rsQry("latest_pv_id")%>"></td>
498 
            <td nowrap class="form_txt"><%=rsQry("pkg_name")%></td>
 488 
            <td nowrap class="form_txt"><%=rsQry("pkg_name")%></td>
499 
            <td nowrap class="form_txt"><%=rsQry("pkg_version")%></td>
 489 
            <td nowrap class="form_txt"><%=rsQry("pkg_version")%></td>
500 
          </tr>
 490 
          </tr>
501 
		  <%rsQry.MoveNext
 491 
        <%rsQry.MoveNext
502 
		  WEnd
 492 
        WEnd
503
493 
 
504 
		  rsQry.Close
 494 
        rsQry.Close
505 
		  Set rsQry = nothing
 495 
        Set rsQry = nothing
506 
		  %>
 496 
        %>
507 
		  <%
 497 
        <%
508 
		  OraDatabase.Parameters.Remove "PV_ID"
 498 
        OraDatabase.Parameters.Remove "PV_ID"
509 
		  OraDatabase.Parameters.Remove "RTAG_ID"
 499 
        OraDatabase.Parameters.Remove "RTAG_ID"
510 
		  %>
 500 
        %>
511 
        </table> </td>
 501 
        </table> </td>
512 
    </tr>
 502 
    </tr>
513 
    <tr>
 503 
    <tr>
514 
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 504 
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
515 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 505 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
516 
    </tr>
 506 
    </tr>
517 
  </table>
 507 
  </table>
518 
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
 508 
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
519 
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
 509 
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
520 
<input type="hidden" name="action" value="true">
510 
<input type="hidden" name="action" value="true">
521 
</form>
 511 
</form>
522 
</body>
 512 
</body>
523 
</html>
 513 
</html>
524 
 
 514 
 
525 
 
 515 
 
526 
<!-- DESTRUCTOR ------->
 516 
<!-- DESTRUCTOR ------->
527 
<!--#include file="common/destructor.asp"-->
 - 
 
528 

            517
            
<!--#include file="common/destructor.asp"-->

          

          

            -
            
 

            518