Subversion Repositories DevTools

Rev

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

Rev 6579 Rev 6793
Line 71... Line 71...
71 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
 71 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
72 
</head>
 72 
</head>
73 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 73 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
74 
<!-- HEADER -->
 74 
<!-- HEADER -->
75 
<!--#include file="_header.asp"-->
 75 
<!--#include file="_header.asp"-->
76 
  <%
 - 
 
77 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 - 
 
78 
  objFormComponent.FormName = "PROJECT_SUFFIX"
 - 
 
79 
  objFormComponent.Action = ScriptName
 - 
 
80 
  objFormComponent.OnSubmit = "ShowProgress();"
 - 
 
81 
  Call objFormComponent.FormStart()
 - 
 
82 
  %>
 - 
 
83 
  <div class="div_table">
 76 
  <div class="div_table">
84 
    <table border="0" cellspacing="0" cellpadding="0" >
 77 
        <table border="0" cellspacing="1" cellpadding="2" class='stdBrown center_table'>
85 
      <tr>
 - 
 
86 
        <td background="images/bg_bage_0a.gif">
 78 
            <caption>Project Suffixes</caption>
87 
            <div align="center" class=" body_col">Current Project Suffixes</div>
 - 
 
88 
            <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 79 
            <thead>
89 
 
 - 
 
90 
            <tr>
 80 
            <tr>
91 
            <!-- BUILD_MACHINE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
92 
            <td width="1%"  background="images/bg_bage_0.gif"></td>
 81 
                <th nowrap            >Suffix</th>
93 
            <td             align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Suffix</td>
 - 
 
94 
            <td width="250" align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Comment</td>
 82 
                <th nowrap width="250">Comment</th>
95 
            <td width="20"  align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Free Form Version</td>
 83 
                <th nowrap width="20" >Free Form Version</th>
96 
            <td width="20"  align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Enable Selection</td>
 84 
                <th nowrap width="20" >Enable Selection</th>
97 
            <td             align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Edit</td>
 85 
                <th nowrap            >Edit</th>
98 
            </tr>
 86 
            </tr>
- 
 
 87 
            </thead>
99 
 
 88 
 
100 
          <%
 89 
      <%
101 
          ' Load some action buttons
 90 
      ' Load some action buttons
102 
          Call objBtnControl.LoadActionButtons ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), OraDatabase )
 91 
      Call objBtnControl.LoadActionButtons ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), OraDatabase )
103 
          objBtnControl.ButtonSpacer = 1
 92 
      objBtnControl.ButtonSpacer = 1
104 
 
 93 
 
105 
          If NOT bCanEdit Then
 94 
      If NOT bCanEdit Then
106 
            Call objBtnControl.Active  ( "btnEditProjectExtensions", "N" )
 95 
        Call objBtnControl.Active  ( "btnEditProjectExtensions", "N" )
107 
            Call objBtnControl.Active  ( "btnDeleteProjectExtension", "N" )
 96 
        Call objBtnControl.Active  ( "btnDeleteProjectExtension", "N" )
108 
          End If
 97 
      End If
109 
 
 98 
 
110 
          Dim rsQry
 99 
      Dim rsQry
111 
          Dim extName
 100 
      Dim extName
112 
          Dim comment
 101 
      Dim comment
113 
          dim isaCots
 102 
      dim isaCots
114 
          dim isVis
 103 
      dim isVis
115 
 
 104 
 
116 
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PROJECT_EXTENTIONS pe ORDER BY pe.ext_name", ORADYN_DEFAULT )
 105 
      Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PROJECT_EXTENTIONS pe ORDER BY pe.ext_name", ORADYN_DEFAULT )
117 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 106 
      While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
118 
              extName = rsQry("EXT_NAME")
 107 
          extName = rsQry("EXT_NAME")
119 
              comment = rsQry("UCOMMENT")
 108 
          comment = rsQry("UCOMMENT")
120 
              isaCots = niceBool(rsQry("IS_COTS"))
 109 
          isaCots = niceBool(rsQry("IS_COTS"))
121 
              isVis   = niceBool(rsQry("IS_VISIBLE"))
 110 
          isVis   = niceBool(rsQry("IS_VISIBLE"))
122 
              %>
 - 
 
123 
              <tr>
- 
 
124 
                <td background="images/bg_bage_0.gif" align="center"></td>
 - 
 
125 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=extName%></td>
 - 
 
126 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=comment%></td>
 - 
 
127 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><input disabled="1" type="checkbox" class="body_row"<%=showCheck(isaCots)%>></td>
 - 
 
128 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><input disabled="1" type="checkbox" class="body_row"<%=showCheck(isVis)%>></td>
 - 
 
129 
 
 - 
 
130 
 
 - 
 
131 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%Call objBtnControl.Render ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), objAccessControl )%></td>
 - 
 
132 
              </tr>
- 
 
133 
              <%
 - 
 
134 
              rsQry.MoveNext()
 - 
 
135 
          Wend
 - 
 
136 
          rsQry.Close()
 - 
 
137 
          Set rsQry = nothing
 - 
 
138 
          %>
 111 
          %>
139
112 
          <tr>
- 
 
 113 
            <td nowrap><%=extName%></td>
140 
      <tr>
 114 
            <td nowrap><%=comment%></td>
141 
        <td background="images/bg_bage_0.gif" align="center" ></td>
 115 
            <td nowrap><input disabled="1" type="checkbox" class="body_row"<%=showCheck(isaCots)%>></td>
142 
        <td bgcolor="#FFFFFF" class="body_row" nowrap colspan="5">
 116 
            <td nowrap><input disabled="1" type="checkbox" class="body_row"<%=showCheck(isVis)%>></td>
- 
 
 117 
 
- 
 
 118 
 
143 
            <%Call Action_Buttons_State ( "Add Project Extension", bCanEdit )%>
 119 
            <td nowrap><%Call objBtnControl.Render ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), objAccessControl )%></td>
144 
      </tr>
 120 
          </tr>
145 
    </table>
 121 
          <%
146 
    <%=objPMod.ComposeHiddenTags()%>
 122 
          rsQry.MoveNext()
- 
 
 123 
      Wend
147 
    <input type="hidden" name="action" value="true">
 124 
      rsQry.Close()
148 
    <%Call objFormComponent.FormEnd()%>
 125 
      Set rsQry = nothing
- 
 
 126 
      %>
- 
 
 127
- 
 
 128 
  <tr>
- 
 
 129 
    <td colspan="5"><%Call Action_Buttons_State ( "Add Project Extension", bCanEdit )%></tr>
149 
    </table>
 130 
</table>
150 
    </div>
 131 
    </div>
151 
<!-- FOOTER -->
 132 
<!-- FOOTER -->
152 
<!--#include file="_footer.asp"-->
 133 
<!--#include file="_footer.asp"-->
153 
</body>
 134 
</body>
154 
</html>
 135 
</html>