Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5590
Line 20... Line 20...
20 
<!--#include file="_access_control_login.asp"-->
 20 
<!--#include file="_access_control_login.asp"-->
21 
<!--#include file="_access_control_general.asp"-->
 21 
<!--#include file="_access_control_general.asp"-->
22 
<%
 22 
<%
23 
'------------ Variable Definition -------------
 23 
'------------ Variable Definition -------------
24 
Dim parProj
 24 
Dim parProj
- 
 
 25 
Dim sMessage
25 
'------------ Constants Declaration -----------
 26 
'------------ Constants Declaration -----------
26 
'------------ Variable Init -------------------
 27 
'------------ Variable Init -------------------
27 
parProj = QStrPar("FRproj")
 28 
parProj = QStrPar("FRproj")
- 
 
 29 
sMessage = NULL
28 
'----------------------------------------------
 30 
'----------------------------------------------
29 
%>
 31 
%>
30 
<%
 32 
<%
- 
 
 33 
Function Create_New_Project( SSprojectname )
- 
 
 34 
   Dim SEQ_proj_id
- 
 
 35 
   SEQ_proj_id = Get_From_DUAL("SEQ_PROJ_ID.nextval")
- 
 
 36 
   objEH.ErrorRedirect = FALSE
- 
 
 37 
   objEH.TryORA ( OraSession )
- 
 
 38 
   On Error Resume Next
- 
 
 39 
   OraDatabase.ExecuteSQL _
- 
 
 40 
      " INSERT INTO projects (proj_id, proj_name)"&_
- 
 
 41 
      " VALUES ("& SEQ_proj_id &", '"& UCase(SSprojectname) &"')"
- 
 
 42 
   objEH.CatchORA ( OraSession )
- 
 
 43 
   If objEH.Finally Then
- 
 
 44 
        Call OpenInParentWindow ("rtree.asp?proj_id="&SEQ_proj_id)
- 
 
 45 
        Call CloseWindow()
- 
 
 46 
   End If
- 
 
 47 
End Function
- 
 
 48 
 
- 
 
 49 
Function Project_Name_Exists ( SSprojectname )
- 
 
 50 
   Dim rsTemp, Query_String
- 
 
 51 
   Query_String = _
- 
 
 52 
   " SELECT proj_name"&_
- 
 
 53 
   "  FROM projects"&_
- 
 
 54 
   " WHERE proj_name = '"& UCase(SSprojectname) &"'"
- 
 
 55 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
- 
 
 56 
   If rsTemp.RecordCount > 0 Then
- 
 
 57 
      Project_Name_Exists = TRUE
- 
 
 58 
   Else
- 
 
 59 
      Project_Name_Exists = FALSE
- 
 
 60 
   End If
- 
 
 61 
   rsTemp.Close
- 
 
 62 
   Set rsTemp = nothing
- 
 
 63 
End Function
- 
 
 64 
%>
- 
 
 65 
<%
31 
'Process submition
 66 
'Process submition
- 
 
 67 
If CBool(QStrPar("action")) Then
32 
If CBool(QStrPar("action")) AND (parProj <> "")  AND objAccessControl.UserLogedIn Then
 68 
    If NOT objAccessControl.UserLogedIn Then
- 
 
 69 
        sMessage = "User is no longer logged in"
33 
	%>
 70 
    ElseIf NOT parProj <> "" Then
- 
 
 71 
        sMessage = "No Project name specified"
- 
 
 72 
    ElseIf LEN(parProj) < 4 Then
34 
	<script language="JavaScript" type="text/javascript">
 73 
        sMessage = "Project Name is too short."
35 
	opener.location='_add_new_project.asp?FRproj=<%=parProj%>';
 74 
    ElseIf Project_Name_Exists( parProj ) Then
36 
	</script>
75 
        sMessage = "Project Name already exists"
37 
	<%
 76 
    Else
38 
	Call CloseWindow
 77 
        Call Create_New_Project ( parProj )
