Subversion Repositories DevTools

Rev

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

Rev 5957 Rev 5963
Line 99... Line 99...
99 
             ",SUNOS_ELECTRONIC_NAME  = '" & Request("SUNOS_ELECTRONIC_NAME") & "'"&_
 99 
             ",SUNOS_ELECTRONIC_NAME  = '" & Request("SUNOS_ELECTRONIC_NAME") & "'"&_
100 
             ",DEFAULT_PEGGED  = " & check2Yes(Request("DEFAULT_PEGGED")) &_
 100 
             ",DEFAULT_PEGGED  = " & check2Yes(Request("DEFAULT_PEGGED")) &_
101 
             ",DEFAULT_ADVISORY_RIPPLE  = " & check2Yes(Request("DEFAULT_ADVISORY_RIPPLE")) &_
 101 
             ",DEFAULT_ADVISORY_RIPPLE  = " & check2Yes(Request("DEFAULT_ADVISORY_RIPPLE")) &_
102 
             " WHERE PKG_ID = '" & parPkgId & "'"
 102 
             " WHERE PKG_ID = '" & parPkgId & "'"
103 
    objEH.TryORA ( OraSession )
 103 
    objEH.TryORA ( OraSession )
- 
 
 104 
	On Error Resume Next
104 
	OraDatabase.ExecuteSQL sqlStr
 105 
	OraDatabase.ExecuteSQL sqlStr
105 
	objEH.CatchORA ( OraSession )
 106 
	objEH.CatchORA ( OraSession )
106 
 
 107 
 
107 
    If objEH.Finally Then
 108 
    If objEH.Finally Then
108 
        Call OpenInWindow ( SCRIPT_NAME + "?pkgFilter=" + Request("pkgFilter") )
 109 
        Call OpenInWindow ( SCRIPT_NAME + "?pkgFilter=" + Request("pkgFilter") )
109 
    End If
 110 
    End If
- 
 
 111 
	On Error GoTo 0
110 
End If
 112 
End If
111 
%>
 113 
%>
112 
<html>
 114 
<html>
113 
<head>
 115 
<head>
114 
<title>Package Administration</title>
 116 
<title>Package Administration</title>