Subversion Repositories DevTools

Rev

Rev 6324 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
Option explicit
4 
Response.Expires = 0   ' always load the page, dont store
5 
%>
6 
<%
7 
'=====================================================
8 
'               Additional Note
9 
'=====================================================
10 
%>
11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/formating.asp"-->
14 
<!--#include file="common/qstr.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/common_dbedit.asp"-->
17 
<!--#include file="common/_popup_window_common.asp"-->
18 
<%
19 
'------------ ACCESS CONTROL ------------------
20 
%>
21 
<!--#include file="_access_control_login.asp"-->
22 
<!--#include file="_access_control_general.asp"-->
23 
<!--#include file="_access_control_project.asp"-->
24 
<%
25 
'------------ Variable Definition -------------
26 
Dim parPv_id
27 
Dim parNote_id
28 
Dim rsQry
29 
'------------ Constants Declaration -----------
30 
'------------ Variable Init -------------------
31 
parNote_id = Request("note_id")
32 
parPv_id = Request("pv_id")
33 
'----------------------------------------------
34 
%>
35 
<%
36 
Sub Get_Additional_Note ( nNote_id, nPv_id, OOrs )
37 
   Dim Query_String
38 
   Query_String = _
39 
   " SELECT an.note_title, an.note_body"&_
40 
   "   FROM ADDITIONAL_NOTES an"&_
41 
   "  WHERE an.note_id = "& nNote_id &_
42 
   "    AND an.PV_ID = "& nPv_id
43 
   Set OOrs = OraDatabase.CreateDynaset( Query_String, cint(0))
44 
End Sub
45 
 
46 
Sub Update_Additional_Note ( nNote_id, nPv_id, sNote_Title, sNote_Body, nUser_Id )
47 
   Dim retErrCode
48 
   OraDatabase.Parameters.Add "NOTE_ID",    nNote_id,    ORAPARM_INPUT,  ORATYPE_NUMBER
49 
   OraDatabase.Parameters.Add "PV_ID",      nPv_id,      ORAPARM_INPUT,  ORATYPE_NUMBER
50 
   OraDatabase.Parameters.Add "NOTE_TITLE", sNote_Title, ORAPARM_INPUT,  ORATYPE_VARCHAR2
51 
   OraDatabase.Parameters.Add "NOTE_BODY",  sNote_Body,  ORAPARM_INPUT,  ORATYPE_VARCHAR2
52 
   OraDatabase.Parameters.Add "USER_ID",    nUser_Id,    ORAPARM_INPUT,  ORATYPE_NUMBER
53 
   OraDatabase.Parameters.Add "ERRCODE",    0,           ORAPARM_OUTPUT, ORATYPE_NUMBER
54 
 
55 
   objEH.TryORA ( OraSession )
56 
   On Error Resume Next
57 
 
58 
   OraDatabase.ExecuteSQL _
59 
   "BEGIN Update_Additional_Note  ( :NOTE_ID,"&_
60 
   "                                :PV_ID,"&_
61 
   "                                :NOTE_TITLE,"&_
62 
   "                                :NOTE_BODY,"&_
63 
   "                                :USER_ID,"&_
64 
   "                                :ERRCODE ); END;"
65 
 
66 
   objEH.CatchORA ( OraSession )
67 
 
68 
   retErrCode = OraDatabase.Parameters("ERRCODE").Value
69 
 
5952 dpurdie 70 
   OraDatabase.Parameters.Remove "NOTE_ID"
71 
   OraDatabase.Parameters.Remove "PV_ID"
72 
   OraDatabase.Parameters.Remove "NOTE_TITLE"
73 
   OraDatabase.Parameters.Remove "NOTE_BODY"
74 
   OraDatabase.Parameters.Remove "USER_ID"
75 
   OraDatabase.Parameters.Remove "ERRCODE"
76 
 
5357 dpurdie 77 
   If retErrCode <> 0 Then
78 
      Call RaiseMsg ( enum_MSG_DUPLICATE_AN, sNote_Title )
79 
   End If
80 
 
81 
End Sub
82 
%>
83 
<%
84 
'Process submition
85 
If CBool(Request("action")) AND objAccessControl.UserLogedIn  Then
86 
   Call Update_Additional_Note ( parNote_id, parPv_id, Request("note_title"), Request("note_body"), objAccessControl.UserId )
6324 dpurdie 87 
   Call OpenInParentWindow ("fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id & "#ADDITIONAL_NOTES")
5357 dpurdie 88 
   Call CloseWindow
89 
 
90 
End If
91 
Call Get_Additional_Note ( parNote_id, parPv_id, rsQry )
92 
%>
93 
<html>
94 
<head>
95 
<title>Release Manager</title>
96 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
97 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
98 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 99 
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
100 
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
101 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 102 
</head>
103 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.additionalnote.note_title.focus();">
5590 dpurdie 104 
<form class="form_tight" name="additionalnote" method="post" action="<%=scriptName%>" onSubmit="MM_validateForm('note_title','Note Title','R','note_body','Note Body','maxLength:4000');return document.MM_returnValue;">
105 
   <table width="100%" border="0" cellspacing="0" cellpadding="2">
5357 dpurdie 106 
      <tr>
5590 dpurdie 107 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
108 
             <table width="100%" border="0" cellspacing="1" cellpadding="2">
109 
                <tr>
110 
                   <td width="1%" nowrap class="form_group" valign="bottom"></td>
111 
                   <td nowrap width="100%">&nbsp; </td>
112 
                </tr>
113 
                <tr>
114 
                   <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Note Title</td>
115 
                   <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
116 
                        <input name="note_title" type="text" class="form_item" id="note_title" value="<%=rsQry("note_title")%>" size="80" maxlength="50">
117 
                   </td>
118 
                </tr>
119 
                <tr>
120 
                   <td width="1%" valign="top" background="images/bg_form_lightbluedark.gif" class="form_field">Note Body</td>
121 
                   <td width="100%" valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><textarea cols="80" rows="20" name="note_body" class="form_item" id="note_body"><%=rsQry("note_body")%></textarea>
122 
                   </td>
123 
             </table>
5357 dpurdie 124 
         </td>
125 
      </tr>
126 
      <tr>
5590 dpurdie 127 
         <td align="right">
128 
            <input type="submit" name="btn" value="Submit" class="form_btn_comp">
129 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="parent.closeIFrame();">
130 
         </td>
5357 dpurdie 131 
      </tr>
132 
   </table>
133 
   <input type="hidden" name="note_id" value="<%=parNote_id%>">
134 
   <input type="hidden" name="pv_id" value="<%=parPv_id%>">
135 
   <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
136 
   <input type="hidden" name="action" value="true">
137 
</form>
138 
</body>
139 
</html>
140 
<!-- DESTRUCTOR ------->
141 
<!--#include file="common/destructor.asp"-->