Subversion Repositories DevTools

Rev

Rev 6371 | 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 
'               Add Code Review URL
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 
' Set rfile parameter. This is a return page after Login
20 
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
21 
'------------ ACCESS CONTROL ------------------
22 
%>
23 
<!--#include file="_access_control_login.asp"-->
24 
<!--#include file="_access_control_general.asp"-->
25 
<!--#include file="_access_control_project.asp"-->
26 
<%
27 
'------------ Variable Definition -------------
28 
Dim parPv_id
29 
Dim parCr_id
30 
Dim rsQry
31 
Dim pkgName
32 
Dim pkgVersion
33 
Dim baseURL
34 
Dim codeReviewURL
35 
'------------ Constants Declaration -----------
36 
'------------ Variable Init -------------------
37 
parPv_id = Request("pv_id")
38 
parRtag_id = Request("rtag_id")
39 
'----------------------------------------------
40 
%>
41 
<%
42 
'-----------------------------------------------------------------------------------------------------------------------------------
43 
Sub AddCodeReviewURL ( nPv_id, nProj_id, sURL, sReason, dDateOfReview )
44 
 
45 
   OraDatabase.Parameters.Add "PV_ID",           nPv_id,         ORAPARM_INPUT,  ORATYPE_NUMBER
46 
   OraDatabase.Parameters.Add "PROJ_ID",         nProj_id,       ORAPARM_INPUT,  ORATYPE_NUMBER
47 
   OraDatabase.Parameters.Add "URL",             sURL,           ORAPARM_INPUT,  ORATYPE_VARCHAR2
48 
   OraDatabase.Parameters.Add "REASON",          sReason,        ORAPARM_INPUT,  ORATYPE_VARCHAR2
49 
   OraDatabase.Parameters.Add "DATE_OF_REVIEW",  dDateOfReview,  ORAPARM_INPUT,  ORATYPE_VARCHAR2
50 
 
51 
   objEH.TryORA ( OraSession )
52 
   On Error Resume Next
53 
 
54 
   OraDatabase.ExecuteSQL _
55 
   "BEGIN PK_PACKAGE.ADD_CODE_REVIEW_URL ( :PV_ID, :PROJ_ID, :URL, :REASON, :DATE_OF_REVIEW );  END;"
56 
 
57 
   objEH.CatchORA ( OraSession )
58 
 
59 
   OraDatabase.Parameters.Remove "PV_ID"
60 
   OraDatabase.Parameters.Remove "PROJ_ID"
61 
   OraDatabase.Parameters.Remove "URL"
62 
   OraDatabase.Parameters.Remove "REASON"
63 
   OraDatabase.Parameters.Remove "DATE_OF_REVIEW"
64 
 
65 
End Sub
66 
'-----------------------------------------------------------------------------------------------------------------------------------
67 
%>
68 
<%
69 
'------------ Action Requirements -------------------
70 
'Process submition
71 
baseURL = Get_Base_URL(Get_Proj_ID(parRtag_id))
72 
If CBool(Request("action")) AND objAccessControl.UserLogedIn Then
73 
  If ValidateCodeReviewURL (Request("code_review_url")) Then
74 
    Call AddCodeReviewURL ( parPv_id, Get_Proj_ID(parRtag_id), codeReviewURL, Request("reason"), Request("date_of_review") )
75 
     Call OpenInParentWindow ("fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
76 
     Call CloseWindow
77 
   End If
78 
 
79 
End If
80 
Call Get_Pkg_Short_Info(  parPv_id, NULL, pkgName, pkgVersion, NULL, NULL, NULL )
81 
%>
82 
<html>
83 
  <head>
84 
    <title>Release Manager</title>
85 
    <link rel="shortcut icon" href="<%=FavIcon%>"/>
86 
    <meta http-equiv="Pragma" content="no-cache">
87 
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 88 
    <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
89 
      <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
90 
        <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 91 
        <!--  TIPS  -->
6579 dpurdie 92 
        <script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script>
93 
        <script language="JavaScript" src="images/_help_tips.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 94 
  </head>
95 
  <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
96 
    <form action="_wform_add_code_review_url.asp" method="post" name="codereview" onsubmit="MM_validateForm('date_of_review','Date of Review','RisDate','code_review_url','Code Review URL','RmaxLength:4000','reason','Reason for Review','maxLength:4000');return document.MM_returnValue;">
97 
      <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
98 
        <tr>
99 
          <td width="1%" background="images/lbox_bg_orange.gif"><img src="images/s_code_review_off.gif" width="21" height="23" hspace="5" border="0"></td>
100 
          <td width="50%" background="images/lbox_bg_blue.gif" nowrap class="wform_ttl">&nbsp;Code Review URL for
101 
            <%=pkgName%>
102 
            &nbsp;<%=pkgVersion%>
103 
          </td>
104 
          <td width="50%" background="images/lbox_bg_blue.gif" align="right" nowrap class="wform_ttl">
105 
            <input type="submit" name="btn" value="Save" class="form_btn"> <input type="reset" name="btn" value="Close" class="form_btn" onclick="self.close()">
106 
          </td>
107 
          <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap><img src="images/h_trsp_dot.gif" width="5" height="22"></td>
108 
        </tr>
109 
        <tr>
110 
          <td height="100%" width="1%">&nbsp;</td>
111 
          <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
112 
            <br>
113 
            <br>
114 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
115 
              <tr>
116 
                <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
117 
                <td width="100%">
118 
                  <table width="100%" border="0" cellspacing="1" cellpadding="4">
119 
                    <tr>
120 
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Date of Review</td>
121 
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_item"  width="100%">
122 
                        <input name="date_of_review" type="text" size="20" maxlength="20" class="form_item" value='<%=EuroDate( Date )%>'>&nbsp;&nbsp;&nbsp;</td>
123 
                    </tr>
124 
                    <tr>
125 
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Code Review URL</td>
126 
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" width="100%">
127 
                        <input name="code_review_url" type="text" size="120" maxlength="200" class="form_item" value='<%=baseURL%>'>
128 
                      </td>
129 
                    </tr>
130 
                    <tr>
131 
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Reason for Review</td>
132 
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" width="100%">
133 
                        <input name="reason" type="text" size="120" maxlength="200" class="form_item">
134 
                      </td>
135 
                    </tr>
136 
                  </table>
137 
                </td>
138 
              </tr>
139 
            </table>
140 
            <input type="hidden" name="action" value="true">
141 
            <input type="hidden" name="pv_id" value="<%=parPv_id%>">
142 
            <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
143 
            <br>
144 
           <br>
145 
          </td>
146 
        </tr>
147 
        <tr>
148 
          <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
149 
          <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
150 
        </tr>
151 
      </table>
152 
    </form>
153 
  </body>
154 
</html>
155 
<!-- DESTRUCTOR ------->
156 
<!--#include file="common/destructor.asp"-->