Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    ADMIN Page			        	 |
 5 
'|                 ADMIN Page                        |
6 
'|                  Archive			                  |
 6 
'|                  Archive                          |
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 
Server.ScriptTimeout=600
 14 
Server.ScriptTimeout=600
15 
%>
 15 
%>
16 
<!--#include file="common/conf.asp"-->
 16 
<!--#include file="common/conf.asp"-->
17 
<!--#include file="common/globals.asp"-->
 17 
<!--#include file="common/globals.asp"-->
18 
<!--#include file="common/formating.asp"-->
 18 
<!--#include file="common/formating.asp"-->
Line 40... Line 40...
40 
 
 40 
 
41 
 
 41 
 
42 
<%
 42 
<%
43 
' Page Access Condition
 43 
' Page Access Condition
44 
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
 44 
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
45 
	Response.Redirect("message.asp?msg=401-9")
 45 
   Response.Redirect("message.asp?msg=401-9")
46 
End If
 46 
End If
47 
%>
 47 
%>
48 
<%
 48 
<%
49 
'---------------------------------------------------------------------------------------------------------------------------------------------
 49 
'---------------------------------------------------------------------------------------------------------------------------------------------
50 
Sub	RM2AM ( nRtagId )
 50 
Sub   RM2AM ( nRtagId )
- 
 
 51 
 
- 
 
 52 
   On Error Resume Next
- 
 
 53 
 
- 
 
 54 
   OraDatabase.Parameters.Add "RTAG_ID", nRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 55 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 56 
 
- 
 
 57 
   objEH.TryORA ( OraSession )   ' will do Err.Clear
- 
 
 58 
 
- 
 
 59 
   OraDatabase.ExecuteSQL _
- 
 
 60 
   "BEGIN PK_ARCHIVE.POPULATE_PACKAGES_TABLE (); END;"
- 
 
 61 
 
- 
 
 62 
   If Err.Number = 0 Then
- 
 
 63 
      OraDatabase.ExecuteSQL _
- 
 
 64 
      "BEGIN PK_ARCHIVE.POPULATE_ARCHIVE_DATA_TABLE ( :RTAG_ID ); END;"
- 
 
 65 
   End If
- 
 
 66 
 
- 
 
 67 
   If Err.Number = 0 Then
- 
 
 68 
      OraDatabase.ExecuteSQL _
- 
 
 69 
      "BEGIN PK_ARCHIVE.MIGRATE_PV_TO_ARCHIVE_SCHEMA ( :RTAG_ID ); END;"
- 
 
 70 
   End If
- 
 
 71 
 
- 
 
 72 
   If Err.Number = 0 Then
- 
 
 73 
      OraDatabase.ExecuteSQL _
- 
 
 74 
      "BEGIN PK_ARCHIVE.MIGRATE_RTAG_TO_ARCHIVE_SCHEMA ( :RTAG_ID ); END;"
- 
 
 75 
   End If
- 
 
 76 
 
- 
 
 77 
   If Err.Number = 0 Then
- 
 
 78 
      OraDatabase.ExecuteSQL _
- 
 
 79 
      "BEGIN PK_ARCHIVE.CLEAN_UP_ARCHIVE_DATA_TABLE ( :RTAG_ID ); END;"
- 
 
 80 
   End If
51 
 
 81 
 
52 
	'On Error Resume Next
 82 
   If Err.Number = 0 Then
53 
	OraDatabase.Parameters.Add "RTAG_ID", nRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
54 
	OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
55 
 
 - 
 
56 
	objEH.TryORA ( OraSession )
 - 
 
57 
 
 - 
 
58 
	'OraSession.BeginTrans
 - 
 
59 
	OraDatabase.ExecuteSQL _
 83 
      OraDatabase.ExecuteSQL _
60 
	"BEGIN PK_ARCHIVE.POPULATE_PACKAGES_TABLE (); END;"
 - 
 
61 
	'OraSession.CommitTrans
 - 
 
62
- 
 
63 
	'OraSession.BeginTrans
- 
 
64 
	OraDatabase.ExecuteSQL _
 - 
 
65 
	"BEGIN PK_ARCHIVE.POPULATE_ARCHIVE_DATA_TABLE ( :RTAG_ID ); END;"
 84 
      "BEGIN PK_ARCHIVE.WRITE_ACTION_LOG ( :USER_ID, :RTAG_ID ); END;"
66 
	'OraSession.CommitTrans
 - 
 
67
- 
 
68 
	'OraSession.BeginTrans
 85 
   End If
