Subversion Repositories DevTools

Rev

Rev 6892 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
6584 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|                 ADMIN licences                    |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
12
Response.Expires = 0    ' always load the page, dont store
13
%>
14
<!--#include file="common/conf.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/qstr.asp"-->
18
<!--#include file="common/common_subs.asp"-->
19
<!--#include file="common/_form_window_common.asp"-->
20
<!--#include file="_action_buttons.asp"-->
21
 
22
<!--#include file="class/classActionButtonControl.asp"-->
23
 
24
<%
25
'------------ ACCESS CONTROL ------------------
26
%>
27
<!--#include file="_access_control_login_optional.asp"-->
28
<!--#include file="_access_control_general.asp"-->
29
<%
30
'------------ Variable Definition -------------
31
Dim canEdit, canDelete, canCreate
32
'------------ Constants Declaration -----------
33
'------------ Variable Init -------------------
34
canEdit = canActionControl("EditBaseViews")
35
canDelete = canActionControl("DeleteBaseViews")
36
canCreate = canActionControl("CreateBaseViews")
37
'----------------------------------------------
38
%>
39
<html>
40
<head>
41
<title>BaseView Administration</title>
42
<link rel="shortcut icon" href="<%=FavIcon%>"/>
43
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
44
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
45
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
46
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
47
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
48
<!--#include file="_jquery_includes.asp"-->
49
<!-- DROPDOWN MENUS -->
50
<!--#include file="_menu_def.asp"-->
51
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
52
</head>
53
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
54
<!-- HEADER -->
55
<!--#include file="_header.asp"-->
56
  <div class="div_table">
6793 dpurdie 57
    <td>
58
        <table border="0" cellspacing="1" cellpadding="2" class='stdBrown center_table'>
59
            <caption>Package Base Views</caption>
60
            <thead>
6877 dpurdie 61
                <!-- BASE VIEW DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
6892 dpurdie 62
                <th nowrap>Base View Name</th>
63
                <th nowrap>Count</th>
64
                <th nowrap>Edit</th>
6793 dpurdie 65
            </thead>
6584 dpurdie 66
 
6793 dpurdie 67
      <%
68
       Dim view_id, name, count, rsQry, SqlQry, rmText
6584 dpurdie 69
 
6793 dpurdie 70
       SqlQry = "select vv.VIEW_ID, vv.VIEW_NAME, count from ( " &_
71
                "select rc.base_view_id, count(pv.pkg_id) as count from release_content rc, views v, package_versions pv " &_
72
                "where rc.base_view_id = v.view_id " &_
73
                "AND rc.pv_id = pv.pv_id " &_
74
                "and v.BASE_VIEW = 'Y' " &_
75
                "group by rc.base_view_id " &_
76
                ") t1 " &_
77
                "join views vv on t1.base_view_id(+) = vv.view_id where vv.BASE_VIEW = 'Y' " &_
78
                "order by upper(view_name)"
6584 dpurdie 79
 
6793 dpurdie 80
       Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
81
       While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
82
          view_id = rsQry("view_id")
83
          name = rsQry("view_name")
84
          count = rsQry("count")
85
          %>
86
          <tr>  
87
            <td nowrap><%=name%></td>
88
            <td nowrap><%=count%></td>
6892 dpurdie 89
            <td class=tight>
90
                <%BuildEditButtonRaw canEdit, "", "", FALSE, LIMG_EDIT, "MM_openVixIFrame('_wform_edit_baseview.asp?view_id="&view_id&"','Edit Base Name')" %>
91
                <%BuildEditButtonRaw canDelete and isNull(count), "", "", FALSE, LIMG_NDEL, "vixConfirm('Delete the \'Base View\' named \'"&name&"\'',{title : 'Delete Base View', button:'Delete', url: '_DeleteBaseView.asp?view_id="&view_id&"'});" %>
92
            </td>
6793 dpurdie 93
          </tr> 
94
          <%
95
          rsQry.MoveNext()
96
      Wend
97
      rsQry.Close()
98
      Set rsQry = nothing
99
      %>
100
    <tr>
6892 dpurdie 101
        <td colspan='3' align=right>    
6827 dpurdie 102
            <%BuildActionButtonClickRaw canCreate, "&nbsp;New Base View", "", TRUE, _
103
            "src='images/i_new_group.gif' width='20' height='20' align='absmiddle' border='0'",_
104
            "MM_openVixIFrame('_wform_new_group.asp?noFrame=1','New Base View Name')" %>
6793 dpurdie 105
        </td>
106
    </tr>
107
</table>
108
</div>
6584 dpurdie 109
<!-- FOOTER -->
110
<!--#include file="_footer.asp"-->
111
</body>
112
</html>