39
78 
    End If
40 
End If
 79 
End If
41 
%>
 80 
%>
42 
<html>
 81 
<html>
43 
<head>
 82 
<head>
44 
<title>Release Manager</title>
 - 
 
45 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
 - 
 
46 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 83 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
47 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 84 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
48 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 85 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
49 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 86 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
50 
<script language="JavaScript" src="images/common.js"></script>
 87 
<script language="JavaScript" src="images/common.js"></script>
51 
</head>
 88 
</head>
52 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.newproj.FRproj.focus();">
 89 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.newproj.FRproj.focus();">
53 
<form name="newproj" method="post" action="<%=scriptName%>" onSubmit="MM_validateForm('FRproj','Project Name','R');return document.MM_returnValue">
 90 
    <form class="form_tight" name="newproj" method="post" action="<%=scriptName%>" onSubmit="ShowProgress();">
54 
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
 91 
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
55 
    <tr>
92 
        <tr>
56 
      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_project.gif" width="20" height="20" hspace="5"></td>
 - 
 
57 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Create
93 
          <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
58 
        NEW Project</td>
 - 
 
59 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
94 
             <!-- LOCAL ERROR +++++++++++++++++++++++++++++++++++++++++++++++ -->
60 
        <input type="submit" name="btn" value="Create" class="form_btn_comp">
 95 
             <%Call Messenger ( sMessage , 3, "100%" )%>
61 
        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
 - 
 
62 
      </td>
 - 
 
63 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
96 
             <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
64 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
 97 
             <!--#include file="messages/_msg_inline.asp"-->
65 
    </tr>
 98 
             <br>
66 
    <tr>
99 
 
67 
      <td height="100%" width="1%">&nbsp;</td>
 - 
 
68 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
- 
 
69 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 100 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
70 
          <tr>
- 
 
71 
            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
 - 
 
72 
            <td width="1%" nowrap class="form_group" valign="bottom"></td>
 - 
 
73 
            <td nowrap width="100%">&nbsp; </td>
 - 
 
74 
          </tr>
 - 
 
75 
          <tr>
101 
              <tr>
76 
            <td width="1%">&nbsp;</td>
 - 
 
77 
            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Project
102 
                <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Project Name </td>
78 
              Name </td>
 - 
 
79 
            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
103 
                <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
80 
              <input type="text" name="FRproj" maxlength="30" class="form_item">
 104 
                  <input type="text" name="FRproj" maxlength="30" class="form_item">
81 
              <input type="hidden" name="action" value="true">
 105 
                  <input type="hidden" name="action" value="true">
82 
            </td>
 106 
                </td>
83 
          </tr>
 107 
              </tr>
84 
          <tr>
108 
            </table>
85 
            <td width="1%">&nbsp;</td>
 - 
 
86 
            <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
 - 
 
87 
            <td nowrap width="100%">
- 
 
88 
              <p>&nbsp;</p>
 - 
 
89 
            </td>
 109 
          </td>
90 
          </tr>
 110 
        </tr>
91 
        </table>
 111 
        <tr>
92 
      </td>
 112 
          <td><%=ProgressBar()%></td>
93 
    </tr>
 - 
 
94 
    <tr>
 113 
          <td align="right">
95 
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 114 
            <input type="submit" name="btn" value="Create" class="form_btn_comp">
96 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 115 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="parent.closeIFrame();">
- 
 
 116 
          </td>
97 
    </tr>
 117 
        </tr>
98 
  </table>
 118 
      </table>
99 
</form>
 119 
    </form>
100 
</body>
 120 
</body>
101 
</html>
 121 
</html>
102 
 
 - 
 
103 
 
 - 
 
104 
<!-- DESTRUCTOR ------->
 122 
<!-- DESTRUCTOR ------->
105 
<!--#include file="common/destructor.asp"-->
 123 
<!--#include file="common/destructor.asp"-->
106 

            124