69 
	OraDatabase.ExecuteSQL _
 - 
 
70 
	"BEGIN PK_ARCHIVE.MIGRATE_PV_TO_ARCHIVE_SCHEMA ( :RTAG_ID ); END;"
 - 
 
71 
	'OraSession.CommitTrans
 - 
 
72
- 
 
73 
	'OraSession.BeginTrans
- 
 
74 
	OraDatabase.ExecuteSQL _
 - 
 
75 
	"BEGIN PK_ARCHIVE.MIGRATE_RTAG_TO_ARCHIVE_SCHEMA ( :RTAG_ID ); END;"
 - 
 
76 
	'OraSession.CommitTrans
 - 
 
77
- 
 
78 
	'OraSession.BeginTrans
- 
 
79 
	OraDatabase.ExecuteSQL _
 - 
 
80 
	"BEGIN PK_ARCHIVE.CLEAN_UP_ARCHIVE_DATA_TABLE ( :RTAG_ID ); END;"
 - 
 
81 
	'OraSession.CommitTrans
- 
 
82 
 
 86 
 
83 
	'OraSession.BeginTrans
- 
 
84 
	OraDatabase.ExecuteSQL _
 - 
 
85 
	"BEGIN PK_ARCHIVE.WRITE_ACTION_LOG ( :USER_ID, :RTAG_ID ); END;"
 - 
 
86 
	'OraSession.CommitTrans
 - 
 
87
- 
 
88 
	objEH.CatchORA ( OraSession )
 87 
   objEH.CatchORA ( OraSession )      ' will do rollback or commit, depending upon Err.Number
89
88 
 
90 
	OraDatabase.Parameters.Remove "RTAG_ID"
 89 
   OraDatabase.Parameters.Remove "RTAG_ID"
91 
	OraDatabase.Parameters.Remove "USER_ID"
 90 
   OraDatabase.Parameters.Remove "USER_ID"
92
91 
 
93 
End	Sub
 92 
End   Sub
94 
'---------------------------------------------------------------------------------------------------------------------------------------------
 93 
'---------------------------------------------------------------------------------------------------------------------------------------------
95 
Sub	AM2RM ( nRtagId )
 94 
Sub   AM2RM ( nRtagId )
- 
 
 95 
 
- 
 
 96 
   On Error Resume Next
- 
 
 97 
   OraDatabase.Parameters.Add "RTAG_ID", nRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 98 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 99 
 
- 
 
 100 
   objEH.TryORA ( OraSession )   ' will do Err.Clear
96 
 
 101 
 
97 
	'On Error Resume Next
 102 
   If Err.Number = 0 Then
98 
	OraDatabase.Parameters.Add "RTAG_ID", nRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
99 
	OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
100 
 
 - 
 
101 
	objEH.TryORA ( OraSession )
 - 
 
102 
 
 - 
 
103 
	'OraSession.BeginTrans
 - 
 
104 
	OraDatabase.ExecuteSQL _
 103 
      OraDatabase.ExecuteSQL _
105 
	"BEGIN ARCHIVE_MANAGER.PK_ARCHIVE.RESTORE_AND_FLUSH_RELEASE_DATA ( :RTAG_ID ); END;"
 104 
      "BEGIN ARCHIVE_MANAGER.PK_ARCHIVE.RESTORE_AND_FLUSH_RELEASE_DATA ( :RTAG_ID ); END;"
106 
	'OraSession.CommitTrans
 - 
 
107
- 
 
108 
	'OraSession.BeginTrans
- 
 
109 
	OraDatabase.ExecuteSQL _
 - 
 
110 
	"BEGIN ARCHIVE_MANAGER.PK_ARCHIVE.WRITE_ACTION_LOG ( :USER_ID, :RTAG_ID ); END;"
 - 
 
111 
	'OraSession.CommitTrans
 105 
   End If
112
- 
 
113 
	objEH.CatchORA ( OraSession )
 - 
 
114
- 
 
115 
	OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
116 
	OraDatabase.Parameters.Remove "USER_ID"
 - 
 
117 
 
 106 
 
- 
 
 107 
   If Err.Number = 0 Then
- 
 
 108 
      OraDatabase.ExecuteSQL _
- 
 
 109 
      "BEGIN ARCHIVE_MANAGER.PK_ARCHIVE.WRITE_ACTION_LOG ( :USER_ID, :RTAG_ID ); END;"
- 
 
 110 
   End If
- 
 
 111 
 
