WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/_wform_edit_projects.asp



<!--#include file="_access_control_project.asp"-->
<%
'------------ Variable Definition -------------
Dim sMessage
Dim parProj_id
Dim projName
Dim baseURL
Dim jiraKey
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parProj_id = Request("proj_id")
sMessage = NULL
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------------------
Sub Get_Project_Config ( NNproj_id, out_base_url, out_jira_key, out_proj_name )
   Dim rsTemp, Query_String
 
   Query_String = _
   " SELECT base_url, jira_key, proj_name "&_
   "   FROM projects pr "&_
  "  WHERE pr.proj_id = "& NNproj_id
 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 
   out_base_url = rsTemp("base_url")
   out_jira_key = rsTemp("jira_key")
   out_proj_name = rsTemp("proj_name")
 
   rsTemp.Close()
   Set rsTemp = nothing
End Sub
'-----------------------------------------------------------------------------------------------------------------------------------
Sub Update_Project_Config ( nProj_id, sBaseURL, sJiraKey, sProjName)
 
   Dim sTempURL
   sTempURL = sBaseURL
 
   If (sTempURL <> "") and (Right(sTempURL, 1) <> "/") Then sTempURL = sTempURL & "/"
 
   OraDatabase.Parameters.Add "PROJ_ID",        nProj_id,          ORAPARM_INPUT,    ORATYPE_NUMBER
   OraDatabase.Parameters.Add "BASE_URL",       sTempURL,          ORAPARM_INPUT,    ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "JIRA_KEY",       sJiraKey,          ORAPARM_INPUT,    ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "PROJ_NAME",      sProjName,          ORAPARM_INPUT,    ORATYPE_VARCHAR2
 
   objEH.ErrorRedirect = FALSE
   objEH.TryORA ( OraSession )
   On Error Resume Next
 
   OraDatabase.ExecuteSQL _
        "UPDATE projects" &_
        " SET base_url = :BASE_URL," &_
        " jira_key = :JIRA_KEY," &_
        " proj_name = :PROJ_NAME" &_
        " WHERE proj_id = :PROJ_ID"
 
   objEH.CatchORA ( OraSession )
   If objEH.Finally Then
      Call OpenInParentWindow ("admin_projects.asp" )
      Call CloseWindow
   End If
 
   OraDatabase.Parameters.Remove "PROJ_ID"
   OraDatabase.Parameters.Remove "BASE_URL"
   OraDatabase.Parameters.Remove "JIRA_KEY"
   OraDatabase.Parameters.Remove "PROJ_NAME"
 
End Sub
'-----------------------------------------------------------------------------------------------------------------------------------
%>
<%

<%
'------------ Action Requirements -------------------
'Process submition
If CBool(Request("action")) AND objAccessControl.UserLogedIn Then
   If ValidateURL (Request("base_url")) and ValidateJiraKey (Request("jira_key")) Then
      Call Update_Project_Config ( parProj_id, Request("base_url"), Request("jira_key"), Request("project_name") )
   End If
End If
 
Call Get_Project_Config ( parProj_id, baseURL, jiraKey, projName )
 
%>
<html>
   <head>
      <title>Release Manager</title>

                  <td width="100%">
                     <table width="100%" border="0" cellspacing="1" cellpadding="4">
                     <tr>
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Project Name</td>
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" colspan="3" width="100%">
                           <input name="project_name" type="text" size="30" maxlength="30" class="form_item" value='<%=projName%>'>
                        </td>
                     </tr>
                     <tr>
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Code Review Base URL</td>
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" colspan="3" width="100%">

