Subversion Repositories DevTools

Rev

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

Rev 6579 Rev 6750
Line 100... Line 100...
100 
	objEH.ErrorRedirect = FALSE
 100 
	objEH.ErrorRedirect = FALSE
101 
	objEH.TryORA ( OraSession )
 101 
	objEH.TryORA ( OraSession )
102 
	On Error Resume Next
 102 
	On Error Resume Next
103
103
104 
	' Remove old Work in Progress Contents
 104 
	' Remove old Work in Progress Contents
105 
	OraDatabase.ExecuteSQL _
 - 
 
106 
		"BEGIN  PK_RELEASE.IMPORT_RELEASE_CONTENTS (:FROMRTAG_ID, :TORTAG_ID, :USER_ID); END;"
 105 
	OraDatabase.ExecuteSQL "BEGIN  PK_RELEASE.IMPORT_RELEASE_CONTENTS (:FROMRTAG_ID, :TORTAG_ID, :USER_ID); END;"
- 
 
 106 
 
- 
 
 107 
	OraDatabase.Parameters.Remove "FROMRTAG_ID"
- 
 
 108 
	OraDatabase.Parameters.Remove "TORTAG_ID"
- 
 
 109 
	OraDatabase.Parameters.Remove "USER_ID"
107
110
108 
  	objEH.CatchORA ( OraSession )
 111 
  	objEH.CatchORA ( OraSession )
109 
     If objEH.Finally Then
 112 
     If objEH.Finally Then
110 
        Call OpenInParentWindow ("dependencies.asp?rtag_id=" & NNToRtag_id)
 113 
        Call OpenInParentWindow ("dependencies.asp?rtag_id=" & NNToRtag_id)
111 
        Call CloseWindow()
 114 
        Call CloseWindow()
112 
     End If
 115 
     End If
113 
 
 116 
 
114 
	OraDatabase.Parameters.Remove "FROMRTAG_ID"
 - 
 
115 
	OraDatabase.Parameters.Remove "TORTAG_ID"
 - 
 
116 
	OraDatabase.Parameters.Remove "USER_ID"
 - 
 
117 
End Function
 117 
End Function
118 
 
 118 
 
119 
%>
 119 
%>
120 
<%
 120 
<%
121 
'Process submition
 121 
'Process submition
Line 146... Line 146...
146 
  <table width="100%" border="0" cellspacing="0" cellpadding="2">
 146 
  <table width="100%" border="0" cellspacing="0" cellpadding="2">
147 
    <tr>
 147 
    <tr>
148 
        <td colspan="2" class="body_txt">
 148 
        <td colspan="2" class="body_txt">
149 
            Select the source Project and Release.
 149 
            Select the source Project and Release.
150 
            <br>All packages from the selected Release will be imported into this Release.
 150 
            <br>All packages from the selected Release will be imported into this Release.
- 
 
 151 
            <br>Note: The current set of packages will be deleted.
151 
            <p>
 152 
            <p>
152 
        </td>
 153 
        </td>
153 
    </tr>
 154 
    </tr>
154 
    <tr>
155 
    <tr>
155 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
156 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">