- 
 
 112 
   objEH.CatchORA ( OraSession )      ' will do rollback or commit, depending upon Err.Number
- 
 
 113 
 
- 
 
 114 
   OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 115 
   OraDatabase.Parameters.Remove "USER_ID"
- 
 
 116 
 
118 
End	Sub
 117 
End   Sub
119 
'---------------------------------------------------------------------------------------------------------------------------------------------
 118 
'---------------------------------------------------------------------------------------------------------------------------------------------
120 
%>
 119 
%>
121 
<%
 120 
<%
122 
If (Request("btn") = "--->") Then
121 
If (Request("btn") = "--->") Then
123 
	'Code to Migrate From Release Manager to Archive Manager
 122 
   'Code to Migrate From Release Manager to Archive Manager
124 
	Call RM2AM ( Request("rtagA") )
 123 
   Call RM2AM ( Request("rtagA") )
125 
	If objEH.Finally Then
 124 
   If objEH.Finally Then
126 
		Response.Redirect("admin_archive.asp")
 125 
      Response.Redirect("admin_archive.asp")
127 
	End If
 126 
   End If
128 
End If
 127 
End If
129 
 
 128 
 
130 
If (Request("btn") = "<---") Then
129 
If (Request("btn") = "<---") Then
131 
	'Code to Migrate From Archive Manager to Release Manager
 130 
   'Code to Migrate From Archive Manager to Release Manager
132 
	Call AM2RM ( Request("rtagB") )
 131 
   Call AM2RM ( Request("rtagB") )
133 
	If objEH.Finally Then
 132 
   If objEH.Finally Then
134 
		Response.Redirect("admin_archive.asp")
 133 
      Response.Redirect("admin_archive.asp")
135 
	End If
 134 
   End If
136 
End If
 135 
End If
137 
 
 136 
 
138 
%>
 137 
%>
139 
<html>
 138 
<html>
140 
<head>
 139 
<head>
Line 150... Line 149...
150 
<!--#include file="_menu_def.asp"-->
 149 
<!--#include file="_menu_def.asp"-->
151 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 150 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
152 
</head>
 151 
</head>
153 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 152 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
154 
<!-- MENU LAYERS -------------------------------------->
 153 
<!-- MENU LAYERS -------------------------------------->
155 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
154 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
156 
</div>
 155 
</div>
157 
<!-- TIPS LAYERS -------------------------------------->
 156 
<!-- TIPS LAYERS -------------------------------------->
158 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 157 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
159 
<!-- HEADER -->
 158 
<!-- HEADER -->
160 
<!--#include file="_header.asp"-->
 159 
<!--#include file="_header.asp"-->
161 
<form name="FormName" method="post" action="<%=ScriptName%>">
 160 
<form name="FormName" method="post" action="<%=ScriptName%>">
162 
	<br>
 161 
   <br>
163 
      <table width="100%"  border="0" cellspacing="10" cellpadding="0">
 162 
   <table width="100%"  border="0" cellspacing="10" cellpadding="0">
164 
		<tr>
 163 
      <tr>
165 
          <td align="left" class="body_col"><img src="images/i_rtag_open_mode.gif" border="0" align="absmiddle" width="15" height="13">&nbsp;Release Manager<hr size="1px" color="Olive" noshade></td>
 164 
         <td align="left" class="body_col"><img src="images/i_rtag_open_mode.gif" border="0" align="absmiddle" width="15" height="13">&nbsp;Release Manager<hr size="1px" color="Olive" noshade></td>
166 
		  <td align="right" class="body_col"><img src="images/i_rtag_archive_mode.gif" border="0" align="absmiddle" width="15" height="13">&nbsp;Archive Manager<hr size="1px" color="Olive" noshade></td>
 165 
         <td align="right" class="body_col"><img src="images/i_rtag_archive_mode.gif" border="0" align="absmiddle" width="15" height="13">&nbsp;Archive Manager<hr size="1px" color="Olive" noshade></td>
167 
        </tr>
 166 
      </tr>
168 
        <tr>
 167 
      <tr>
169 
          <td align="left">
 168 
         <td align="left">
170
169 
 
171 
		  <%
 170 
            <%
172 
		  Dim rsQry
 171 
            Dim rsQry
