Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'|                                                   |

'|                   wAddProjectExtension            |

'|                                                   |

'=====================================================

%>

<%

Option explicit

Response.Expires = 0

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/formating.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="common/_form_window_common.asp"-->

<!-- #INCLUDE FILE="common/adovbs.inc" -->

<%

'------------ ACCESS CONTROL ------------------

%>

<!--#include file="_access_control_general.asp"-->

<!--#include file="_access_control_login.asp"-->

<%

'------------ VARIABLE DEFINITION -------------

Dim rsQry

Dim sMessage

Dim Query_String

'------------ CONSTANTS DECLARATION -----------

'------------ VARIABLE INIT -------------------

sMessage = NULL

Set objFormCollector = CreateObject("Scripting.Dictionary")

'------------ CONDITIONS ----------------------

'----------------------------------------------

function showCheck (val)

    if val = "Y" Then

        showCheck = "checked"

    Else

        showCheck = ""

    End If

End Function

function niceBool (val)

    if val = "Y" Then

        niceBool = "Y"

    Else

        niceBool = "N"

    End If

End Function

Sub checkExt (val)

   Dim objRegExpr

   Set objRegExpr = New regexp

   objRegExpr.Pattern = "^\.[a-z]{2,4}$"

   objRegExpr.IgnoreCase = False

   If NOT objRegExpr.Test(val) Then

        sMessage = "New project extension is not suitable. Must start with a 'dot' and must be between 2 and 4 lowercase characters"

   End If

End Sub

Sub performAction

    Dim rowCount

    rowCount = -1

    '

    ' Determine if the named project suffix exists

    ' Count the rows in the query

    '

    If Request("newext") <> "" Then

        checkExt(Request("newext"))

        If not isNull (sMessage) then Exit Sub

        Query_String = "SELECT EXT_NAME from PROJECT_EXTENTIONS WHERE EXT_NAME = '" & Request("newext") & "'"

	    Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )

        rowCount = rsQry.RecordCount

		rsQry.Close()

		Set rsQry = nothing

    Else

        sMessage = "No Project Extension specified"

        Exit Sub

    End If

   If Request("ext") <> "" Then

    '

    '   Update an existing entry

    '

    If (rowCount > 0) AND ( Request("ext") <> Request("newext")) Then

        sMessage = "Cannot rename the project extension to an existing value"

    Else

        Query_String = "SELECT * from PROJECT_EXTENTIONS WHERE EXT_NAME = '" & Request("ext") & "'"

	    Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )

        rsQry.Edit

        rsQry.Fields("EXT_NAME").Value = Request("newext")

        rsQry.Fields("UCOMMENT").Value = Request("comment")

        rsQry.Fields("IS_COTS").Value = niceBool(Request("isCots"))

        rsQry.Fields("IS_VISIBLE").Value = niceBool(Request("isVis"))

        rsQry.Update

        rsQry.Close

        Set rsQry = Nothing

        Call OpenInParentWindow ("admin_project_suffix.asp?ext="&Request("newext"))

        Call CloseWindow()

    End If

   Else

    '

    ' Insert a new entry into the table

    '

    If rowCount > 0 Then

        sMessage = "Project extension already exists"

    ElseIf rowCount < 0 Then

        sMessage = "No Project Extension specified"

    Else

        Query_String = "SELECT * from PROJECT_EXTENTIONS"

	    Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )

        rsQry.AddNew

        rsQry.Fields("EXT_NAME").Value = Request("newext")

        rsQry.Fields("UCOMMENT").Value = Request("comment")

        rsQry.Fields("IS_COTS").Value = niceBool(Request("isCots"))

        rsQry.Fields("IS_VISIBLE").Value = niceBool(Request("isVis"))

        rsQry.Update

        rsQry.Close

        Set rsQry = Nothing

        Call OpenInParentWindow ("admin_project_suffix.asp?ext="&Request("newext"))

        Call CloseWindow()

    End If

   End If

End Sub

%>

<%

'------------ RUN BEFORE PAGE RENDER ----------

If CBool(Request("action")) Then

    performAction()

