<% Dim l_user As New ADXCalendar.ADXCalendarLogin(Session("account_id"), Session("DataConn_ConnectionString")) Dim a_mod As ADXCalendar.ADXCalendarModules = Session("ADXCalendarModules") Response.Write("") %> <% If a_mod.Calendar_FacilityModule = True Then 'This calendar has the facility module and this user has access to it... Response.Write("") End If Response.Write("") If a_mod.Calendar_PrivateModule = True And (l_user.GetPrivilegeViewPrivateEvents = "x") Then If Session("PrivateCalendarKeytext") = "##ODD##" Then Response.Write("") Else Response.Write("") End If End If Response.Write("") %> <% 'This is the object that will allow for testing on this page Response.Write("") %> ") 'This determines if a navigation table needs a breaker image after it Dim BreakerHTML As String = "" Dim pbl As String = l_user.GetPrivilegePublic() Dim prv As String = l_user.GetPrivilegePrivate() Dim facEnabled As Boolean = a_mod.Calendar_FacilityModule() If Session("AdministrationProccess") = "Import" Or Session("AdministrationProccess") = "Purge" Or (Session("EventProccess") <> "" and Session("EventProccess") <> "Notification") Then 'On If (facEnabled AndAlso l_user.UserHasDepartmentPrivilege = True) Or (Not facEnabled AndAlso (pbl = "x" Or prv = "x")) Or l_user.GetPrivilegePurge = "x" Or l_user.GetPrivilegeImportData = "x" Or l_user.GetPrivilegeExport = "x" Or l_user.GetPrivilegeRegistration = "x" Or l_user.GetAdvancedRegistrationFormsOwned.Count > 0 Then Response.Write("") Response.Write(BreakerHTML) End If Else 'Off If (facEnabled AndAlso l_user.UserHasDepartmentPrivilege = True) Or (Not facEnabled AndAlso (pbl = "x" Or prv = "x")) Or l_user.GetPrivilegePurge = "x" Or l_user.GetPrivilegeImportData = "x" Or l_user.GetPrivilegeExport = "x" Or l_user.GetPrivilegeRegistration = "x" Or l_user.GetAdvancedRegistrationFormsOwned.Count > 0 Then Response.Write("") Response.Write(BreakerHTML) End If End If If Session("AccountProccess") <> "" Or Session("DepartmentProccess") <> "" Then 'On Response.Write("") Else 'Off Response.Write("") End If Response.Write(BreakerHTML) If Session("LocationProccess") <> "" Or Session("BuildingProccess") <> "" Or Session("RoomProccess") <> "" Or Session("RoomTypeProcess") <> "" Or Session("RoomSetupTypeProcess") <> "" Or Session("RoomFeatureProcess") <> "" Then 'On 'Check for facilities If a_mod.Calendar_FacilityModule Then Response.Write("") Else Response.Write("") End If Else 'Off 'Check for facilities If a_mod.Calendar_FacilityModule Then Response.Write("") Else Response.Write("") End If End If Response.Write(BreakerHTML) If a_mod.Calendar_FacilityModule Then If Session("ResourceProcess") <> "" Then 'On Response.Write("") Else 'Off Response.Write("") End If Response.Write(BreakerHTML) End If If Session("CategoryProccess") <> "" Or Session("SubCategoryProccess") <> "" Then 'On Response.Write("") Else 'Off Response.Write("") End If If Session("EventProccess") = "Notification" Or Session("AdministrationProccess") = "GenerateCode" Or Session("MarketingProccess") <> "" Then 'On Response.Write(BreakerHTML) Response.Write("") Else If l_user.GetPrivilegeSendNotification = "x" Or l_user.GetPrivilegeTeaserScript = "x" Or l_user.GetPrivilegeTemplate = "x" Then 'Off Response.Write(BreakerHTML) Response.Write("") Else 'This user does not have Marketing permissions End If End If If l_user.GetPrivilegeViewReports() = "x" Then Response.Write(BreakerHTML) If Session("ReportsProccess") = "ShowReport" Then Response.Write("") Else Response.Write("") End If End If If Session("AdministrationProccess") = "Configure" Or Session("AdministrationProccess") = "LDAP" Or Session("AdministrationProccess") = "Registration" Then 'On Response.Write(BreakerHTML) Response.Write("") Else If l_user.GetPrivilegeConfiguration = "x" Or l_user.IsSuperuser = True or l_user.GetPrivilegeRegistrationForms = "x" Then 'Off Response.Write(BreakerHTML) Response.Write("") Else 'This user does not have Configuration permissions End If End If Response.Write(" <% Dim dash As String = " - " 'These go through all the possible paths the user can take through the admin. If Session("EventRegistration") = "Manage" Or Session("EventRegistration") = "ManageArchive" Or Session("AdministrationProccess") = "Import" Or Session("AdministrationProccess") = "Purge" Or (Session("EventProccess") <> "" And Session("EventProccess") <> "Notification") Then '********** EVENTS ********** If l_user.UserHasDepartmentPrivilege = True Or l_user.IsSuperuser = True Then If a_mod.Calendar_FacilityModule() = True Then 'Facility calendars only require departments permissions to use the event wizard Response.Write("  EVENTS: ") Response.Write("Add" & dash & "Modify/Cancel/Delete") ElseIf l_user.GetPrivilegePrivate() = "x" Or l_user.GetPrivilegePublic() = "x" Then 'Marketing calendar require public/private calendar permission to use the event wizard Response.Write("  EVENTS: ") Response.Write("Add" & dash & "Modify/Cancel/Delete") End If End If If l_user.GetPrivilegePurge = "x" Then Response.Write(dash & "Purge") End If If l_user.GetPrivilegeImportData = "x" Then Response.Write("  IMPORT: ") Response.Write("Add") Response.Write(dash & "Modify/Delete") Response.Write(dash & "View") End If If l_user.GetPrivilegeExport = "x" Then Response.Write("  EXPORT: ") Response.Write("Add") Response.Write(dash & "Modify/Delete") Response.Write(dash & "View") End If If l_user.GetPrivilegeRegistration = "x" Or l_user.GetAdvancedRegistrationFormsOwned.Count > 0 Then Response.Write("  REGISTRATION: ") Response.Write("Active") Response.Write(dash & "Archive") End If ElseIf Session("AccountProccess") <> "" Or Session("DepartmentProccess") <> "" Then '********** WORKFLOW ********** Dim DashNeeded As Boolean = False Dim AccountGroupCodeHTML As String = "GROUP(S):  " Dim AccountLabelNeeded As Boolean = True Dim AccountCodeHTML As String = "ACCOUNT(S):  " Dim DepartmentLabelNeeded As Boolean = True Dim DepartmentCodeHTML As String = "DEPARTMENT(S):  " If l_user.GetPrivilegeUserGroup <> "-" Then Response.Write(AccountGroupCodeHTML) Response.Write("Add" & dash) Response.Write("Modify/Delete" & dash) Response.Write("View") End If 'Add / Modify /Delete Accounts If l_user.GetPrivilegeAccount <> "---" Then Response.Write("  " & AccountCodeHTML) : AccountLabelNeeded = False DashNeeded = True Response.Write("Add" & dash) Response.Write("Modify/Delete") End If 'View Accounts If l_user.GetPrivilegeViewAccounts = "x" Then If AccountLabelNeeded Then Response.Write("  " & AccountCodeHTML) : AccountLabelNeeded = False If DashNeeded Then Response.Write(dash) DashNeeded = True Response.Write("View") End If 'Allways show the "My Profile" options If AccountLabelNeeded Then Response.Write(AccountCodeHTML) If DashNeeded Then Response.Write(dash) Response.Write("My Profile") 'Add / Modify / Delete Departments If l_user.GetPrivilegeDepartment = "xxx" Then Response.Write("  " & DepartmentCodeHTML) : DepartmentLabelNeeded = False Response.Write("Add" & dash) Response.Write("Modify/Delete") DashNeeded = True Else DashNeeded = False End If 'View Departments 'If l_user.GetPrivilegeViewAccounts = "x" Or l_user.GetPrivilegeDepartment = "xxx" Then If l_user.GetPrivilegeDepartment = "xxx" Then If DepartmentLabelNeeded Then Response.Write("  " & DepartmentCodeHTML) If DashNeeded Then Response.Write(dash) Response.Write("View") End If ElseIf Session("CategoryProccess") <> "" Or Session("SubCategoryProccess") <> "" Then '********** CATEGORIZATION ********** If l_user.GetPrivilegeCategorization = "xxx" Then 'Add / Modify / Delete Categorizations Response.Write("CATEGORY(S):  ") Response.Write("Add" & dash) Response.Write("Modify/Delete") Response.Write("  SUBCATEGORY(S):  ") Response.Write("Add" & dash) Response.Write("Modify/Delete  ") End If 'All Users Can View Categorizations Response.Write("View") ElseIf Session("LocationProccess") <> "" Or Session("BuildingProccess") <> "" Or Session("RoomProccess") <> "" Or Session("RoomTypeProcess") <> "" Or Session("RoomSetupTypeProcess") <> "" Or Session("RoomFeatureProcess") <> "" Then Dim facLinks As String = "" 'Manage Facilities If Session("LocationProccess") <> "" Or Session("BuildingProccess") <> "" Or Session("RoomProccess") <> "" Then If a_mod.Calendar_FacilityModule Then 'These are the facility toggle links facLinks = " SETUP" End If If l_user.GetPrivilegeLocation = "xxx" Then 'Add / Modify / Delete Locations Response.Write(" " & facLinks & " LOCATION(S): ") Response.Write("Add" & dash) Response.Write("Modify/Delete  ") Response.Write("BUILDING(S): ") Response.Write("Add" & dash) Response.Write("Modify/Delete  ") Response.Write("ROOM(S): ") Response.Write("Add" & dash) Response.Write("Modify/Delete  ") Response.Write("View ") Else 'Just show the 'View' options Response.Write(" " & facLinks & " LOCATION(S): ") Response.Write("View ") End If End If 'Setup Facilities If Session("RoomTypeProcess") <> "" Or Session("RoomSetupTypeProcess") <> "" Or Session("RoomFeatureProcess") <> "" Then 'Set the facility toggle link, no need to check for facility module... facLinks = " MANAGE" If l_user.GetPrivilegeFacilityManager() = "x" Then Response.Write(" " & facLinks & " ROOM TYPE(S): ") Response.Write("Add" & dash) Response.Write("Modify/Delete" & dash) Response.Write("View  ") Response.Write("SETUP OPTION(S): ") Response.Write("Add" & dash) Response.Write("Modify/Delete" & dash) Response.Write("View  ") Response.Write("ROOM FEATURE(S): ") Response.Write("Add" & dash) Response.Write("Modify/Delete" & dash) Response.Write("View ") Else 'Show just the 'View' options Response.Write(" " & facLinks & " ROOM TYPE(S): ") Response.Write("View  ") Response.Write("SETUP OPTION(S): ") Response.Write("View  ") Response.Write("ROOM FEATURE(S): ") Response.Write("View ") End If End If ElseIf Session("ResourceProcess") <> "" Then '********** RESOURCES ********** Dim DashNeeded As Boolean = False If l_user.GetPrivilegeResourceManager = "x" Then Response.Write("RESOURCE(S): ") Response.Write("Add" & dash) Response.Write("Modify/Delete") DashNeeded = True End If If DashNeeded Then Response.Write(dash) Response.Write("View") ElseIf Session("EventProccess") = "Notification" Or Session("AdministrationProccess") = "GenerateCode" Or Session("MarketingProccess") <> "" Then '********** MARKETING ********** Dim DashNeeded As Boolean = False Dim SyndicateCodeHTML As String = "  SYNDICATE:  " Dim GenerateCodeHTML As String = "  GENERATE:  " If l_user.GetPrivilegeTemplate = "x" Then Response.Write("TEMPLATE(S):  ") Response.Write("Add" & dash) Response.Write("Modify/Delete" & dash) Response.Write("View") End If If l_user.GetPrivilegeTeaserScript = "x" Then Response.Write(SyndicateCodeHTML) Response.Write("List" & dash) Response.Write("Grid" & dash) Response.Write("RSS") DashNeeded = True End If If l_user.GetPrivilegeTeaserScript = "x" Then Response.Write(GenerateCodeHTML) Response.Write("Quick Link") If l_user.GetPrivilegeSendNotification = "x" Then Response.Write(dash & "Email") End If End If ElseIf Session("ReportsProccess") = "ShowReport" Then '********** REPORTS ********** If a_mod.Calendar_FacilityModule() = True Then Response.Write("FACILITY: Utilization  ") Response.Write("RESOURCE: Utilization  ") Response.Write("OPERATIONS: Summary  ") End If Response.Write("EVENTS: Subscribers" & dash) Response.Write("Tracking" & dash) If a_mod.Calendar_FacilityModule() = True Then Response.Write("Exceptions" & dash) End If Response.Write("Category Stats" & dash) Response.Write("Location Stats" & dash) Response.Write("Pages") ElseIf Session("AdministrationProccess") <> "" Then '********** CONFIGURATION ********** If a_mod.Calendar_AdvancedRegistrationModule = True AndAlso l_user.GetPrivilegeRegistrationForms = "x" Then Response.Write("  REGISTRATION FORMS:  ") Response.Write("Add" & dash) Response.Write("Modify/Delete" & dash) Response.Write("View") Response.Write("  ") End If If l_user.GetPrivilegeConfiguration = "x" Then Response.Write("  CONFIGURABLE OPTIONS:  ") Response.Write("Setup Calendar") If l_user.IsSuperuser = True Then 'ONLY SUPERUSER CAN TOGGLE LDAP SUPPORT If Session("CurrentAction") = "Enable & Setup LDAP/AD" Then Response.Write(dash & "Enable LDAP/AD") Else Response.Write(dash & "Enable LDAP") End If End If End If End If l_user.DisposeADXCalendarLoginClass() %> <%Response.Write(Session("CurrentAction"))%> <%If Session("Steps") <> "" Then Response.Write(Session("Steps"))%>