Rev 5590	Rev 6300
Line 25...	Line 25...
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 sMessage`
29	`Dim parProj_id`	29	`Dim parProj_id`
-		30	`Dim projName`
30	`Dim baseURL`	31	`Dim baseURL`
31	`Dim jiraKey`	32	`Dim jiraKey`
32	`'------------ Constants Declaration -----------`	33	`'------------ Constants Declaration -----------`
33	`'------------ Variable Init -------------------`	34	`'------------ Variable Init -------------------`
34	`parProj_id = Request("proj_id")`	35	`parProj_id = Request("proj_id")`
35	`sMessage = NULL`	36	`sMessage = NULL`
36	`'----------------------------------------------`	37	`'----------------------------------------------`
37	`%>`	38	`%>`
38	`<%`	39	`<%`
39	`'-----------------------------------------------------------------------------------------------------------------------------`	40	`'-----------------------------------------------------------------------------------------------------------------------------`
40	`Sub Get_Project_Config ( NNproj_id, out_base_url, out_jira_key )`	41	`Sub Get_Project_Config ( NNproj_id, out_base_url, out_jira_key, out_proj_name )`
41	`Dim rsTemp, Query_String`	42	`Dim rsTemp, Query_String`
42		43
43	`Query_String = _`	44	`Query_String = _`
44	`" SELECT base_url, jira_key "&_`	45	`" SELECT base_url, jira_key, proj_name "&_`
45	`" FROM projects pr "&_`	46	`" FROM projects pr "&_`
46	`" WHERE pr.proj_id = "& NNproj_id`	47	`" WHERE pr.proj_id = "& NNproj_id`
47		48
48	`Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))`	49	`Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))`
49		50
50	`out_base_url = rsTemp("base_url")`	51	`out_base_url = rsTemp("base_url")`
51	`out_jira_key = rsTemp("jira_key")`	52	`out_jira_key = rsTemp("jira_key")`
-		53	`out_proj_name = rsTemp("proj_name")`
52		54
53	`rsTemp.Close()`	55	`rsTemp.Close()`
54	`Set rsTemp = nothing`	56	`Set rsTemp = nothing`
55	`End Sub`	57	`End Sub`
56	`'-----------------------------------------------------------------------------------------------------------------------------------`	58	`'-----------------------------------------------------------------------------------------------------------------------------------`
57	`Sub Update_Project_Config ( nProj_id, sBaseURL, sJiraKey)`	59	`Sub Update_Project_Config ( nProj_id, sBaseURL, sJiraKey, sProjName)`
58		60
59	`Dim sTempURL`	61	`Dim sTempURL`
60	`sTempURL = sBaseURL`	62	`sTempURL = sBaseURL`
61		63
62	`If (sTempURL <> "") and (Right(sTempURL, 1) <> "/") Then sTempURL = sTempURL & "/"`	64	`If (sTempURL <> "") and (Right(sTempURL, 1) <> "/") Then sTempURL = sTempURL & "/"`
63		65
64	`OraDatabase.Parameters.Add "PROJ_ID", nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER`	66	`OraDatabase.Parameters.Add "PROJ_ID", nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER`
65	`OraDatabase.Parameters.Add "BASE_URL", sTempURL, ORAPARM_INPUT, ORATYPE_VARCHAR2`	67	`OraDatabase.Parameters.Add "BASE_URL", sTempURL, ORAPARM_INPUT, ORATYPE_VARCHAR2`
66	`OraDatabase.Parameters.Add "JIRA_KEY", sJiraKey, ORAPARM_INPUT, ORATYPE_VARCHAR2`	68	`OraDatabase.Parameters.Add "JIRA_KEY", sJiraKey, ORAPARM_INPUT, ORATYPE_VARCHAR2`
-		69	`OraDatabase.Parameters.Add "PROJ_NAME", sProjName, ORAPARM_INPUT, ORATYPE_VARCHAR2`
67		70
68	`objEH.ErrorRedirect = FALSE`	71	`objEH.ErrorRedirect = FALSE`
69	`objEH.TryORA ( OraSession )`	72	`objEH.TryORA ( OraSession )`
70	`On Error Resume Next`	73	`On Error Resume Next`
71		74
72	`OraDatabase.ExecuteSQL _`	75	`OraDatabase.ExecuteSQL _`
-		76	`"UPDATE projects" &_`
73	`"BEGIN PK_PROJECT.Update_Project_Config ( :PROJ_ID, :BASE_URL, :JIRA_KEY ); END;"`	77	`" SET base_url = :BASE_URL," &_`
-		78	`" jira_key = :JIRA_KEY," &_`
-		79	`" proj_name = :PROJ_NAME" &_`
-		80	`" WHERE proj_id = :PROJ_ID"`
74		81
75	`objEH.CatchORA ( OraSession )`	82	`objEH.CatchORA ( OraSession )`
76	`If objEH.Finally Then`	83	`If objEH.Finally Then`
77	`Call OpenInParentWindow ("admin_projects.asp" )`	84	`Call OpenInParentWindow ("admin_projects.asp" )`
78	`Call CloseWindow`	85	`Call CloseWindow`
79	`End If`	86	`End If`
80		87
81	`OraDatabase.Parameters.Remove "PROJ_ID"`	88	`OraDatabase.Parameters.Remove "PROJ_ID"`
82	`OraDatabase.Parameters.Remove "BASE_URL"`	89	`OraDatabase.Parameters.Remove "BASE_URL"`
83	`OraDatabase.Parameters.Remove "JIRA_KEY"`	90	`OraDatabase.Parameters.Remove "JIRA_KEY"`
-		91	`OraDatabase.Parameters.Remove "PROJ_NAME"`
84		92
85	`End Sub`	93	`End Sub`
86	`'-----------------------------------------------------------------------------------------------------------------------------------`	94	`'-----------------------------------------------------------------------------------------------------------------------------------`
87	`%>`	95	`%>`
88	`<%`	96	`<%`
Line 114...	Line 122...
114	`<%`	122	`<%`
115	`'------------ Action Requirements -------------------`	123	`'------------ Action Requirements -------------------`
116	`'Process submition`	124	`'Process submition`
117	`If CBool(Request("action")) AND objAccessControl.UserLogedIn Then`	125	`If CBool(Request("action")) AND objAccessControl.UserLogedIn Then`
118	`If ValidateURL (Request("base_url")) and ValidateJiraKey (Request("jira_key")) Then`	126	`If ValidateURL (Request("base_url")) and ValidateJiraKey (Request("jira_key")) Then`
119	`Call Update_Project_Config ( parProj_id, Request("base_url"), Request("jira_key") )`	127	`Call Update_Project_Config ( parProj_id, Request("base_url"), Request("jira_key"), Request("project_name") )`
120	`End If`	128	`End If`
121	`End If`	129	`End If`
122		130
123	`Call Get_Project_Config ( parProj_id, baseURL, jiraKey )`	131	`Call Get_Project_Config ( parProj_id, baseURL, jiraKey, projName )`
124		132
125	`%>`	133	`%>`
126	`<html>`	134	`<html>`
127	`<head>`	135	`<head>`
128	`<title>Release Manager</title>`	136	`<title>Release Manager</title>`
Line 154...	Line 162...
154	`<td width="100%">`	162	`<td width="100%">`
155	`<table width="100%" border="0" cellspacing="1" cellpadding="4">`	163	`<table width="100%" border="0" cellspacing="1" cellpadding="4">`
156	`<tr>`	164	`<tr>`
157	`<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Project Name</td>`	165	`<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%">`	166	`<td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" colspan="3" width="100%">`
159	`<%=Get_Proj_Name(parProj_id)%>`	167	`<input name="project_name" type="text" size="30" maxlength="30" class="form_item" value='<%=projName%>'>`
160	`</td>`	168	`</td>`
161	`</tr>`	169	`</tr>`
162	`<tr>`	170	`<tr>`
163	`<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Code Review Base URL</td>`	171	`<td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Code Review Base URL</td>`
164	`<td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" colspan="3" width="100%">`	172	`<td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" colspan="3" width="100%">`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/_wform_edit_projects.asp – Rev 5590 → 6300