End If

'----------------------------------------------

%>

<html>

<head>

<title>Release Manager</title>

<link rel="shortcut icon" href="<%=FavIcon%>"/>

<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">

<script language="JavaScript" src="scripts/common.js"></script>

</head>

<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.display_name.focus();">

<table width="100%"  border="0" cellspacing="0" cellpadding="10">

   <tr>

      <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add/Update Project Extension</span> <br>

         Add a new Project Extension or edit an existing Project Extension.

      </td>

   </tr>

   <%

   '-- FORM START --------------------------------------------------------------------------------------------------------------

   objFormComponent.FormName = "FormName"

   objFormComponent.Action = ScriptName

   objFormComponent.OnSubmit = "ShowProgress();"

   Call objFormComponent.FormStart()

   %>

   <tr>

      <td background="images/bg_login.gif">

         <table width="50%"  border="0" cellspacing="0" cellpadding="0">

            <tr>

               <td><%=ProgressBar()%></td>

               <td align="right"><input name="btn" type="submit" class="form_btn" value="Add/Update">

                  <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();">

               </td>

            </tr>

         </table>

      </td>

   </tr>

   <tr>

      <td>

         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

         <%Call Messenger ( sMessage , 1, "100%" )%>

         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->

         <!--#include file="messages/_msg_inline.asp"-->

         <br>

         <%

        Dim extName

        Dim comment

        Dim isaCots

        Dim isVis

        If Request("ext") <> "" Then

            %>

            <input type="hidden" name="ext" value="<%=Request("ext")%>">

            <%

            Dim rsTemp

            Query_String = "select * FROM PROJECT_EXTENTIONS " &_

                          " where ext_name = '"& Request("ext") & "'"

            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

    		extName = rsTemp("EXT_NAME")

		    comment = rsTemp("UCOMMENT")

            isaCots = niceBool(rsTemp("IS_COTS"))

            isVis   = niceBool(rsTemp("IS_VISIBLE"))

            rsTemp.Close()

            Set rsTemp = Nothing      

          Else

            isaCots = "N"

            isVis = "Y"

          End If

          %>

         <table width="50%" border="0"  class="body_txt">

            <tr>

               <td>Project Extension</td>

               <td><input name="newext" type="text" class="body_txt" value="<%=extName%>" size=7 maxlength=5></td>

            </tr>

            <tr>

               <td></td>

               <td>The project suffix must start with a '.' and contain 2 to 4 lower case characters.</td>

            </tr>

            <tr>

               <td>Comment</td>

               <td><input name="comment" type="text" class="body_txt" value="<%=comment%>" size=80 maxlength=80></td>

            </tr>

            <tr>

               <td></td>

               <td>The comment field will be displayed during the project suffix selection process</td>

            </tr>

            <tr>

               <td>Enable Selection</td>

               <td><input name="isVis" type="checkbox" value="Y" <%=showCheck(isVis)%>></td>

            </tr>

            <tr>

               <td></td>

               <td>If selection is not enabled then the Suffix will not be shown and cannot be selected.

               This is useful for legacy projects where multiple extensions have been used. </td>

            </tr>

            <tr>

               <td>Free Form Version</td>

               <td><input name="isCots" type="checkbox" value="Y" <%=showCheck(isaCots)%>></td>

            </tr>

            <tr>

               <td></td>

               <td>Free Form Versioning flags packages are allowed to have non-standard version numbers.

               If the version number is in the standard major.minor.patch-build form then the package can be auto-versioned.

               If the version number has only a patch-build field then it can rippled.

               </td>

            </tr>

         </table>

      </td>

   </tr>

   <%=objPMod.ComposeHiddenTags()%>

   <input type="hidden" name="action" value="true">

   <%

   Call objFormComponent.FormEnd()

   '-- FROM END ----------------------------------------------------------------------------------------------------------------

   %>

</table>

</body>

</html>

<%

'------------ RUN AFTER PAGE RENDER -----------

Set objFormCollector = Nothing

'----------------------------------------------

Call Destroy_All_Objects

%>