| Line 52... |
Line 52... |
| 52 |
Dim fs, f, i
|
52 |
Dim fs, f, i
|
| 53 |
Dim objNetwork, strDriveLetter, strRemotePath, strProfile, CheckDrive
|
53 |
Dim objNetwork, strDriveLetter, strRemotePath, strProfile, CheckDrive
|
| 54 |
Dim pkgCredentails, strUser, strPassword
|
54 |
Dim pkgCredentails, strUser, strPassword
|
| 55 |
Dim skip, AlreadyConnected
|
55 |
Dim skip, AlreadyConnected
|
| 56 |
Dim newPatchId
|
56 |
Dim newPatchId
|
| - |
|
57 |
Dim ShowAutoFill
|
| 57 |
'------------ Constants Declaration -----------
|
58 |
'------------ Constants Declaration -----------
|
| 58 |
'------------ Variable Init -------------------
|
59 |
'------------ Variable Init -------------------
|
| 59 |
parPv_id = QStrPar("pv_id")
|
60 |
parPv_id = QStrPar("pv_id")
|
| 60 |
strDriveLetter = "R:"
|
61 |
strDriveLetter = "R:"
|
| 61 |
pkgCredentails = split(Application("PKGARCHIVE_CREDENTIALS"),":")
|
62 |
pkgCredentails = split(Application("PKGARCHIVE_CREDENTIALS"),":")
|
| 62 |
strUser = pkgCredentails(0)
|
63 |
strUser = pkgCredentails(0)
|
| 63 |
strPassword = pkgCredentails(1)
|
64 |
strPassword = pkgCredentails(1)
|
| 64 |
strRemotePath = "\\" & Get_Archive_Server() & "\dpkg_archive"
|
65 |
strRemotePath = "\\" & Get_Archive_Server() & "\dpkg_archive"
|
| 65 |
strProfile = "False" ' means do not store in profile leave as false.
|
66 |
strProfile = "False" ' means do not store in profile leave as false.
|
| 66 |
AlreadyConnected = False
|
67 |
AlreadyConnected = False
|
| - |
|
68 |
ShowAutoFill = False
|
| 67 |
'----------------------------------------------
|
69 |
'----------------------------------------------
|
| 68 |
%>
|
70 |
%>
|
| 69 |
<%
|
71 |
<%
|
| 70 |
'--------------------------------------------------------------------------------------------------
|
72 |
'--------------------------------------------------------------------------------------------------
|
| 71 |
Function SearchAndReplace(s, Str1, Str2)
|
73 |
Function SearchAndReplace(s, Str1, Str2)
|
| Line 296... |
Line 298... |
| 296 |
OraDatabase.Parameters.Add "enumTEST_TYPE_NOT_DONE", NULL, ORAPARM_INPUT, ORATYPE_NUMBER
|
298 |
OraDatabase.Parameters.Add "enumTEST_TYPE_NOT_DONE", NULL, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 297 |
|
299 |
|
| 298 |
' OUT PARAMETERS
|
300 |
' OUT PARAMETERS
|
| 299 |
OraDatabase.Parameters.Add "FILENAME", NULL, ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
301 |
OraDatabase.Parameters.Add "FILENAME", NULL, ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
| 300 |
|
302 |
|
| - |
|
303 |
objEH.ErrorRedirect = FALSE
|
| 301 |
objEH.TryORA ( OraSession )
|
304 |
objEH.TryORA ( OraSession )
|
| 302 |
On Error Resume Next
|
305 |
On Error Resume Next
|
| 303 |
|
306 |
|
| 304 |
OraDatabase.ExecuteSQL _
|
307 |
OraDatabase.ExecuteSQL _
|
| 305 |
"BEGIN New_Unit_Test ( :PV_ID,"&_
|
308 |
"BEGIN New_Unit_Test ( :PV_ID,"&_
|
| Line 344... |
Line 347... |
| 344 |
Call Add_Patch ( parPv_id, Request("FRversion") )
|
347 |
Call Add_Patch ( parPv_id, Request("FRversion") )
|
| 345 |
End If
|
348 |
End If
|
| 346 |
|
349 |
|
| 347 |
If objEH.Finally Then
|
350 |
If objEH.Finally Then
|
| 348 |
Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
351 |
Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
| 349 |
Call CloseWindow
|
352 |
Response.End
|
| 350 |
End If
|
353 |
End If
|
| 351 |
End If
|
354 |
End If
|
| 352 |
%>
|
355 |
%>
|
| 353 |
<html>
|
356 |
<html>
|
| 354 |
<head>
|
357 |
<head>
|
| Line 400... |
Line 403... |
| 400 |
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
|
403 |
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
|
| 401 |
<link rel="stylesheet" href="images/navigation.css" type="text/css">
|
404 |
<link rel="stylesheet" href="images/navigation.css" type="text/css">
|
| 402 |
<script language="JavaScript" src="images/common.js"></script>
|
405 |
<script language="JavaScript" src="images/common.js"></script>
|
| 403 |
</head>
|
406 |
</head>
|
| 404 |
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.ptch.FRversion.focus();">
|
407 |
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.ptch.FRversion.focus();">
|
| 405 |
<form name="ptch" method="post" action="<%=scriptName%>" onSubmit="MM_validateForm('FRversion','Patch Version','RisPatchVersionStr');return document.MM_returnValue;">
|
408 |
<form class="form_tight" name="ptch" method="post" action="<%=scriptName%>" onSubmit="MM_validateForm('FRversion','Patch Version','RisPatchVersionStr');return document.MM_returnValue;">
|
| 406 |
<table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
|
409 |
<table width="100%" border="0" cellspacing="0" cellpadding="2">
|
| 407 |
<%
|
410 |
<%
|
| 408 |
OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
411 |
OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 409 |
OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
412 |
OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 410 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("UnusedPatches.sql"), cint(0))
|
413 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("UnusedPatches.sql"), cint(0))
|
| 411 |
%>
|
414 |
%>
|
| 412 |
|
- |
|
| 413 |
<tr>
|
415 |
<tr>
|
| 414 |
<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>
|
- |
|
| 415 |
<td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl"> New Patch</td>
|
- |
|
| 416 |
<td background="images/lbox_bg_blue.gif" align="right" width="50%">
|
- |
|
| 417 |
<%If rsQry.RecordCount > 0 Then%>
|
- |
|
| 418 |
<input type="submit" name="btn" value="AutoFill" class="form_btn_comp">
|
- |
|
| 419 |
<%End If%>
|
- |
|
| 420 |
<input type="submit" name="btn" value="Submit" class="form_btn_comp">
|
- |
|
| 421 |
<input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
|
- |
|
| 422 |
</td>
|
- |
|
| 423 |
<td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
|
- |
|
| 424 |
<img src="images/h_trsp_dot.gif" width="5" height="22">
|
- |
|
| 425 |
</td>
|
- |
|
| 426 |
</tr>
|
- |
|
| 427 |
<tr>
|
- |
|
| 428 |
<td height="100%" width="1%"> </td>
|
- |
|
| 429 |
<td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
|
416 |
<td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
|
| 430 |
<table width="100%" border="0" cellspacing="1" cellpadding="3">
|
417 |
<table width="100%" border="0" cellspacing="1" cellpadding="3">
|
| 431 |
<tr>
|
418 |
<tr>
|
| 432 |
<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Package</td>
|
- |
|
| 433 |
<td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" colspan="4"><%=pkg_name%></td>
|
- |
|
| 434 |
</tr>
|
- |
|
| 435 |
<tr>
|
- |
|
| 436 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Patch Version</td>
|
419 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Patch Version</td>
|
| 437 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" colspan="4">
|
420 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" colspan="4">
|
| 438 |
<input name="FRversion" type="text" class="form_item" size="30" maxlength="50" value="<%=patch_version%>">
|
421 |
<input name="FRversion" type="text" class="form_item" size="30" maxlength="50" value="<%=patch_version%>">
|
| 439 |
</td>
|
422 |
</td>
|
| 440 |
</tr>
|
423 |
</tr>
|
| 441 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
424 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 442 |
<%If NOT objEH.Finally Then%>
|
- |
|
| 443 |
<tr>
|
- |
|
| 444 |
<td class="form_iname" colspan="2"> </td>
|
425 |
<!--#include file="messages/_msg_inline.asp"-->
|
| 445 |
<td>
|
- |
|
| 446 |
<%objEH.DisplayMessage()%>
|
- |
|
| 447 |
</td>
|
- |
|
| 448 |
</tr>
|
- |
|
| 449 |
<%End If%>
|
- |
|
| 450 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
426 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 451 |
<!-- INCLUDE DEPENDENCY PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
427 |
<!-- INCLUDE DEPENDENCY PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 452 |
<%If rsQry.RecordCount > 0 Then%>
|
428 |
<%If rsQry.RecordCount > 0 Then%>
|
| - |
|
429 |
<%ShowAutoFill = True%>
|
| 453 |
<tr>
|
430 |
<tr>
|
| 454 |
<td nowrap class="body_colb" colspan="6"><br><br>Include Dependency Patches</td>
|
431 |
<td nowrap class="body_colb" colspan="6"><br><br>Include Dependency Patches</td>
|
| 455 |
</tr>
|
432 |
</tr>
|
| 456 |
<tr>
|
433 |
<tr>
|
| 457 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Manual</td>
|
434 |
<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Manual</td>
|
| Line 533... |
Line 510... |
| 533 |
%>
|
510 |
%>
|
| 534 |
</table>
|
511 |
</table>
|
| 535 |
</td>
|
512 |
</td>
|
| 536 |
</tr>
|
513 |
</tr>
|
| 537 |
<tr>
|
514 |
<tr>
|
| - |
|
515 |
<td align="right">
|
| - |
|
516 |
<%If ShowAutoFill Then%>
|
| 538 |
<td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
|
517 |
<input type="submit" name="btn" value="AutoFill" class="form_btn_comp">
|
| - |
|
518 |
<%End If%>
|
| - |
|
519 |
<input type="submit" name="btn" value="Submit" class="form_btn_comp">
|
| 539 |
<td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
|
520 |
<input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="parent.closeIFrame();">
|
| - |
|
521 |
</td>
|
| 540 |
</tr>
|
522 |
</tr>
|
| 541 |
</table>
|
523 |
</table>
|
| 542 |
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
|
524 |
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
|
| 543 |
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
|
525 |
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
|
| 544 |
<input type="hidden" name="action" value="true">
|
526 |
<input type="hidden" name="action" value="true">
|