Subversion Repositories DevTools

Rev

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

Rev 5632 Rev 5952
Line 64... Line 64...
64 
        objEH.CatchORA ( OraSession )
 64 
        objEH.CatchORA ( OraSession )
65 
 
 65 
 
66 
        OraDatabase.Parameters.Remove "PV_ID"
 66 
        OraDatabase.Parameters.Remove "PV_ID"
67 
        OraDatabase.Parameters.Remove "RTAG_ID"
 67 
        OraDatabase.Parameters.Remove "RTAG_ID"
68 
        OraDatabase.Parameters.Remove "USER_ID"
 68 
        OraDatabase.Parameters.Remove "USER_ID"
69 
        OraDatabase.Parameters.Remove "FORCE_REMOVE"
 - 
 
70 
        OraDatabase.Parameters.Remove "RETURN_CODE"
 69 
        OraDatabase.Parameters.Remove "RETURN_CODE"
- 
 
 70 
        OraDatabase.Parameters.Remove "FORCE_REMOVE"
71 
 
 71 
 
72 
        If Not objEH.LastOraFailed Then
 72 
        If Not objEH.LastOraFailed Then
73 
         If bReleased Then
 73 
         If bReleased Then
74 
           Call objRC.Run_ReleaseChanged(parRtag_id,nPvId,enumRELEASE_CHANGE_MODE_PKG_REMOVED,false)
 74 
           Call objRC.Run_ReleaseChanged(parRtag_id,nPvId,enumRELEASE_CHANGE_MODE_PKG_REMOVED,false)
75 
         End If
75 
         End If
Line 144... Line 144...
144 
             <%
 144 
             <%
145 
             Dim currView_id
 145 
             Dim currView_id
146 
             currView_id = -1
 146 
             currView_id = -1
147 
             Dim rsRep
 147 
             Dim rsRep
148 
             Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 148 
             Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
- 
 
 149 
             OraDatabase.Parameters.Remove "RTAG_ID"
149 
 
 150 
 
150 
             If rsRep.RecordCount = 0 Then
 151 
             If rsRep.RecordCount = 0 Then
151 
                With Response
 152 
                With Response
152 
                   .write "<tr>"
 153 
                   .write "<tr>"
153 
                   .write "<td colspan='5' class='body_row'>Found 0 records</td>"
 154 
                   .write "<td colspan='5' class='body_row'>Found 0 records</td>"
Line 182... Line 183...
182 
                   <td nowrap class="body_row"><%=DisplayDate( rsRep("insert_stamp") )%> by <a href="mailto:<%=rsRep("insertor_email")%>" class="txt_linked"><%=rsRep("insertor")%></a>&nbsp;&nbsp;&nbsp;</td>
 183 
                   <td nowrap class="body_row"><%=DisplayDate( rsRep("insert_stamp") )%> by <a href="mailto:<%=rsRep("insertor_email")%>" class="txt_linked"><%=rsRep("insertor")%></a>&nbsp;&nbsp;&nbsp;</td>
183 
                   <td nowrap class="body_row"><input type="checkbox" name="list_pv_id" <%=enabledText%> value="<%=rsRep("pv_id")%>"></td>
 184 
                   <td nowrap class="body_row"><input type="checkbox" name="list_pv_id" <%=enabledText%> value="<%=rsRep("pv_id")%>"></td>
184 
                </tr>
 185 
                </tr>
185 
                <%  rsRep.MoveNext
 186 
                <%  rsRep.MoveNext
186 
             WEnd
 187 
             WEnd
- 
 
 188 
             rsRep.Close
- 
 
 189 
             Set rsRep = Nothing
187 
             %>
 190 
             %>
188 
             <tr>
 191 
             <tr>
189 
                <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 192 
                <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
190 
             </tr>
 193 
             </tr>
191 
             <tr>
 194 
             <tr>