Subversion Repositories DevTools

Rev

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

Rev 5190 Rev 5357
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"-->
19 
<!--#include file="common/common_subs.asp"-->
 19 
<!--#include file="common/common_subs.asp"-->
20 
<!--#include file="sec/Crypt.asp"-->
 20 
<!--#include file="sec/Crypt.asp"-->
21 
<!--#include file="common/_form_window_common.asp"-->
 21 
<!--#include file="common/_form_window_common.asp"-->
22 
<!--#include file="_action_buttons.asp"-->
 22 
<!--#include file="_action_buttons.asp"-->
23 
 
 23 
 
24 
<!--#include file="class/classActionButtonControl.asp"-->
 24 
<!--#include file="class/classActionButtonControl.asp"-->
25 
 
 25 
 
26 
<%
 26 
<%
27 
'------------ ACCESS CONTROL ------------------
 27 
'------------ ACCESS CONTROL ------------------
28 
%>
 28 
%>
29 
<!--#include file="_access_control_general.asp"-->
 29 
<!--#include file="_access_control_general.asp"-->
30 
<%
 30 
<%
31 
'------------ Variable Definition -------------
 31 
'------------ Variable Definition -------------
32 
Dim objBtnControl
 32 
Dim objBtnControl
33 
'------------ Constants Declaration -----------
 33 
'------------ Constants Declaration -----------
34 
'------------ Variable Init -------------------
 34 
'------------ Variable Init -------------------
35 
Set objBtnControl = New ActionButtonControl
 35 
Set objBtnControl = New ActionButtonControl
36 
'----------------------------------------------
 36 
'----------------------------------------------
37 
 
 37 
 
38 
function niceBool (val)
 38 
function niceBool (val)
39 
    if val = "Y" Then
 39 
    if val = "Y" Then
40 
        niceBool = "Y"
 40 
        niceBool = "Y"
41 
    Else
 41 
    Else
42 
        niceBool = "N"
 42 
        niceBool = "N"
43 
    End If
 43 
    End If
44 
End Function
 44 
End Function
45 
 
 45 
 
46 
function showCheck (val)
 46 
function showCheck (val)
47 
    if val = "Y" Then
 47 
    if val = "Y" Then
48 
        showCheck = "checked"
 48 
        showCheck = "checked"
49 
    Else
 49 
    Else
50 
        showCheck = ""
 50 
        showCheck = ""
51 
    End If
 51 
    End If
52 
End Function
 52 
End Function
53 
 
 53 
 
54 
%>
 54 
%>
55 
<%
 55 
<%
56 
' Page Access Condition
 56 
' Page Access Condition
57 
If NOT canActionControl("ConfigureBuildService") Then
 57 
If NOT canActionControl("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 
 
64 
<title>Project Suffix Administration</title>
 64 
<title>Project Suffix Administration</title>
65 
 
 65 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
66 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 66 
 
67 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 67 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
68 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 68 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
69 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 69 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
70 
<script language="JavaScript" src="images/common.js"></script>
 70 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
71 
<!--#include file="_jquery_includes.asp"-->
 71 
<script language="JavaScript" src="images/common.js"></script>
72 
<!-- DROPDOWN MENUS -->
 72 
<!--#include file="_jquery_includes.asp"-->
73 
<!--#include file="_menu_def.asp"-->
 73 
<!-- DROPDOWN MENUS -->
74 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 74 
<!--#include file="_menu_def.asp"-->
75 
</head>
 75 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
76 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 76 
</head>
77 
<!-- MENU LAYERS -------------------------------------->
 77 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
78 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
78 
<!-- MENU LAYERS -------------------------------------->
79 
</div>
 79 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
80 
<!-- TIPS LAYERS -------------------------------------->
 80 
</div>
81 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 81 
<!-- TIPS LAYERS -------------------------------------->
82 
<!-- HEADER -->
 82 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
83 
<!--#include file="_header.asp"-->
 83 
<!-- HEADER -->
84 
 
 84 
<!--#include file="_header.asp"-->
85 
  <%
 85 
 
86 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 86 
  <%
87 
  objFormComponent.FormName = "PROJECT_SUFFIX"
 87 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
88 
  objFormComponent.Action = ScriptName
 88 
  objFormComponent.FormName = "PROJECT_SUFFIX"
89 
  objFormComponent.OnSubmit = "ShowProgress();"
 89 
  objFormComponent.Action = ScriptName
90 
  Call objFormComponent.FormStart()
 90 
  objFormComponent.OnSubmit = "ShowProgress();"
91 
  %>
 91 
  Call objFormComponent.FormStart()
92 
  <div class="div_table">
 92 
  %>
93 
    <table border="0" cellspacing="0" cellpadding="0" >
 93 
  <div class="div_table">
94 
      <tr>
 94 
    <table border="0" cellspacing="0" cellpadding="0" >
95 
        <td background="images/bg_bage_0a.gif">
 95 
      <tr>
96 
            <div align="center" class=" body_col">Current Project Suffixes</div>
 96 
        <td background="images/bg_bage_0a.gif">
97 
            <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 97 
            <div align="center" class=" body_col">Current Project Suffixes</div>
98 
 
 98 
            <table width="100%"  border="0" cellspacing="1" cellpadding="2">
99 
            <tr>
 99 
 
100 
            <!-- BUILD_MACHINE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 100 
            <tr>
101 
            <td width="1%"  background="images/bg_bage_0.gif"></td>
 101 
            <!-- BUILD_MACHINE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
102 
            <td             align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Suffix</td>
 102 
            <td width="1%"  background="images/bg_bage_0.gif"></td>
103 
            <td width="250" align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Comment</td>
 103 
            <td             align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Suffix</td>
104 
            <td width="20"  align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Free Form Version</td>
 104 
            <td width="250" align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Comment</td>
105 
            <td width="20"  align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Enable Selection</td>
 105 
            <td width="20"  align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Free Form Version</td>
106 
            <td             align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Edit</td>
 106 
            <td width="20"  align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Enable Selection</td>
107 
            </tr>
 107 
            <td             align="left" nowrap background="images/bg_bage_0.gif" class="body_col">Edit</td>
108 
 
 108 
            </tr>
109 
          <%
 109 
 
110 
          ' Load some action buttons
 110 
          <%
111 
          Call objBtnControl.LoadActionButtons ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), OraDatabase )
 111 
          ' Load some action buttons
