Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5590
Line 35... Line 35...
35 
'------------ VARIABLE INIT -------------------
 35 
'------------ VARIABLE INIT -------------------
36 
sMessage = NULL
 36 
sMessage = NULL
37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
38 
'------------ CONDITIONS ----------------------
 38 
'------------ CONDITIONS ----------------------
39 
'----------------------------------------------
 39 
'----------------------------------------------
40 
%>
 - 
 
41 
<%
 - 
 
42 
 
 40 
 
43 
%>
 - 
 
44 
<%
 - 
 
45 
'------------ RUN BEFORE PAGE RENDER ----------
 41 
'------------ RUN BEFORE PAGE RENDER ----------
46 
 
 42 
 
47 
If CBool(Request("action")) Then
 43 
If CBool(Request("action")) Then
48 
 
 44 
 
49 
   If Request("VCS_TAG") = "" Then
 45 
   If Request("VCS_TAG") = "" Then
50 
      Call RaiseMsg ( enum_MSG_ERROR, "Cannot add an empty string as a VCS Tag" )
 46 
      sMessage = "Cannot add an empty string as a VCS Tag"
51 
   Else
 47 
   Else
52 
      If Request("VCS_NAME") = "" Then
 48 
      If Request("VCS_NAME") = "" Then
53 
         Call RaiseMsg ( enum_MSG_ERROR, "Cannot add an empty string as a VCS Name" )
 49 
         sMessage = "Cannot add an empty string as a VCS Name"
54 
      Else
 50 
      Else
55 
         Query_String = " SELECT * FROM vcs_type WHERE tag = '"& Request("VCS_TAG") &"'"
 51 
         Query_String = "SELECT * FROM vcs_type WHERE UPPER(tag) = UPPER('"& Request("VCS_TAG") &"')"
56 
 
 52 
 
57 
         Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 53 
         Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0))
58 
 
 54 
 
59 
         If rsQry.RecordCount = 0 Then
 55 
         If rsQry.RecordCount = 0 Then
60 
 
 56 
 
Line 68... Line 64...
68 
 
 64 
 
69 
            OraDatabase.Parameters.Add "VCS_TYPE_ID", vcs_type_id,         ORAPARM_INPUT, ORATYPE_NUMBER
 65 
            OraDatabase.Parameters.Add "VCS_TYPE_ID", vcs_type_id,         ORAPARM_INPUT, ORATYPE_NUMBER
