<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|
'| _wform_change_previous_version.asp
'| Change the previous version of a package
'| This page is designed to operation within an iframe
'|
'=====================================================
%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'=====================================================
' Change Previous Version
'=====================================================
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim parPv_id
Dim parRfile
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
parPv_id = QStrPar("pv_id")
parRfile = QStrPar("rfile")
'----------------------------------------------
%>
<%
Sub Short_Pkg_Info ( NNpv_id )
Dim rsTemp, Query_String
Query_String = _
" SELECT pkg.pkg_name, pv.pkg_version, pv.pkg_id, pv.last_pv_id"&_
" FROM packages pkg, package_versions pv"&_
" WHERE pkg.pkg_id = pv.pkg_id"&_
" AND pv.pv_id = "& NNpv_id
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))
pkgInfoHash.Add "last_pv_id", (rsTemp.Fields("last_pv_id"))
End If
rsTemp.Close
Set rsTemp = nothing
End Sub
Function All_Versions_List ( nOldPv_id, nPkg_id )
If nOldPv_id = "" OR IsNull(nOldPv_id) Then nOldPv_id = "-1"
All_Versions_List = _
" SELECT pv.pv_id, pv.pkg_version, pv.dlocked,"&_
" DECODE(pv.pv_id, "& nOldPv_id &", 'selected', NULL) AS selected "&_
" FROM PACKAGE_VERSIONS pv"&_
" WHERE pv.pkg_id = "& nPkg_id &_
" AND pv.is_patch IS NULL"
'Response.write All_Versions_List
End Function
Sub Update_Previous_Version ( NNpv_id, nLast_pv_id )
Dim rsTemp, Query_String
If nLast_pv_id = "" Then nLast_pv_id = NULL
Query_String = _
"SELECT last_pv_id, release_notes_info"&_
" FROM package_versions"&_
" WHERE pv_id = "& NNpv_id
Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
'update fields
rsTemp.Edit
rsTemp.Fields("last_pv_id").Value = nLast_pv_id
rsTemp.Fields("release_notes_info").Value = NULL
rsTemp.Update
rsTemp.Close
Set rsTemp = nothing
End Sub
%>
<%
'Process submition
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
Call Update_Previous_Version ( parPv_id, Request("last_pv_id") )
Call ReloadParentWindow
Call CloseWindow
End If
%>
<%
Call Short_Pkg_Info ( parPv_id )
%>
Release Manager