112 
          objBtnControl.ButtonSpacer = 1
 112 
          Call objBtnControl.LoadActionButtons ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), OraDatabase )
113 
          Dim rsQry
 113 
          objBtnControl.ButtonSpacer = 1
114 
          Dim extName
 114 
          Dim rsQry
115 
          Dim comment
 115 
          Dim extName
116 
          dim isaCots
 116 
          Dim comment
117 
          dim isVis
 117 
          dim isaCots
118 
 
 118 
          dim isVis
119 
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PROJECT_EXTENTIONS pe ORDER BY pe.ext_name", ORADYN_DEFAULT )
 119 
 
120 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 120 
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PROJECT_EXTENTIONS pe ORDER BY pe.ext_name", ORADYN_DEFAULT )
121 
              extName = rsQry("EXT_NAME")
 121 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
122 
              comment = rsQry("UCOMMENT")
 122 
              extName = rsQry("EXT_NAME")
123 
              isaCots = niceBool(rsQry("IS_COTS"))
 123 
              comment = rsQry("UCOMMENT")
124 
              isVis   = niceBool(rsQry("IS_VISIBLE"))
 124 
              isaCots = niceBool(rsQry("IS_COTS"))
125 
              %>
 125 
              isVis   = niceBool(rsQry("IS_VISIBLE"))
126 
              <tr>
126 
              %>
127 
                <td background="images/bg_bage_0.gif" align="center"></td>
 127 
              <tr>
128 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=extName%></td>
 128 
                <td background="images/bg_bage_0.gif" align="center"></td>
129 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=comment%></td>
 129 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=extName%></td>
130 
                <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><%=comment%></td>
131 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><input disabled="1" type="checkbox" class="body_row"<%=showCheck(isVis)%>></td>
 131 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><input disabled="1" type="checkbox" class="body_row"<%=showCheck(isaCots)%>></td>
132 
 
 132 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><input disabled="1" type="checkbox" class="body_row"<%=showCheck(isVis)%>></td>
133 
 
 133 
 
134 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%Call objBtnControl.Render ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), objAccessControl )%></td>
 134 
 
135 
              </tr>
135 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%Call objBtnControl.Render ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), objAccessControl )%></td>
136 
              <%
 136 
              </tr>
137 
              rsQry.MoveNext()
 137 
              <%
138 
          Wend
 138 
              rsQry.MoveNext()
139 
          rsQry.Close()
 139 
          Wend
140 
          Set rsQry = nothing
 140 
          rsQry.Close()
141 
          %>
 141 
          Set rsQry = nothing
142
142 
          %>
143 
      <tr>
 143
144 
        <td background="images/bg_bage_0.gif" align="center"></td>
 144 
      <tr>
145 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 145 
        <td background="images/bg_bage_0.gif" align="center"></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></td>
 148 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
149 
        <td bgcolor="#FFFFFF" class="body_row" nowrap><a href=""><%Call Action_Buttons ( "Add Project Extension" )%> </a>
 149 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
150 
      </tr>
 150 
        <td bgcolor="#FFFFFF" class="body_row" nowrap><a href=""><%Call Action_Buttons ( "Add Project Extension" )%> </a>
151 
    </table>
 151 
      </tr>
152 
    <%=objPMod.ComposeHiddenTags()%>
 152 
    </table>
153 
    <input type="hidden" name="action" value="true">
 153 
    <%=objPMod.ComposeHiddenTags()%>
154 
    <%Call objFormComponent.FormEnd()%>
 154 
    <input type="hidden" name="action" value="true">
155 
    </table>
 155 
    <%Call objFormComponent.FormEnd()%>
156 
    </div>
 156 
    </table>
157 
</body>
 157 
    </div>
158 
</html>
 158 
</body>
159 
<!-- FOOTER -->
 159 
</html>
160 
<!--#include file="_footer.asp"-->
 160 
<!-- FOOTER -->
161 
<%
 161 
<!--#include file="_footer.asp"-->
162 
Call Destroy_All_Objects
 162 
<%
163 
%>
 163 
Call Destroy_All_Objects
- 
 
 164 
%>