%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| ADMIN licences | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim canEdit, canDelete, canCreate '------------ Constants Declaration ----------- '------------ Variable Init ------------------- canEdit = canActionControl("EditBaseViews") canDelete = canActionControl("DeleteBaseViews") canCreate = canActionControl("CreateBaseViews") '---------------------------------------------- %>
| Base View Name | Count | Edit | <% Dim view_id, name, count, rsQry, SqlQry, rmText SqlQry = "select vv.VIEW_ID, vv.VIEW_NAME, count from ( " &_ "select rc.base_view_id, count(pv.pkg_id) as count from release_content rc, views v, package_versions pv " &_ "where rc.base_view_id = v.view_id " &_ "AND rc.pv_id = pv.pv_id " &_ "and v.BASE_VIEW = 'Y' " &_ "group by rc.base_view_id " &_ ") t1 " &_ "join views vv on t1.base_view_id(+) = vv.view_id where vv.BASE_VIEW = 'Y' " &_ "order by upper(view_name)" Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) view_id = rsQry("view_id") name = rsQry("view_name") count = rsQry("count") %>
|---|---|---|
| <%=name%> | <%=count%> | <%BuildEditButtonRaw canEdit, "", "", FALSE, LIMG_EDIT, "MM_openVixIFrame('_wform_edit_baseview.asp?view_id="&view_id&"','Edit Base Name')" %> <%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&"'});" %> |
| <%BuildActionButtonClickRaw canCreate, " New Base View", "", TRUE, _ "src='images/i_new_group.gif' width='20' height='20' align='absmiddle' border='0'",_ "MM_openVixIFrame('_wform_new_group.asp?noFrame=1','New Base View Name')" %> | ||