Subversion Repositories DevTools

Rev

Rev 5506 | Rev 6300 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5506 Rev 5590
Line 15... Line 15...
15
<!--#include file="common/common_subs.asp"-->
15
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="common/common_dbedit.asp"-->
16
<!--#include file="common/common_dbedit.asp"-->
17
<!--#include file="common/_popup_window_common.asp"-->
17
<!--#include file="common/_popup_window_common.asp"-->
18
<%
18
<%
19
' Set rfile parameter. This is a return page after Login
19
' Set rfile parameter. This is a return page after Login
20
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
20
Call objPMod.StoreParameter ( "rfile", "admin_projects.asp" )
21
'------------ ACCESS CONTROL ------------------
21
'------------ ACCESS CONTROL ------------------
22
%>
22
%>
23
<!--#include file="_access_control_login.asp"-->
23
<!--#include file="_access_control_login.asp"-->
24
<!--#include file="_access_control_general.asp"-->
24
<!--#include file="_access_control_general.asp"-->
25
<!--#include file="_access_control_project.asp"-->
25
<!--#include file="_access_control_project.asp"-->
26
<%
26
<%
27
'------------ Variable Definition -------------
27
'------------ Variable Definition -------------
-
 
28
Dim sMessage
28
Dim parProj_id
29
Dim parProj_id
29
Dim baseURL
30
Dim baseURL
30
Dim jiraKey
31
Dim jiraKey
31
'------------ Constants Declaration -----------
32
'------------ Constants Declaration -----------
32
'------------ Variable Init -------------------
33
'------------ Variable Init -------------------
33
parProj_id = Request("proj_id")
34
parProj_id = Request("proj_id")
-
 
35
sMessage = NULL
34
'----------------------------------------------
36
'----------------------------------------------
35
%>
37
%>
36
<%
38
<%
37
'-----------------------------------------------------------------------------------------------------------------------------
39
'-----------------------------------------------------------------------------------------------------------------------------
38
Sub Get_Project_Config ( NNproj_id, out_base_url, out_jira_key )
40
Sub Get_Project_Config ( NNproj_id, out_base_url, out_jira_key )
Line 61... Line 63...
61
 
63
 
62
   OraDatabase.Parameters.Add "PROJ_ID",        nProj_id,          ORAPARM_INPUT,    ORATYPE_NUMBER
64
   OraDatabase.Parameters.Add "PROJ_ID",        nProj_id,          ORAPARM_INPUT,    ORATYPE_NUMBER
63
   OraDatabase.Parameters.Add "BASE_URL",       sTempURL,          ORAPARM_INPUT,    ORATYPE_VARCHAR2
65
   OraDatabase.Parameters.Add "BASE_URL",       sTempURL,          ORAPARM_INPUT,    ORATYPE_VARCHAR2
64
   OraDatabase.Parameters.Add "JIRA_KEY",       sJiraKey,          ORAPARM_INPUT,    ORATYPE_VARCHAR2
66
   OraDatabase.Parameters.Add "JIRA_KEY",       sJiraKey,          ORAPARM_INPUT,    ORATYPE_VARCHAR2
65
 
67
 
-
 
68
   objEH.ErrorRedirect = FALSE
66
   objEH.TryORA ( OraSession )
69
   objEH.TryORA ( OraSession )
67
   On Error Resume Next
70
   On Error Resume Next
68
 
71
 
69
   OraDatabase.ExecuteSQL _
72
   OraDatabase.ExecuteSQL _
70
   "BEGIN PK_PROJECT.Update_Project_Config ( :PROJ_ID, :BASE_URL, :JIRA_KEY );  END;"
73
   "BEGIN PK_PROJECT.Update_Project_Config ( :PROJ_ID, :BASE_URL, :JIRA_KEY );  END;"
71
 
74
 
72
   objEH.CatchORA ( OraSession )
75
   objEH.CatchORA ( OraSession )
-
 
76
   If objEH.Finally Then
-
 
77
      Call OpenInParentWindow ("admin_projects.asp" )
-
 
78
      Call CloseWindow
-
 
79
   End If
73
 
80
 
74
   OraDatabase.Parameters.Remove "PROJ_ID"
81
   OraDatabase.Parameters.Remove "PROJ_ID"
75
   OraDatabase.Parameters.Remove "BASE_URL"
82
   OraDatabase.Parameters.Remove "BASE_URL"
76
   OraDatabase.Parameters.Remove "JIRA_KEY"
83
   OraDatabase.Parameters.Remove "JIRA_KEY"
77
 
84
 
Line 108... Line 115...
108
'------------ Action Requirements -------------------
115
'------------ Action Requirements -------------------
109
'Process submition
116
'Process submition
110
If CBool(Request("action")) AND objAccessControl.UserLogedIn Then
117
If CBool(Request("action")) AND objAccessControl.UserLogedIn Then
111
   If ValidateURL (Request("base_url")) and ValidateJiraKey (Request("jira_key")) Then
118
   If ValidateURL (Request("base_url")) and ValidateJiraKey (Request("jira_key")) Then
112
      Call Update_Project_Config ( parProj_id, Request("base_url"), Request("jira_key") )
119
      Call Update_Project_Config ( parProj_id, Request("base_url"), Request("jira_key") )
113
      Call OpenInParentWindow ("admin_projects.asp" )
