Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'|                                                   |

'|				    ADMIN Page	     	        	 |

'|                 Package Properties              	 |

'|                                        			 |

'=====================================================

%>

<%

Option explicit

' Good idea to set when using redirect

Response.Expires = 0	' always load the page, dont store

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/formating.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="sec/Crypt.asp"-->

<!--#include file="common/_form_window_common.asp"-->

<!--#include file="_action_buttons.asp"-->

<!--#include file="class/classActionButtonControl.asp"-->

<%

'------------ ACCESS CONTROL ------------------

%>

<!--#include file="_access_control_login_optional.asp"-->

<!--#include file="_access_control_general.asp"-->

<%

'------------ 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 = "<input name='btn' type='image' src='icons/btn_row_submit.gif' width='53' height='16' hspace='2' border='0' title='Submit this entry'>"

Const LIMG_ROW_CANCEL = "<img src='icons/bi_cancel.gif' width='16' height='16' border='0' hspace='2' title='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

%>

<html>

<head>

<title>Package Administration</title>

<link rel="shortcut icon" href="<%=FavIcon%>"/>

<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">

<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">

<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>

<!--#include file="_jquery_includes.asp"-->

<!-- DROPDOWN MENUS -->

<!--#include file="_menu_def.asp"-->

<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>

<!-- LOCAL STYLING -->

<style>

.edit {background-color:#FFFFE1}

.display {background-color:white}

.border {background-color:#F2F0E4}

</style>

</head>

<body text="#000000" leftmargin="0" topmargin="0" >

<!-- HEADER -->

<!--#include file="_header.asp"-->

<div class="div_table">

  <%

  '-- FROM START ---------------------------------------------------------------------------------------------------------

  objFormComponent.FormName = "PackageAdmin"

  objFormComponent.Action = ScriptName

  objFormComponent.OnSubmit = "ShowProgress();"

  Call objFormComponent.FormStart()

  %>

    <table class="embedded_table center_table">

      <tr>

        <td>

        <span class="form_item">

            Package Filter: <input type="text" name="pkgFilter" value="<%=Request("pkgFilter")%>">

        </span>

          <table  border="0" cellspacing="1" cellpadding="2" class='stdBrown center_table'>

              <thead>

                <tr>

                  <th nowrap>Package Name </th>

                  <th nowrap>SunOs Name</th>

                  <th nowrap>Windows Name</th>

                  <th nowrap>Default Peg</th>

                  <th nowrap>Default Ripple</th>

                  <th >Edit</th>

                </tr>

              </thead>

					  <!-- NORMAL ROW +++++++++++++++++++ -->

				    <%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'"

                    editMode = "update"

                Else

                    rowClass = "class='display'"

                    rowBorder = "class='border'"

                End If

		        %>

	          <tr>

	            <td <%=rowClass%> nowrap><%=rsPkg.Fields("PKG_NAME")%></td>

                <%If parPkgId = rsPkg.Fields("PKG_ID") THEN%>

    	            <td <%=rowClass%> nowrap>

                      <input type="text" name="SUNOS_ELECTRONIC_NAME" class='form_iname' value="<%=rsPkg.Fields("SUNOS_ELECTRONIC_NAME")%>">

                    </td>

    	            <td <%=rowClass%> nowrap>

                      <input type="text" name="WIN_ELECTRONIC_NAME" class='form_iname' value="<%=rsPkg.Fields("WIN_ELECTRONIC_NAME")%>">

                    </td>

    	            <td <%=rowClass%>" nowrap>

                      <input type="checkbox" name="DEFAULT_PEGGED" class='form_iname' <%=peg_checked%>>

                    </td>

    	            <td <%=rowClass%>" nowrap>

                      <input type="checkbox" name="DEFAULT_ADVISORY_RIPPLE" class='form_iname'<%=adr_checked%>>

                    </td>

                <%ELSE%>

    	            <td <%=rowClass%> nowrap><%=rsPkg.Fields("SUNOS_ELECTRONIC_NAME")%></td>

    	            <td <%=rowClass%> nowrap><%=rsPkg.Fields("WIN_ELECTRONIC_NAME")%></td>

    	            <td <%=rowClass%> nowrap><input type="checkbox" disabled <%=peg_checked%>></td>

    	            <td <%=rowClass%> nowrap><input type="checkbox" disabled <%=adr_checked%>></td>

                <%END IF%>

	                <td align="center" nowrap <%=rowBorder%>>

                    <%If parPkgId = rsPkg.Fields("PKG_ID") THEN%>

                        <%=LIMG_ROW_SUBMIT %>

                        <a href="<%=SCRIPT_NAME%>?pkgFilter=<%=Request("pkgFilter")%>"><%=LIMG_ROW_CANCEL%></a>

                    <%ELSEIF parPkgId <> "" OR NOT canEdit THEN%>

                    <%ELSE%>

                        <a href="<%=SCRIPT_NAME%>?action=edit&pkgId=<%=rsPkg.Fields("PKG_ID")%>&pkgFilter=<%=Request("pkgFilter")%>"><span title='Edit'><%=LIMG_EDIT %></span></a>

                    <%END IF%>

                    </td>

	          </tr>

	          <%

                rsPkg.MoveNext

	          WEnd

			<!-- ++ Error Message Display ++++++++ -->

		      If rsPkg.RecordCount < 1 Then

              %>

			      <tr>

    	            <td align=center colspan="5" nowrap class="display err_alert">

                        <b>No packages selected by filters</b>

                    </td>

                  <td class="border"></td> 

	            </tr>

		      <%End If%>

			</table>

        </td>

        </tr>

		  <%=objPMod.ComposeHiddenTags()%>

		  <input type="hidden" name="action" value=<%=editMode%>>

		  <input type="hidden" name="pkgId" value="<%=parPkgId%>">

		  </form>

		  <%Call objFormComponent.FormEnd()%>

    </table>

  </div>

<!-- FOOTER -->

<!--#include file="_footer.asp"-->

</body>

</html>