Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5590
Line 1... Line 1...
1
<%@LANGUAGE="VBSCRIPT"%>
1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
2
<%
-
 
3
'=====================================================
-
 
4
'|
-
 
5
'|  _wform_change_previous_version.asp
-
 
6
'|      Chnage the previous version of a package
-
 
7
'|      This page is designed to operation within an iframe
-
 
8
'|
-
 
9
'=====================================================
-
 
10
%>
-
 
11
<%
3
Option explicit
12
Option explicit
4
Response.Expires = 0	' always load the page, dont store
13
Response.Expires = 0	' always load the page, dont store
5
%>
14
%>
6
<%
15
<%
7
'=====================================================
16
'=====================================================
Line 69... Line 78...
69
Sub Update_Previous_Version ( NNpv_id, nLast_pv_id )
78
Sub Update_Previous_Version ( NNpv_id, nLast_pv_id )
70
	Dim rsTemp, Query_String
79
	Dim rsTemp, Query_String
71
	If nLast_pv_id = "" Then nLast_pv_id = NULL
80
	If nLast_pv_id = "" Then nLast_pv_id = NULL
72
	
81
	
73
	Query_String = _
82
	Query_String = _
74
	" SELECT last_pv_id, release_notes_info"&_
83
	"SELECT last_pv_id, release_notes_info"&_
75
	" FROM package_versions"&_
84
	" FROM package_versions"&_
76
	" WHERE pv_id = "& NNpv_id 
85
	" WHERE pv_id = "& NNpv_id 
77
	
86
	
78
	Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
87
	Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
79
	'update fields
88
	'update fields
Line 88... Line 97...
88
%>
97
%>
89
<%
98
<%
90
'Process submition
99
'Process submition
91
If CBool(QStrPar("action")) AND  objAccessControl.UserLogedIn Then
100
If CBool(QStrPar("action")) AND  objAccessControl.UserLogedIn Then
92
	Call Update_Previous_Version ( parPv_id, Request("last_pv_id") )
101
	Call Update_Previous_Version ( parPv_id, Request("last_pv_id") )
93
	
-
 
94
	Call OpenInParentWindow ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
102
	Call ReloadParentWindow
95
	Call CloseWindow
103
    Call CloseWindow
96
	
-
 
97
	
-
 
98
End If
104
End If
99
%>
105
%>
100
<%
106
<%
101
Call Short_Pkg_Info ( parPv_id )
107
Call Short_Pkg_Info ( parPv_id )
102
%>
108
%>
Line 112... Line 118...
112
<script language="JavaScript" src="images/_help_tips.js"></script>
118
<script language="JavaScript" src="images/_help_tips.js"></script>
113
<script language="JavaScript" src="images/common.js"></script>
119
<script language="JavaScript" src="images/common.js"></script>
114
</head>
120
</head>
115
 
121
 
116
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
122
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
117
<form name="preversion" method="post" action="<%=scriptName%>">
123
<form name="preversion" method="post" action="<%=scriptName%>" class="form_tight">
118
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
124
  <table border="0" cellspacing="0" cellpadding="2" width="100%">
119
    <tr> 
-
 
120
      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_off.gif" width="18" height="23" hspace="5"></td>
-
 
121
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Previous 
-
 
122
        Version </td>
-
 
123
      <td background="images/lbox_bg_blue.gif" align="right" width="50%"> 
-
 
124
        <input type="submit" name="btn" value="Update" class="form_btn_comp">
-
 
125
        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
-
 
126
      </td>
-
 
127
      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap> 
-
 
128
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
-
 
129
    </tr>
-
 
130
    <tr> 
125
    <tr> 
131
      <td height="100%" width="1%">&nbsp;</td>
-
 
132
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif"> 
126
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif"> 
133
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
127
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
134
          <tr> 
128
          <tr> 
135
            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
-
 
136
            <td width="1%" nowrap class="form_group" valign="bottom"></td>
-
 
137
            <td nowrap width="100%">&nbsp; </td>
-
 
138
          </tr>
-
 
139
          <tr> 
-
 
140
            <td width="1%">&nbsp;</td>
-
 
141
            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Package</td>
129
            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Package</td>
142
            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt"> 
130
            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt"> 
143
              <%=pkgInfoHash.Item ("pkg_name")%></td>
131
              <%=pkgInfoHash.Item ("pkg_name")%></td>
144
          </tr>
132
          </tr>
145
          <tr> 
133
          <tr> 
146
            <td width="1%">&nbsp;</td>
-
 
147
            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Previous 
134
            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Previous Version </td>
148
              Version </td>
-
 
149
            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
135
            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
150
			<select name="last_pv_id" class="form_item">
136
			<select name="last_pv_id" class="form_item">
151
				<option></option>
137
				<option></option>
152
                <%
138
                <%
153
			    Dim rsQry,aVersions,lastRow,objSortHelper,i
139
			    Dim rsQry,aVersions,lastRow,objSortHelper,i
Line 186... Line 172...
186
			<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
172
			<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
187
			<input type="hidden" name="rfile" value="<%=parRfile%>">
173
			<input type="hidden" name="rfile" value="<%=parRfile%>">
188
			<input type="hidden" name="action" value="true">
174
			<input type="hidden" name="action" value="true">
189
            </td>
175
            </td>
190
          </tr>
176
          </tr>
191
          <tr> 
-
 
192
            <td width="1%">&nbsp;</td>
-
 
193
            <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
-
 
194
            <td nowrap width="100%"> 
-
 
195
              <p>&nbsp;</p>
-
 
196
            </td>
-
 
197
          </tr>
-
 
198
        </table>
177
        </table>
199
      </td>
178
      </td>
200
    </tr>
179
    </tr>
201
    <tr>
180
    <tr> 
-
 
181
      <td align="right"> 
202
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
182
        <input type="submit" name="btn" value="Update" class="form_btn_comp">
203
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
183
        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="parent.closeIFrame();">
204
    </tr>
184
      </td>
205
  </table>
185
  </table>
206
</form>
186
</form>
207
<!-- TIPS LAYERS -------------------------------------->
187
<!-- TIPS LAYERS -------------------------------------->
208
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
188
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
209
<!----------------------------------------------------->
189
<!----------------------------------------------------->