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_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'>"
Const LIMG_ROW_EDIT   = "<img src='icons/i_edit.gif' width='16' height='16' border='0' hspace='2' title='Edit'>"
'------------ 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 NOT objAccessControl.UserLogedIn Then
    Call Destroy_All_Objects
        Response.Redirect("message.asp?msg=401-9")
End If
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 )
        OraDatabase.ExecuteSQL sqlStr
        objEH.CatchORA ( OraSession )

    If objEH.Finally Then
        Call OpenInWindow ( SCRIPT_NAME + "?pkgFilter=" + Request("pkgFilter") )
    End If
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" type="text/css">
<link rel="stylesheet" href="images/navigation.css" type="text/css">
<script language="JavaScript" src="images/common.js"></script>
<!-- DROPDOWN MENUS -->
<!--#include file="_menu_def.asp"-->
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
<!-- LOCAL STYLING -->
<style>
.edit {background-color:#FFFFE1}
.display {background-color:white}
.border {background-color:#F2F0E4}
.outerTable {background-color:#DAD7C8}
</style>
</head>
<body text="#000000" leftmargin="0" topmargin="0" >
<!-- MENU LAYERS -------------------------------------->
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"> 
</div>
<!-- TIPS LAYERS -------------------------------------->
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
<!-- HEADER -->
<!--#include file="_header.asp"-->
<div class="div_table">
  <%
  '-- FROM START ---------------------------------------------------------------------------------------------------------
  objFormComponent.FormName = "PackageAdmin"
  objFormComponent.Action = ScriptName
  objFormComponent.OnSubmit = "ShowProgress();"
  Call objFormComponent.FormStart()
  %>
    <span class="form_item">
        Package Filter: <input type="text" name="pkgFilter" value="<%=Request("pkgFilter")%>">
    </span>
    <table class="embedded_table">
      <tr>
        <td class="outerTable">
          <table width="100%"  border="0" cellspacing="1" cellpadding="2">
            <tr>
              <td width="1%" class="border"></td>
              <td width="1%" class="border body_col" nowrap>Package Name </td>
              <td width="1%" class="border body_col" nowrap>SunOs Name</td>
              <td width="1%" class="border body_col" nowrap>Windows Name</td>
              <td width="1%" class="border body_col" nowrap>Default Peg</td>
              <td width="1%" class="border body_col" nowrap>Default Ripple</td>
              <td width="1%" class="border">&nbsp;</td>
            </tr>
                                          <!-- 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='body_row edit'"
                    rowBorder = "class='edit'"
                    editMode = "update"
                Else
                    rowClass = "class='body_row display'"
                    rowBorder = "class='border'"
                End If

                        %>
                  <tr>
                    <td <%=rowBorder%> align="center"></td>
                    <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")%>"><%=LIMG_ROW_EDIT %></a>
                    <%END IF%>
                    </td>
                  </tr>
                  <%
                rsPkg.MoveNext
                  WEnd
                        <!-- ++ Error Message Display ++++++++ -->
                      If rsPkg.RecordCount < 1 Then
              %>
                              <tr>
                  <td class="border"></td> 
                    <td colspan="5" nowrap class="display err_alert" style="text-align: center">
                        <b>No packages selected by filters</b>
                    </td>
                  <td class="border"></td> 
                    </tr>
                      <%End If%>
                        <!-- +++++++++++++++++++++++++++++++++ -->
            <tr>
            <td class="border"</td>
            <td class="border"</td>
            <td class="border"</td>
            <td class="border"</td>
            <td class="border"</td>
            <td class="border"</td>
            <td class="border"</td>
            </tr>
                        </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>