Subversion Repositories DevTools

Rev

Rev 3959 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3959 Rev 4029
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    ADMIN Page			        	 |
 5 
'|                  ADMIN Page                       |
6 
'|                 Project Suffix               	 |
 6 
'|                 Project Suffix                    |
7 
'|                                      			 |
 7 
'|                                                   |
8 
'=====================================================
 8 
'=====================================================
9 
%>
 9 
%>
10 
<%
 10 
<%
11 
Option explicit
 11 
Option explicit
12 
' Good idea to set when using redirect
 12 
' Good idea to set when using redirect
13 
Response.Expires = 0	' always load the page, dont store
 13 
Response.Expires = 0    ' always load the page, dont store
14 
%>
 14 
%>
15 
<!--#include file="common/conf.asp"-->
 15 
<!--#include file="common/conf.asp"-->
16 
<!--#include file="common/globals.asp"-->
 16 
<!--#include file="common/globals.asp"-->
17 
<!--#include file="common/formating.asp"-->
 17 
<!--#include file="common/formating.asp"-->
18 
<!--#include file="common/qstr.asp"-->
 18 
<!--#include file="common/qstr.asp"-->
Line 53... Line 53...
53 
 
 53 
 
54 
%>
 54 
%>
55 
<%
 55 
<%
56 
' Page Access Condition
 56 
' Page Access Condition
57 
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
 57 
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
58 
	Response.Redirect("message.asp?msg=401-9")
 58 
    Response.Redirect("message.asp?msg=401-9")
59 
End If
 59 
End If
60 
%>
 60 
%>
61 
<html>
 61 
<html>
62 
<head>
 62 
<head>
63 
 
 63 
 
Line 94... Line 94...
94 
        <td background="images/bg_bage_0a.gif">
 94 
        <td background="images/bg_bage_0a.gif">
95 
            <div align="center" class=" body_col">Current Project Suffixes</div>
 95 
            <div align="center" class=" body_col">Current Project Suffixes</div>
96 
            <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 96 
            <table width="100%"  border="0" cellspacing="1" cellpadding="2">
97 
 
 97 
 
98 
            <tr>
 98 
            <tr>
99 
		    <!-- BUILD_MACHINE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 99 
            <!-- BUILD_MACHINE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
100 
            <td width="1%"  background="images/bg_bage_0.gif"></td>
 100 
            <td width="1%"  background="images/bg_bage_0.gif"></td>
101 
            <td             align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Suffix</td>
 101 
            <td             align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Suffix</td>
102 
            <td width="250" align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Comment</td>
 102 
            <td width="250" align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Comment</td>
103 
            <td width="20"  align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Free Form Version</td>
 103 
            <td width="20"  align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Free Form Version</td>
104 
            <td width="20"  align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Enable Selection</td>
 104 
            <td width="20"  align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Enable Selection</td>
105 
			<td             align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Edit</td>
 105 
            <td             align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Edit</td>
106 
            </tr>
 106 
            </tr>
107 
 
 107 
 
108 
		  <%
 108 
          <%
109 
		  ' Load some action buttons
 109 
          ' Load some action buttons
110 
		  Call objBtnControl.LoadActionButtons ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), OraDatabase )
 110 
          Call objBtnControl.LoadActionButtons ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), OraDatabase )
111 
		  objBtnControl.ButtonSpacer = 1
 111 
          objBtnControl.ButtonSpacer = 1
112 
		  Dim rsQry
 112 
          Dim rsQry
113 
          Dim extName
 113 
          Dim extName
114 
          Dim comment
 114 
          Dim comment
115 
          dim isaCots
 115 
          dim isaCots
116 
          dim isVis
 116 
          dim isVis
117 
 
 117 
 
118 
		  Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PROJECT_EXTENTIONS pe ORDER BY pe.ext_name", ORADYN_DEFAULT )
 118 
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PROJECT_EXTENTIONS pe ORDER BY pe.ext_name", ORADYN_DEFAULT )
119 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 119 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
120 
		      extName = rsQry("EXT_NAME")
 120 
              extName = rsQry("EXT_NAME")
121 
		      comment = rsQry("UCOMMENT")
 121 
              comment = rsQry("UCOMMENT")
122 
              isaCots = niceBool(rsQry("IS_COTS"))
 122 
              isaCots = niceBool(rsQry("IS_COTS"))
123 
              isVis   = niceBool(rsQry("IS_VISIBLE"))
 123 
              isVis   = niceBool(rsQry("IS_VISIBLE"))
124 
		      %>
 124 
              %>
125 
              <tr>
125 
              <tr>
126 
	            <td background="images/bg_bage_0.gif" align="center"></td>
 126 
                <td background="images/bg_bage_0.gif" align="center"></td>
127 
			    <td bgcolor="#FFFFFF" class="body_row" nowrap><%=extName%></td>
 127 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=extName%></td>
128 
			    <td bgcolor="#FFFFFF" class="body_row" nowrap><%=comment%></td>
 128 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=comment%></td>
129 
         	    <td bgcolor="#FFFFFF" class="body_row" nowrap><input disabled="1" type="checkbox" class="body_row"<%=showCheck(isaCots)%>></td>
 129 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><input disabled="1" type="checkbox" class="body_row"<%=showCheck(isaCots)%>></td>
130 
         	    <td bgcolor="#FFFFFF" class="body_row" nowrap><input disabled="1" type="checkbox" class="body_row"<%=showCheck(isVis)%>></td>
 130 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><input disabled="1" type="checkbox" class="body_row"<%=showCheck(isVis)%>></td>
131 
 
 131 
 
132 
 
 132 
 
133 
			    <td bgcolor="#FFFFFF" class="body_row" nowrap><%Call objBtnControl.Render ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), objAccessControl )%></td>
 133 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%Call objBtnControl.Render ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), objAccessControl )%></td>
134 
		      </tr>
134 
              </tr>
135 
		      <%
 135 
              <%
136 
		      rsQry.MoveNext()
 136 
              rsQry.MoveNext()
137 
		  Wend
 137 
          Wend
138 
		  rsQry.Close()
 138 
          rsQry.Close()
139 
		  Set rsQry = nothing
 139 
          Set rsQry = nothing
140 
		  %>
 140 
          %>
141
141
142 
      <tr>
 142 
      <tr>
143 
	    <td background="images/bg_bage_0.gif" align="center"></td>
 143 
        <td background="images/bg_bage_0.gif" align="center"></td>
144 
	    <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 144 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
145 
	    <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 145 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
146 
	    <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 146 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
147 
	    <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 147 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
148 
	    <td bgcolor="#FFFFFF" class="body_row" nowrap><a href=""><%Call Action_Buttons ( "Add Project Extension" )%> </a>
 148 
        <td bgcolor="#FFFFFF" class="body_row" nowrap><a href=""><%Call Action_Buttons ( "Add Project Extension" )%> </a>
149 
      </tr>
 149 
      </tr>
150 
    </table>
 150 
    </table>
151 
    <%=objPMod.ComposeHiddenTags()%>
 151 
    <%=objPMod.ComposeHiddenTags()%>
152 
    <input type="hidden" name="action" value="true">
 152 
    <input type="hidden" name="action" value="true">
153 
    <%Call objFormComponent.FormEnd()%>
 153 
    <%Call objFormComponent.FormEnd()%>