173 
		  Set rsQry = OraDatabase.DbCreateDynaset( "select * from "&_
 172 
            Set rsQry = OraDatabase.DbCreateDynaset( "select * from "&_
174 
		  " release_tags rt, projects prj where rt.official ='A' and prj.proj_id = rt.proj_id and "&_
 173 
            " release_tags rt, projects prj where rt.official ='A' and prj.proj_id = rt.proj_id and "&_
175 
		  " rt.rtag_id not in (select rtag_id from archive_manager.release_tags) order by rt.rtag_id desc", cint(0))
 174 
            " rt.rtag_id not in (select rtag_id from archive_manager.release_tags) order by rt.rtag_id desc", cint(0))
176
175 
 
177 
		  If ((rsQry.BOF) AND (rsQry.EOF)) Then%>
 176 
            If ((rsQry.BOF) AND (rsQry.EOF)) Then%>
178 
			<select name="rtagA" id="rtagA" class="form_item" disabled>
 177 
               <select name="rtagA" id="rtagA" class="form_item" disabled>
179 
			<option>No releases to be archived</option>
 178 
                  <option>No releases to be archived</option>
180 
			</select>
 179 
               </select>
181 
		  <%Else%>
 180 
            <%Else%>
182 
			<select name="rtagA" id="rtagA" class="form_item">
 181 
               <select name="rtagA" id="rtagA" class="form_item">
183 
			<%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
 182 
                  <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
184 
			  <option value="<%=rsQry("rtag_id")%>"><%=rsQry("proj_name")%> - <%=rsQry("rtag_name")%></option>
 183 
                     <option value="<%=rsQry("rtag_id")%>"><%=rsQry("proj_name")%> - <%=rsQry("rtag_name")%></option>
185 
			<%rsQry.MoveNext
 184 
                     <%rsQry.MoveNext
186 
			WEnd%>
 185 
                  WEnd%>
187 
			</select>
 186 
               </select>
188 
			<input type="submit" name="btn" value="--->" class="form_btn_comp">
 187 
               <input type="submit" name="btn" value="--->" class="form_btn_comp">
189 
		  <%End If
 188 
            <%End If
190
189 
 
191 
		  rsQry.Close
 190 
            rsQry.Close
192 
		  Set rsQry = Nothing
 191 
            Set rsQry = Nothing
193 
		  %>
 192 
            %>
194 
 
 - 
 
195 
		  </td>
 193 
         </td>
196 
        <td align="right">
 194 
         <td align="right">
197 
		  <input type="submit" name="btn" value="<---" class="form_btn_comp">
 195 
            <input type="submit" name="btn" value="<---" class="form_btn_comp">
198 
		  <select name="rtagB" id="rtagB" class="form_item">
 196 
            <select name="rtagB" id="rtagB" class="form_item">
199 
			  <%
 197 
               <%
200 
			  Set rsQry = OraDatabase.DbCreateDynaset( "select * from "&_
 198 
               Set rsQry = OraDatabase.DbCreateDynaset( "select * from "&_
201 
			  " archive_manager.release_tags rt, projects prj where prj.proj_id = rt.proj_id "&_
 199 
               " archive_manager.release_tags rt, projects prj where prj.proj_id = rt.proj_id "&_
202 
			" order by rt.rtag_id desc", cint(0))
 200 
               " order by rt.rtag_id desc", cint(0))
203
201 
 
204 
			  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
 202 
               While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
205 
                <option value="<%=rsQry("rtag_id")%>"><%=rsQry("proj_name")%> - <%=rsQry("rtag_name")%></option>
 203 
                  <option value="<%=rsQry("rtag_id")%>"><%=rsQry("proj_name")%> - <%=rsQry("rtag_name")%></option>
206 
              <%rsQry.MoveNext
 204 
                  <%rsQry.MoveNext
207 
			  WEnd
 205 
               WEnd
208
206 
 
209 
			  rsQry.Close
 207 
               rsQry.Close
210 
			  Set rsQry = Nothing
 208 
               Set rsQry = Nothing
211 
			  %>
 209 
               %>
212 
		  </select>
 210 
            </select>
213
211 
 
214 
		  </td>
212 
         </td>
215 
        </tr>
 213 
      </tr>
216 
    </table>
214 
   </table>
217 
</form>
215 
</form>
218 
</body>
 216 
</body>
219 
</html>
 217 
</html>
220 
<!-- FOOTER -->
 218 
<!-- FOOTER -->
221 
<!--#include file="_footer.asp"-->
 219 
<!--#include file="_footer.asp"-->
222 
<%
 220 
<%
223 
Call Destroy_All_Objects
 221 
Call Destroy_All_Objects
224 
%>
 - 
 
225 

            222
            
%>

          

          

            -
            
 

            223