70 
            OraDatabase.Parameters.Add "NAME",        Request("VCS_NAME"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 66 
            OraDatabase.Parameters.Add "NAME",        Request("VCS_NAME"), ORAPARM_INPUT, ORATYPE_VARCHAR2
71 
            OraDatabase.Parameters.Add "TAG",         Request("VCS_TAG"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
 67 
            OraDatabase.Parameters.Add "TAG",         Request("VCS_TAG"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
72 
 
 68 
 
73 
            On Error Resume Next
 69 
            objEH.ErrorRedirect = FALSE
74 
            objEH.TryORA ( OraSession )
 70 
            objEH.TryORA ( OraSession )
- 
 
 71 
            On Error Resume Next
75 
            OraDatabase.ExecuteSQL ("begin INSERT INTO vcs_type (vcs_type_id, name, tag) VALUES (:VCS_TYPE_ID, :NAME, :TAG); end;")
 72 
            OraDatabase.ExecuteSQL ("begin INSERT INTO vcs_type (vcs_type_id, name, tag) VALUES (:VCS_TYPE_ID, :NAME, :TAG); end;")
76 
            objEH.CatchORA ( OraSession )
 73 
            objEH.CatchORA ( OraSession )
77 
 
 74 
 
78 
            OraDatabase.Parameters.Remove "VCS_TYPE_ID"
 75 
            OraDatabase.Parameters.Remove "VCS_TYPE_ID"
79 
            OraDatabase.Parameters.Remove "NAME"
 76 
            OraDatabase.Parameters.Remove "NAME"
Line 83... Line 80...
83 
               Call OpenInParentWindow ("admin_vcs_types.asp")
 80 
               Call OpenInParentWindow ("admin_vcs_types.asp")
84 
               Call CloseWindow()
 81 
               Call CloseWindow()
85 
            End If
 82 
            End If
86 
 
 83 
 
87 
         Else
 84 
         Else
88 
            Call RaiseMsg ( enum_MSG_VCS_EXISTS, Request("VCS_TAG") )
 85 
            sMessage = "VCS Tag already exists"
89 
         End If
 86 
         End If
90 
 
 87 
 
91 
         rsQry.Close
 88 
         rsQry.Close
92 
         Set rsQry = nothing
 89 
         Set rsQry = nothing
93 
      End If
 90 
      End If
Line 107... Line 104...
107 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 104 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
108 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
 105 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
109 
<script language="JavaScript" src="scripts/common.js"></script>
 106 
<script language="JavaScript" src="scripts/common.js"></script>
110 
</head>
 107 
</head>
111 
 
 108 
 
112 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.VCS_NAME.focus();">
 109 
<body leftmargin="0" topmargin="0" onLoad="self.focus();FormName.VCS_NAME.focus();">
113 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 110 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
114 
   <tr>
 111 
   <tr>
115 
      <td bgcolor="#FFFFFF" class="body_txt">
 - 
 
116 
         <span class="body_h1">
 112 
      <td class="body_txt">
117 
            <img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Version Control System (VCS)
 - 
 
118 
         </span>
 - 
 
119 
         <br>
 - 
 
120 
         Add a new VCS.
 113 
         Add a New Version control System.
121 
      </td>
 114 
      </td>
122 
   </tr>
 115 
   </tr>
123 
 
 116 
 
124 
   <%
 117 
   <%
125 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
 118 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
126 
   objFormComponent.FormName = "FormName"
 119 
   objFormComponent.FormName = "FormName"
- 
 
 120 
   objFormComponent.FormClass = "form_tight"
127 
   objFormComponent.Action = ScriptName
 121 
   objFormComponent.Action = ScriptName
128 
   objFormComponent.OnSubmit = "ShowProgress();"
 122 
   objFormComponent.OnSubmit = "ShowProgress();"
129 
   Call objFormComponent.FormStart()
 123 
   Call objFormComponent.FormStart()
130 
 
 - 
 
131 
   %>
 124 
   %>
132 
   <tr>
 125 
   <tr>
133 
      <td background="images/bg_login.gif">
 126 
      <td class="form_field_bg" >
134 
         <table width="50%"  border="0" cellspacing="0" cellpadding="0">
 - 
 
135 
            <tr>
 - 
 
136 
               <td><%=ProgressBar()%></td>
 - 
 
137 
               <td align="right"><input name="btn" type="submit" class="form_btn" value="Add">
 - 
 
138 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();">
 - 
 
139 
               </td>
 - 
 
140 
            </tr>
 - 
 
141 
         </table>
 - 
 
142 
      </td>
 - 
 
143 
   </tr>
 - 
 
144 
   <tr>
 - 
 
145 
      <td>
 - 
 
146 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 127 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
147 
         <%Call Messenger ( sMessage , 3, "100%" )%>
 128 
         <%Call Messenger ( sMessage , 3, "100%" )%>
148 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 129 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
149 
         <!--#include file="messages/_msg_inline.asp"-->
 130 
         <!--#include file="messages/_msg_inline.asp"-->
150 
         <table width="100%" border="0">
 131 
         <table width="100%" border="0">
151 
            <tr>
 132 
            <tr>
152 
               <td><span class="body_txt">VCS Name</span></td>
 133 
               <td><span class="body_txt nowrap">VCS Name</span></td>
153 
               <td><input name="VCS_NAME" type="text" class="body_txt" value="<%=VCS_NAME%>" size=120 maxlength=128></td>
 134 
               <td><input name="VCS_NAME" type="text" class="body_txt" value="<%=VCS_NAME%>" size=120 maxlength=128></td>
154 
            </tr>
 135 
            </tr>
155 
            <tr>
 136 
            <tr>
156 
               <td><span class="body_txt">VCS Tag (1..4 chars)</span></td>
 137 
               <td><span class="body_txt nowrap">VCS Tag</span></td>
157 
               <td><input name="VCS_TAG" type="text" class="body_txt" value="<%=VCS_TAG%>" size=4 maxlength=4></td>
 138 
               <td><input name="VCS_TAG" type="text" class="body_txt" value="<%=VCS_TAG%>" size=4 maxlength=4><span class="body_txt nowrap"> [1..4 chars]</span></td>
158 
            </tr>
 139 
            </tr>
- 
 
 140 
         </table>
- 
 
 141 
      </td>
- 
 
 142 
   </tr>
- 
 
 143 
   <tr>
- 
 
 144 
      <td>
- 
 
 145 
         <table class="full_table">
159 
            <tr>
 146 
            <tr>
- 
 
 147 
               <td><%=ProgressBar()%></td>
160 
               <td>&nbsp;</td>
 148 
               <td align="right">
- 
 
 149 
                  <input name="btn" type="submit" class="form_btn" value="Add">
- 
 
 150 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onclick="parent.closeIFrame();">
161 
               <td>&nbsp;</td>
 151 
               </td>
162 
            </tr>
 152 
            </tr>
163 
         </table>
 153 
         </table>
164 
      </td>
 154 
      </td>
165 
   </tr>
 155 
   </tr>
166 
   <%=objPMod.ComposeHiddenTags()%>
 156 
   <%=objPMod.ComposeHiddenTags()%>
167 
   <input type="hidden" name="action" value="true">
 157 
   <input type="hidden" name="action" value="true">
168 
 
 - 
 
169 
   <%
 158 
   <%
170 
   Call objFormComponent.FormEnd()
 159 
   Call objFormComponent.FormEnd()
171 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
 160 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
172 
   %>
 161 
   %>
173 
</table>
 162 
</table>