| Line 40... |
Line 40... |
| 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"
|
- |
|
| 46 |
strUser = "releasem"
|
45 |
strUser = "releasem"
|
| 47 |
strPassword = "releasem"
|
46 |
strPassword = "releasem"
|
| 48 |
strProfile = "False" ' means do not store in profile leave as false.
|
47 |
strProfile = "False" ' means do not store in profile leave as false.
|
| 49 |
AlreadyConnected = False
|
48 |
AlreadyConnected = False
|
| 50 |
'----------------------------------------------
|
49 |
'----------------------------------------------
|
| Line 315... |
Line 314... |
| 315 |
End Sub
|
314 |
End Sub
|
| 316 |
'------------------------------------------------------------------------------------------------
|
315 |
'------------------------------------------------------------------------------------------------
|
| 317 |
%>
|
316 |
%>
|
| 318 |
<%
|
317 |
<%
|
| 319 |
'Process submition
|
318 |
'Process submition
|
| - |
|
319 |
Dim sarchive_server: sarchive_server = Get_Archive_Server()
|
| - |
|
320 |
strRemotePath = "\\" & sarchive_server & "\dpkg_archive"
|
| - |
|
321 |
|
| 320 |
Call Get_Parent_Details ( Request("pv_id"), Request("rtag_id"), pkg_name, patch_version, view_id )
|
322 |
Call Get_Parent_Details ( Request("pv_id"), Request("rtag_id"), pkg_name, patch_version, view_id )
|
| 321 |
|
323 |
|
| 322 |
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
|
324 |
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
|
| 323 |
If Request("btn") = "AutoFill" Then
|
325 |
If Request("btn") = "AutoFill" Then
|
| 324 |
Call Auto_Patch (parPv_id, Request("auto_patch_id_list") )
|
326 |
Call Auto_Patch (parPv_id, Request("auto_patch_id_list") )
|