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