home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / survey_unconfigured / LibraryList.asp < prev    next >
Text File  |  2006-06-07  |  10KB  |  271 lines
  1. <!--#Include File="Include/Top_inc.asp"-->
  2. <%
  3. '***********************************************************************
  4. '   Application: SelectSurveyASP Advanced v8.1.7
  5. '   Author: Aaron Baril for ClassApps.com
  6. '   Page Description: This page displays a list of all libraries that the
  7. '                      current user has access to.  If the user is an "Admin",
  8. '                      all libraries in the system are displayed.  If the user
  9. '                      has "Create" permission, all libraries s/he owns, and all
  10. '                      libraries that have shared edit permission are displayed.
  11. '
  12. '   COPYRIGHT NOTICE
  13. '
  14. '   See attached Software License Agreement
  15. '
  16. '   (c) Copyright 2002 - 2006 by ClassApps.com.  All rights reserved.
  17. '***********************************************************************
  18. %>
  19. <!--#Include File="Include/Constants_inc.asp"-->
  20. <!--#Include File="Include/SurveyUtility_inc.asp"-->
  21. <!--#Include File="Include/Utility_inc.asp"-->
  22. <!--#Include File="Include/CurrentUser_inc.asp"-->
  23. <!--#Include File="Include/SurveySecurity_inc.asp"-->
  24. <!--#Include File="Include/Config_inc.asp"-->
  25. <!--#Include File="Include/adovbs_inc.asp"-->
  26. <%
  27.     Dim strPageTitle
  28.     Dim strSortColumn
  29.     Dim strSortOrder
  30.     Dim strTempSortOrder
  31.     Dim strTableRowColor
  32.  
  33.     'If the user does not have "Create" or "Admin" permission, redirect to the access denied page.
  34.     If lngUserSecurityLevel <> SUR_SECURITY_LEVEL_CREATE And lngUserSecurityLevel <> SUR_SECURITY_LEVEL_ADMIN Then
  35.         Response.Redirect "AccessDenied.asp?Reason=" & SUR_ACCESS_DENIED_NOT_ADMIN_SECURITY_LEVEL
  36.     End If
  37.  
  38.     strPageTitle = "Libraries"
  39.  
  40.     'Set the sort column and sort order
  41.     If Len(Request.QueryString("SortColumn")) > 0 Then
  42.         strSortColumn = Request.QueryString("SortColumn")
  43.         strSortOrder = Request.QueryString("SortOrder")
  44.     Else
  45.         strSortColumn = "library_name"
  46.         strSortOrder = SUR_SORT_ORDER_ASCENDING
  47.     End If
  48.  
  49.     'Initialize the row color
  50.     strTableRowColor = "TableRowLightColor"
  51. %>
  52. <html>
  53. <head>
  54.     <title><%=strPageTitle%></title>
  55.     <link rel="stylesheet" href="Resources/StyleSheet/SurveyStyle.css">
  56. </head>
  57. <script language="JavaScript">
  58. function deleteLibrary(lngLibraryID)
  59. {
  60.     if (confirm("Are you sure you want to delete this library?") == true) //OK
  61.     {
  62.         window.location.href = 'DeleteLibrary.asp?LibraryID=' + lngLibraryID;
  63.     }
  64. }
  65. </script>
  66.  
  67. <body class="MainBodyStyle">
  68.  
  69. <!--#Include File="Include/FrameworkTop_inc.asp"-->
  70.  
  71. <table width="754" border="0" cellpadding="0" cellspacing="0" class="MediumBlueBackgroundColor">
  72.     <tr>
  73.         <td width="493" align="left" height="36" valign="center">
  74.               <span class="H1HeadingStyle"><a name="skipnav" tabindex="1"><%=strPageTitle%></a></span> <img style="cursor:hand" alt="Help" onClick="javascript:window.open('Help/Help.htm#Libraries', null, 'menubar=no,toolbar=no,titlebar=no,status=no,left=10,top=10,scrollbars=yes,resizable=yes,height=550,width=770');" border="0" src="Resources/Images/Help.gif">
  75.         </td>
  76.         <td width="254" align="right" valign="center">
  77.             <a href="Library.asp?State=<%=SUR_STATE_INSERT%>">
  78.                 <img border="0" alt="Create new library" name="btnCreateLibrary" src="Resources/Buttons/CreateNewLibrary.gif">
  79.             </a>
  80.         </td>
  81.         <td width="7"> </td>
  82.     </tr>
  83. </table>
  84.  
  85. <!--#Include File="Include/FrameworkTop2_inc.asp"-->
  86.  
  87. <table name="tblLibraries" cellspacing="0" border="0" cellpadding="6" width="740" class="WhiteBackgroundColor" summary="This page displays a list of all libraries.  If the use is an Admin, then all libraries in the application are displayed.  If the user has Create permission, then only the libraries that this user owns are displayed.">
  88.     <tr class="TableHeadingColor" height="40" >
  89.         <th id="Active" align="center" width="45" valign="center">
  90. <%
  91.             'Determine the sort order if the user clicks this column heading
  92.             If strSortColumn = "active_yn" Then
  93.                 If strSortOrder = SUR_SORT_ORDER_ASCENDING Then
  94.                     strTempSortOrder = SUR_SORT_ORDER_DESCENDING
  95.                 Else
  96.                     strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  97.                 End If
  98.             Else
  99.                 strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  100.             End If
  101. %>
  102.             <span class="TableHeadingBold"><a href="LibraryList.asp?SortColumn=active_yn&SortOrder=<%=strTempSortOrder%>">Active</a></span>
  103.         </th>
  104.         <th id="Name" align="center" width="360" valign="center">
  105. <%
  106.             'Determine the sort order if the user clicks this column heading
  107.             If strSortColumn = "library_name" Then
  108.                 If strSortOrder = SUR_SORT_ORDER_ASCENDING Then
  109.                     strTempSortOrder = SUR_SORT_ORDER_DESCENDING
  110.                 Else
  111.                     strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  112.                 End If
  113.             Else
  114.                 strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  115.             End If
  116. %>
  117.             <span class="TableHeadingBold"><a href="LibraryList.asp?SortColumn=library_name&SortOrder=<%=strTempSortOrder%>">Library Name</a></span>
  118.         </th>
  119.         <th id="Public" align="center" width="85" valign="center">
  120. <%
  121.             'Determine the sort order if the user clicks this column heading
  122.             If strSortColumn = "public_yn" Then
  123.                 If strSortOrder = SUR_SORT_ORDER_ASCENDING Then
  124.                     strTempSortOrder = SUR_SORT_ORDER_DESCENDING
  125.                 Else
  126.                     strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  127.                 End If
  128.             Else
  129.                 strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  130.             End If
  131. %>
  132.             <span class="TableHeadingBold"><a href="LibraryList.asp?SortColumn=public_yn&SortOrder=<%=strTempSortOrder%>">Public Use</a></span>
  133.         </th>
  134.         <th id="CreatedDate" align="center" width="100" valign="center">
  135. <%
  136.             'Determine the sort order if the user clicks this column heading
  137.             If strSortColumn = "created_date" Then
  138.                 If strSortOrder = SUR_SORT_ORDER_ASCENDING Then
  139.                     strTempSortOrder = SUR_SORT_ORDER_DESCENDING
  140.                 Else
  141.                     strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  142.                 End If
  143.             Else
  144.                 strTempSortOrder = SUR_SORT_ORDER_ASCENDING
  145.             End If
  146. %>
  147.             <span class="TableHeadingBold"><a href="LibraryList.asp?SortColumn=created_date&SortOrder=<%=strTempSortOrder%>">Date Created</a></span>
  148.         </th>
  149.         <th id="Design" align="center" width="50" valign="center">
  150.             <span class="TableHeadingBold">Design</span>
  151.         </th>
  152.         <th id="Edit" align="center" width="50" valign="center">
  153.             <span class="TableHeadingBold">Edit</span>
  154.         </th>
  155.         <th id="Delete" align="center" width="50" valign="center">
  156.             <span class="TableHeadingBold">Delete</span>
  157.         </th>
  158.     </tr>
  159. <%
  160.     Dim strSQL
  161.     Dim rsLibraries
  162.     Dim lngLibraryID
  163.     Dim strLibraryName
  164.     Dim lngCurrentUserID
  165.  
  166.     'Initialization
  167.     Set rsLibraries = Server.CreateObject("ADODB.Recordset")
  168.     lngCurrentUserID = GetUserID()
  169.  
  170.     'Select the list of all libraries that the current user can edit.
  171.     strSQL = "SELECT library_id, library_name, active_yn, public_yn, created_date, user_id " & _
  172.              "FROM sur_library "
  173.     'If the user is not an admin, limit the libraries to only those libraries where either the user is an owner
  174.     'or where the library is publicly editable.
  175.     If lngUserSecurityLevel <> SUR_SECURITY_LEVEL_ADMIN Then
  176.         '**SB 6/7/2006 create level was not seeing public libraries
  177.         'strSQL = strSQL & "WHERE user_id = " & GetUserID()
  178.         strSQL = strSQL & "WHERE public_yn = 'Y' or user_id = " & GetUserID()
  179.     End If
  180.  
  181.     'Add the ORDER BY clause and execute the query
  182.     strSQL = strSQL & " ORDER BY " & strSortColumn & " " & strSortOrder
  183.     rsLibraries.Open ConvertSQL(strSQL), SURVEY_APP_CONNECTION, adOpenForwardOnly, adLockReadOnly, adCmdText
  184.  
  185.     If rsLibraries.EOF = True Then
  186. %>
  187.         <tr class="TableRowLightColor">
  188.             <td class="Normal" colspan="7">
  189.                 You do not currently have any libraries.
  190.                 <br><br><br><br><br><br><br><br><br>
  191.             </td>
  192.         </tr>
  193. <%
  194.     Else
  195.         rsLibraries.MoveFirst
  196.         Do While Not rsLibraries.EOF
  197.             lngLibraryID = rsLibraries("library_id")
  198.             strLibraryName = rsLibraries("library_name")
  199. %>
  200.             <tr class="<%=strTableRowColor%>">
  201.                 <td align="center" class="Normal" valign="center">
  202. <%
  203.                     'Format the Y/N flag to either Yes or No
  204.                     If rsLibraries("active_yn") = SUR_BOOLEAN_POSITIVE Then
  205. %>
  206.                         <%=SUR_BOOLEAN_POSITIVE_DISPLAY%>
  207. <%
  208.                     Else
  209. %>
  210.                         <%=SUR_BOOLEAN_NEGATIVE_DISPLAY%>
  211. <%
  212.                     End If
  213. %>
  214.                 </td>
  215.                 <td class="Normal">
  216.                     <%=strLibraryName%>
  217.                 </td>
  218.                 <td align="center" class="Normal" valign="center">
  219. <%
  220.                     'Format the Y/N flag to either Yes or No
  221.                     If rsLibraries("public_yn") = SUR_BOOLEAN_POSITIVE Then
  222. %>
  223.                         <%=SUR_BOOLEAN_POSITIVE_DISPLAY%>
  224. <%
  225.                     Else
  226. %>
  227.                         <%=SUR_BOOLEAN_NEGATIVE_DISPLAY%>
  228. <%
  229.                     End If
  230. %>
  231.                 </td>
  232.                 <td align="center" class="Normal">
  233.                     <%=CustomDateFormatDisplay(DateValue(rsLibraries("created_date")))%>
  234.                 </td>
  235.                 <td align="center" class="Normal">
  236.                     <a href="ModifyLibrary.asp?LibraryID=<%=lngLibraryID%>"><img alt="Manage the questions in this library" src="Resources/Icons/Design.gif" border="0" onMouseOver="this.style.cursor='hand'"></a>
  237.                 </td>
  238.                 <td align="center" class="Normal">
  239.                     <a href="Library.asp?State=Edit&LibraryID=<%=lngLibraryID%>"><img alt="Edit the options for this library" src="Resources/Icons/Edit.gif" border="0" onMouseOver="this.style.cursor='hand'"></a>
  240.                 </td>
  241.                 <td align="center" class="Normal">
  242.                     <a href="javascript:deleteLibrary('<%=lngLibraryID%>');"><img alt="Delete this library" src="Resources/Icons/Delete.gif" border="0" onMouseOver="this.style.cursor='hand'"></a>
  243.                 </td>
  244.             </tr>
  245. <%
  246.             'Alternate the colors for the rows in the table
  247.             If strTableRowColor = "TableRowDarkColor" Then
  248.                 strTableRowColor = "TableRowLightColor"
  249.             Else
  250.                 strTableRowColor = "TableRowDarkColor"
  251.             End If
  252.  
  253.             rsLibraries.MoveNext
  254.         Loop
  255.     End If
  256. %>
  257. </table>
  258.  
  259. <!--#Include File="Include/FrameworkBottom_inc.asp"-->
  260.  
  261. </body>
  262. </html>
  263. <%
  264.     'Clean up
  265.     rsLibraries.Close
  266.     Set rsLibraries = Nothing
  267.  
  268.     'Ensure that the web server returns the page
  269.     Response.Flush
  270. %>
  271.