Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0    ' always load the page, dont store
%>
<%
'=====================================================
'                               Make Single Package Official
'=====================================================
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/common_dbedit.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_login.asp"-->
<!--#include file="_access_control_general.asp"-->
<!--#include file="_access_control_project.asp"-->
<%
'------------ Variable Definition -------------
Dim parPv_id
Dim parRfile
Dim rsPkgInfo
Dim retERRmsg
Dim retALRTmsg
Dim retParameters
Dim parSReq             ' Skip requirements test
Dim pkgType
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parPv_id = QStrPar("pv_id")
parRfile = QStrPar("rfile")
parSReq = QStrPar("sreq")
'----------------------------------------------
%>
<%
Sub MakeRelease ( NNpv_id, NNrtag_id )
        On Error Resume Next
        objEH.ErrorRedirect = TRUE
        
        
        OraDatabase.Parameters.Add "PV_ID",                     NNpv_id,        ORAPARM_INPUT, ORATYPE_NUMBER 
        OraDatabase.Parameters.Add "RTAG_ID",                   NNrtag_id,      ORAPARM_INPUT, ORATYPE_NUMBER 
        OraDatabase.Parameters.Add "USER_ID",                   objAccessControl.UserId,        ORAPARM_INPUT, ORATYPE_NUMBER
        
        objEH.TryORA ( OraSession )
        
        
        OraSession.BeginTrans
        
        'OraDatabase.ExecuteSQL " UPDATE package_versions "&_
        '                                          " SET dlocked = 'Y', "&_
        '                                          "     released_at = :RTAG_ID, "&_
        '                                          "     modified_stamp = "& ORA_SYSDATETIME  &", "&_
        '                                          "     modifier_id = :USER_ID"&_
        '                                          " WHERE pv_id = :PV_ID"
        
        OraDatabase.ExecuteSQL _
        "BEGIN "&_
        " PK_ENVIRONMENT.MAKE_RELEASE ( :PV_ID, :RTAG_ID, :USER_ID );"&_
        "END; "
        
        OraSession.CommitTrans
        
        objEH.CatchORA ( OraSession )
        
        OraDatabase.Parameters.Remove "PV_ID"
        OraDatabase.Parameters.Remove "RTAG_ID"
        OraDatabase.Parameters.Remove "USER_ID"
        
        
        '/* Log Action */
        'Call Log_Action ( NNpv_id, "makeofficial", NULL )
        
End Sub
'------------------------------------------------------------------------------------

'-------------------------------------------------------------------------------------
%>
<%
'---------------------------------- MAIN LINE ----------------------------------------
'If parSReq = "Y" Then 
'       ' SKIP REQUIREMENTS
'       Call Release_Single_Package ( parPv_id, parRtag_id )
'       Call Notify ( parRtag_id )
'       Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
'End If


'pkgType = Get_Pkg_Base_View_ID ( parPv_id, parRtag_id )


' REQUREMENTS CHECK for ALL
Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
'Response.write "HERE"
If IsNull(retERRmsg) Then
        ' All Requirements OK
        Call MakeRelease ( parPv_id, parRtag_id )
        
        If objEH.Finally Then
                'Call Notify ( parRtag_id )
                'Call NotifyInterest(parPv_id, parRtag_id)
                Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
                
        End If
        
Else
        'If ( pkgType = enumBASE_VIEW_PRODUCTS ) Then
        '       ' Products
        '       If retALRTmsg = "WARNING" Then
        '               ' Allow overide
        '               Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "Y")
        '               
        '       Else
        '               ' Disallow overide
        '               Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N")
        '               
        '       End If
        '       
        'Else
                ' Other Packages
                Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" )
                
        'End If
        
End If

%>


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