<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| ADMIN Page | '| Package Properties | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim objBtnControl Dim rsPkg Dim SCRIPT_NAME Dim peg_checked Dim adr_checked Dim parPkgId Dim editMode Dim SqlStr Dim canEdit Dim rowClass, rowBorder '------------ Constants Declaration ----------- Const LIMG_ROW_SUBMIT = "" Const LIMG_ROW_CANCEL = "" '------------ Variable Init ------------------- Set objBtnControl = New ActionButtonControl SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 ) parPkgId = Request("PkgId") editMode = "none" canEdit = false '---------------------------------------------- %> <% '------------------------------------------------------------------------------ ' Function: Get_Packages ' Description: Get a list of packages to be displayed ' Will be either selected by name or only packages with defined defaults Function Get_Packages If Request("pkgFilter") <> "" Then Get_Packages = _ " SELECT * FROM PACKAGES " &_ " WHERE PKG_NAME LIKE '%"&Request("pkgFilter")&"%'" &_ " ORDER BY pkg_name ASC" Else Get_Packages = _ " SELECT * FROM PACKAGES " &_ " WHERE DEFAULT_PEGGED is not NULL " &_ " OR DEFAULT_ADVISORY_RIPPLE is not NULL" &_ " ORDER BY pkg_name ASC" End If End Function '-------------Page Access Condition-------------------------------------------- If canActionControlInProject("EditPackageProperties") Then canEdit = true Else parPkgId = NULL End If '------------- Before Render -------------------------------------------------- '------------------------------------------------- ' Function: check2Yes ' Description: Convert the value of a checkbox into a 'Y" or a empty value Function check2Yes(val) If val = "on" Then check2Yes = "'Y'" Else check2Yes = "''" End If End Function '------------------------------------------------- ' Update edited values If canEdit AND Request("action") = "update" AND parPkgId <> "" Then sqlStr = "UPDATE PACKAGES SET" &_ " WIN_ELECTRONIC_NAME = '" & Request("WIN_ELECTRONIC_NAME") & "'"&_ ",SUNOS_ELECTRONIC_NAME = '" & Request("SUNOS_ELECTRONIC_NAME") & "'"&_ ",DEFAULT_PEGGED = " & check2Yes(Request("DEFAULT_PEGGED")) &_ ",DEFAULT_ADVISORY_RIPPLE = " & check2Yes(Request("DEFAULT_ADVISORY_RIPPLE")) &_ " WHERE PKG_ID = '" & parPkgId & "'" objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL sqlStr objEH.CatchORA ( OraSession ) If objEH.Finally Then Call OpenInWindow ( SCRIPT_NAME + "?pkgFilter=" + Request("pkgFilter") ) End If On Error GoTo 0 End If %> Package Administration
<% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "PackageAdmin" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> > <%Call objFormComponent.FormEnd()%>
Package Filter: "> <%Set rsPkg = OraDatabase.DbCreateDynaset( Get_Packages, cint(0)) While ((NOT rsPkg.BOF) AND (NOT rsPkg.EOF)) peg_checked = "" adr_checked = "" If rsPkg.Fields("DEFAULT_PEGGED") = "Y" Then peg_checked = "checked" If rsPkg.Fields("DEFAULT_ADVISORY_RIPPLE") = "Y" Then adr_checked = "checked" If parPkgId = rsPkg.Fields("PKG_ID") THEN rowClass = "class='edit'" rowBorder = "class='edit tight'" editMode = "update" Else rowClass = "class='display'" rowBorder = "class='border tight'" End If %> <%If parPkgId = rsPkg.Fields("PKG_ID") THEN%> <%ELSE%> <%END IF%> <% rsPkg.MoveNext WEnd If rsPkg.RecordCount < 1 Then %> <%End If%>
Package Name SunOs Name Windows Name Default Peg Default Ripple Edit
nowrap><%=rsPkg.Fields("PKG_NAME")%> nowrap> "> nowrap> "> " nowrap> > " nowrap> > nowrap><%=rsPkg.Fields("SUNOS_ELECTRONIC_NAME")%> nowrap><%=rsPkg.Fields("WIN_ELECTRONIC_NAME")%> nowrap>> nowrap>>> <%If parPkgId = rsPkg.Fields("PKG_ID") THEN%> <%=LIMG_ROW_SUBMIT %> "><%=LIMG_ROW_CANCEL%> <%ELSEIF parPkgId <> "" OR NOT canEdit THEN%> <%ELSE%> &pkgFilter=<%=Request("pkgFilter")%>"><%=LIMG_EDIT %> <%END IF%>
No packages selected by filters