Subversion Repositories DevTools

Rev

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

Rev 6676 Rev 6693
Line 50... Line 50...
50
Sub DestroyPackage ( nPvId, cOverrideWarnings, outProblemsString )
50
Sub DestroyPackage ( nPvId, cOverrideWarnings, outProblemsString )
51
 
51
 
52
   OraDatabase.Parameters.Add "PV_ID",             nPvId,             ORAPARM_INPUT,  ORATYPE_NUMBER
52
   OraDatabase.Parameters.Add "PV_ID",             nPvId,             ORAPARM_INPUT,  ORATYPE_NUMBER
53
   OraDatabase.Parameters.Add "OVERRIDE_WARNINGS", cOverrideWarnings, ORAPARM_INPUT,  ORATYPE_CHAR
53
   OraDatabase.Parameters.Add "OVERRIDE_WARNINGS", cOverrideWarnings, ORAPARM_INPUT,  ORATYPE_CHAR
54
   OraDatabase.Parameters.Add "PROBLEM_STRING",    NULL,              ORAPARM_OUTPUT, ORATYPE_VARCHAR2
54
   OraDatabase.Parameters.Add "PROBLEM_STRING",    NULL,              ORAPARM_OUTPUT, ORATYPE_VARCHAR2
-
 
55
   OraDatabase.Parameters("PROBLEM_STRING").MinimumSize = 1000
55
 
56
 
56
   'Response.write nPvId &"-"& cOverrideWarnings &"-"& Request("btn")
57
   'Response.write nPvId &"-"& cOverrideWarnings &"-"& Request("btn")
57
 
58
 
58
   objEH.TryORA ( OraSession )
59
   objEH.TryORA ( OraSession )
59
   On Error Resume Next
60
   On Error Resume Next
60
 
-
 
61
   OraDatabase.ExecuteSQL _
61
   OraDatabase.ExecuteSQL _
62
   "BEGIN "&_
62
   "BEGIN "&_
63
   " PK_PACKAGE.DESTROY_PACKAGE ( :PV_ID, :OVERRIDE_WARNINGS, :PROBLEM_STRING ); "&_
63
   " PK_PACKAGE.DESTROY_PACKAGE ( :PV_ID, :OVERRIDE_WARNINGS, :PROBLEM_STRING ); "&_
64
   "END; "
64
   "END; "
65
 
65
 
Line 356... Line 356...
356
                        <tr>
356
                        <tr>
357
                           <td nowrap class="body_rowg"></td>
357
                           <td nowrap class="body_rowg"></td>
358
                           <td nowrap class="body_rowg"><%=rsQry("pkg_name")%></td>
358
                           <td nowrap class="body_rowg"><%=rsQry("pkg_name")%></td>
359
                           <td nowrap class="body_rowg"><%=rsQry("pkg_version")%></td>
359
                           <td nowrap class="body_rowg"><%=rsQry("pkg_version")%></td>
360
                        <%If ProblemInfo.Count > 0 Then%>
360
                        <%If ProblemInfo.Count > 0 Then%>
361
                           <td nowrap class="body_rowg err_alert"><%=ProblemInfo.Item(CStr(rsQry("pv_id")))%></td>
361
                           <td nowrap class="body_rowg err_alert"><%=NewLine_To_BR(ProblemInfo.Item(CStr(rsQry("pv_id"))))%></td>
362
                        <%End If%>
362
                        <%End If%>
363
                        </tr>
363
                        </tr>
364
                        <%
364
                        <%
365
                        rsQry.MoveNext
365
                        rsQry.MoveNext
366
 
366