-
 
114
      Call CloseWindow
-
 
115
   End If
120
   End If
116
End If
121
End If
117
 
122
 
118
Call Get_Project_Config ( parProj_id, baseURL, jiraKey )
123
Call Get_Project_Config ( parProj_id, baseURL, jiraKey )
119
 
124
 
Line 133... Line 138...
133
   </head>
138
   </head>
134
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
139
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
135
      <!-- TIPS LAYERS -------------------------------------->
140
      <!-- TIPS LAYERS -------------------------------------->
136
      <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
141
      <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
137
      <!----------------------------------------------------->
142
      <!----------------------------------------------------->
138
      <form action="_wform_edit_projects.asp" method="post" name="baseurl" onsubmit="MM_validateForm('base_url','Base URL','isURL','jira_key','JIRA Key','isAlphaNum');return document.MM_returnValue;">
143
      <form class="form_tight" action="<%=scriptName%>" method="post" name="baseurl" onsubmit="MM_validateForm('base_url','Base URL','isURL','jira_key','JIRA Key','isAlphaNum');return document.MM_returnValue;">
139
         <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
144
         <table width="100%" border="0" cellspacing="0" cellpadding="2">
140
         <tr>
145
         <tr>
141
            <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>
-
 
142
            <td width="50%" background="images/lbox_bg_blue.gif" nowrap class="wform_ttl">&nbsp;Project Configuration for
-
 
143
               <%=Get_Proj_Name(parProj_id)%>
-
 
144
            </td>
-
 
145
            <td width="50%" background="images/lbox_bg_blue.gif" align="right" nowrap class="wform_ttl">
-
 
146
               <input type="submit" name="btn" value="Save" class="form_btn"> <input type="reset" name="btn" value="Close" class="form_btn" onclick="self.close()">
-
 
147
            </td>
-
 
148
            <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap><img src="images/h_trsp_dot.gif" width="5" height="22"></td>
-
 
149
         </tr>
-
 
150
         <tr>
-
 
151
            <td height="100%" width="1%">&nbsp;</td>
-
 
152
            <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
146
            <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
-
 
147
               <!-- LOCAL ERROR +++++++++++++++++++++++++++++++++++++++++++++++ -->
153
               <br>
148
               <%Call Messenger ( sMessage , 3, "100%" )%>
-
 
149
               <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
154
               <br>
150
               <!--#include file="messages/_msg_inline.asp"-->
155
               <table width="100%" border="0" cellspacing="0" cellpadding="0">
151
               <table width="100%" border="0" cellspacing="0" cellpadding="0">
156
               <tr>
152
               <tr>
157
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
153
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
158
                  <td width="100%">
154
                  <td width="100%">
159
                     <table width="100%" border="0" cellspacing="1" cellpadding="4">
155
                     <table width="100%" border="0" cellspacing="1" cellpadding="4">
160
                     <tr>
156
                     <tr>
161
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Code
157
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Project Name</td>
-
 
158
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" colspan="3" width="100%">
-
 
159
                           <%=Get_Proj_Name(parProj_id)%>
162
                           Review Base URL</td>
160
                        </td>
-
 
161
                     </tr>
-
 
162
                     <tr>
-
 
163
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Code Review Base URL</td>
163
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" colspan="3" width="100%">
164
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" colspan="3" width="100%">
164
                           <input name="base_url" type="text" size="78" maxlength="200" class="form_item" value='<%=baseURL%>'></td>
165
                           <input name="base_url" type="text" size="78" maxlength="200" class="form_item" value='<%=baseURL%>'>
-
 
166
                        </td>
165
                     </tr>
167
                     </tr>
166
                     <tr>
168
                     <tr>
167
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">JIRA Key</td>
169
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">JIRA Key</td>
168
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" colspan="3" width="100%">
170
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" colspan="3" width="100%">
169
                           <input name="jira_key" type="text" size="78" maxlength="200" class="form_item" value='<%=jiraKey%>'></td>
171
                           <input name="jira_key" type="text" size="10" maxlength="20" class="form_item" value='<%=jiraKey%>'>
-
 
172
                        </td>
170
                     </tr>
173
                     </tr>
171
                     </table>
174
                     </table>
172
                  </td>
175
                  </td>
173
               </tr>
176
               </tr>
174
               </table>
177
               </table>
175
               <input type="hidden" name="action" value="true">
178
               <input type="hidden" name="action" value="true">
176
               <input type="hidden" name="proj_id" value="<%=parProj_id%>">
179
               <input type="hidden" name="proj_id" value="<%=parProj_id%>">
177
               <br>
-
 
178
               <br>
-
 
179
            </td>
180
            </td>
180
         </tr>
181
         </tr>
181
         <tr>
182
         <tr>
-
 
183
            <td><%=ProgressBar()%></td>
-
 
184
            <td align="right" nowrap class="wform_ttl">
182
            <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
185
               <input type="submit" name="btn" value="Save" class="form_btn">
183
            <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
186
               <input type="reset" name="btn" value="Close" class="form_btn" onclick="parent.closeIFrame();">
-
 
187
            </td>
184
         </tr>
188
         </tr>
185
         </table>
189
         </table>
186
      </form>
190
      </form>
187
   </body>
191
   </body>
188
</html>
192
</html>