Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'                                   Lock Release
'               --- PROCESS FORM ---
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0    ' always load the page, dont store
%>

<!--#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"-->
<%
' Set rfile parameter. This is a return page after Login
Call objPMod.StoreParameter ( "rfile", "dependencies.asp" )
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_login.asp"-->
<!--#include file="_access_control_general.asp"-->
<!--#include file="_access_control_project.asp"-->
<%
'------------ Variable Definition -------------
Dim parMsgFlag
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parMsgFlag = QStrPar("msgflag")
'----------------------------------------------
%>
<%
Sub LockRelease ( NNrtag_id )
        ' Update package_versions table
        OraSession.BeginTrans
        
        ' Update release_tags table
        OraDatabase.ExecuteSQL _
                " UPDATE release_tags"&_
                " SET official = 'Y', official_stamp = "& ORA_SYSDATE &", releasor_id = "& objAccessControl.UserId &_
                " WHERE rtag_id = "& NNrtag_id
                
        OraSession.CommitTrans
End Sub
%>
<%
'-----------------------  MAIN LINE  ---------------------------

'--- Process submition ---
If (parRtag_id <> "") Then
        
        'COMPLETE THE REQUEST...
        Call LockRelease ( parRtag_id )
        
        Call RaiseMsg ( enum_MSG_RELEASE_IS_NOW_LOCKED, parRtag_id )
Else
        Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
        Response.write QSTR_All 
End If
%>

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