<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'=====================================================
' Adding A Jira Issue
'=====================================================
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim ParPv_id
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
%>
<%ParPv_id = Request("pv_id")%>
<%
Function Insert_JIRA_Issue( SSissue )
objEH.TryORA ( OraSession )
On Error Resume Next
OraDatabase.ExecuteSQL _
" INSERT INTO JIRA_ISSUES (pv_id, issue_link)"&_
" VALUES ("& ParPv_id &", '"& SSissue &"')"
If Err.Number = 0 Then
OraDatabase.ExecuteSQL _
"BEGIN Log_Action ( "& ParPv_id &", 'jira_issue_added', "& objAccessControl.UserId &", 'Issue Key: "& SSissue &" Added' ); END;"
End If
objEH.CatchORA ( OraSession )
End Function
%>
<%
'Process submition
If Request("btn") = "ADD" AND objAccessControl.UserLogedIn Then
Call Insert_JIRA_Issue ( QStrPar("FRJIRAissue"))
Call OpenInParentWindow ("fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
Call CloseWindow
End If
%>
Release Manager