Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
' 			 	    Lock Release
 4 
'                  Lock Release
5 
'               --- PROCESS FORM ---
 5 
'               --- PROCESS FORM ---
6 
'=====================================================
 6 
'=====================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
Option explicit
 9 
Option explicit
10 
' Good idea to set when using redirect
 10 
' Good idea to set when using redirect
11 
Response.Expires = 0	' always load the page, dont store
 11 
Response.Expires = 0   ' always load the page, dont store
12 
%>
 12 
%>
13 
 
 13 
 
14 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
Line 33... Line 33...
33 
parMsgFlag = QStrPar("msgflag")
 33 
parMsgFlag = QStrPar("msgflag")
34 
'----------------------------------------------
 34 
'----------------------------------------------
35 
%>
 35 
%>
36 
<%
 36 
<%
37 
Sub LockRelease ( NNrtag_id )
 37 
Sub LockRelease ( NNrtag_id )
38 
	' Update package_versions table
 38 
   ' Update package_versions table
- 
 
 39 
   objEH.TryORA ( OraSession )
39 
	OraSession.BeginTrans
 40 
   On Error Resume Next
40
41 
 
41 
	' Update release_tags table
 42 
   ' Update release_tags table
42 
	OraDatabase.ExecuteSQL _
 43 
   OraDatabase.ExecuteSQL _
43 
		" UPDATE release_tags"&_
 44 
      " UPDATE release_tags"&_
44 
		" SET official = 'Y', official_stamp = "& ORA_SYSDATE &", releasor_id = "& objAccessControl.UserId &_
 45 
      " SET official = 'Y', official_stamp = "& ORA_SYSDATE &", releasor_id = "& objAccessControl.UserId &_
45 
		" WHERE rtag_id = "& NNrtag_id
 46 
      " WHERE rtag_id = "& NNrtag_id
46
47 
 
47 
  	OraSession.CommitTrans
 48 
  objEH.CatchORA ( OraSession )
48 
End Sub
 49 
End Sub
49 
%>
 50 
%>
50 
<%
 51 
<%
51 
'-----------------------  MAIN LINE  ---------------------------
 52 
'-----------------------  MAIN LINE  ---------------------------
52 
 
 53 
 
53 
'--- Process submition ---
 54 
'--- Process submition ---
54 
If (parRtag_id <> "") Then
 55 
If (parRtag_id <> "") Then
55
56 
 
56 
	'COMPLETE THE REQUEST...
 57 
   'COMPLETE THE REQUEST...
57 
	Call LockRelease ( parRtag_id )
 58 
   Call LockRelease ( parRtag_id )
58
59 
 
59 
	Call RaiseMsg ( enum_MSG_RELEASE_IS_NOW_LOCKED, parRtag_id )
 60 
   Call RaiseMsg ( enum_MSG_RELEASE_IS_NOW_LOCKED, parRtag_id )
60 
Else
 61 
Else
61 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 62 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
62 
	Response.write QSTR_All
63 
   Response.write QSTR_All
63 
End If
 64 
End If
64 
%>
 65 
%>
65 
 
 66 
 
66 
<!-- DESTRUCTOR ------->
 67 
<!-- DESTRUCTOR ------->
67 
<!--#include file="common/destructor.asp"-->
 - 
 
68 

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

          

          

            -
            
 

            69