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
   objEH.TryORA ( OraSession )
   On Error Resume Next

   ' 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

  objEH.CatchORA ( OraSession )
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 mandatory parameters are missing!" & "<br>" 'TODO
   Response.write QSTR_All
End If
%>

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