Блок «Подвал»

Формирование блока «Подвал» производится выполнением следующего кода:

<tr><td ALIGN="left" valign="top" width="50%">

<font color="#FFFFFF"><span><%=COPYRIGHT%></span></font>

</td>

<td ALIGN="RIGHT" valign="top" width="50%">

<font color="#FFFFFF"><span><i><%=PRODUCT_NAME%></i> <%=VERSION%>   <%=VERSION_DATE%></span></font><%If bIsDebug Then response.write "<br>Exec time: "&FormatNumber(Timer - tmExec,3)&"c"& " / "& NSNow%>

</td></tr>

Блок «Контент»

Данный блок формируется процедурой GetCurMenuFolders() сценария Folders.asp:

Sub GetCurMenuFolders()

Select Case currMenuItem

Case miSetupSchoolProfile

If HasUserRight (arProfileEditSchoolInfo) Or HasUserRight (arProfileViewSchoolInfo) Then arrFolders(1) = tbSchoolInfo

If HasUserRight(arProfileEditRegionalSettings) Then arrFolders(2) = tbRegSettings

If HasUserRight (arEditSchoolSettings) Then arrFolders(3) = tbSchoolSettings

If HasUserRight (arProfileDefineSecurityRoles) Then arrFolders(4) = tbSecRoles

If HasUserRight (arEditReferenceBook) Then arrFolders(5) = tbReferenceBook

Case miSetupSchoolUsers

If HasUserRight(arUsersEditStaff) Or HasUserRight (arUsersEditStaffMedInfo) Or HasUserRight (arShortInfoStaff) Then arrFolders(1) = tbStaff

If HasUserRight(arUsersEditStudents) Or HasUserRight(arEditInfoSelf) Or HasUserRight(arShortInfoStudents) Or HasUserRight(arUsersEditStudentsPsyInfo) Then

arrFolders(2) = tbStudents : arrFolders(3) = tbParents

Else

If HasUserRight(arUsersEditStudentsMedInfo) Then arrFolders(2) = tbStudents

End If

Case miSetupSchoolCalendar

If HasUserRight(arSchoolSubjects) Then

If Not bIsEMForSchool Then

arrFolders(2) = tbSchoolSubjects

arrFolders(3) = tbCuriculumComponents

arrFolders(4) = tbCuriculumProfiles

arrFolders(5) = tbCuriculumLimits

End If

arrFolders(6) = tbCuriculumPlan

End If

If HasUserRight(arCreateCloseEditYear) Or HasUserRight(arMoveBookEdit) Then arrFolders(1) = tbYear

Case miSetupSchoolMove

If HasUserRight(arMoveBookView) Or HasUserRight(arMoveBookEdit) Then arrFolders(1) = tbMoveBook

Case miClassManagement

If HasUserRight(arClassMgmViewClassSubjAll) Then

arrFolders(1) = tbCrtClass

arrFolders(2) = tbSubjects

If Not bIsEMForSchool And strFunctionalityType<>kFuncType_PreSchool Then arrFolders(3) = tbEnrlClass

Else

If HasUserRight(arClassMgmCreateClass) Then arrFolders(1) = tbCrtClass

If HasUserRight(arClassMgmEditSubjects) Then arrFolders(2) = tbSubjects

If HasUserRight(arClassMgmEnrollClass) And strFunctionalityType<>kFuncType_PreSchool Then arrFolders(3) = tbEnrlClass

End If

Case miCurriculumManagement

If HasUserRight(arCurrMgmCreate) Or HasUserRight(arCurrMgmCreateAll) Then

arrFolders(1) = tbCreateCur

ElseIf HasUserRight(arCurrMgmViewSelf) Or HasUserRight(arCurrMgmViewAll) Then

arrFolders(1) = tbCreateCur

End If

Case miMyCalendar

If HasUserRight(arCalendarViewSelf) Or HasUserRight(arCalendarViewAll) Then

arrFolders(1) = tbClndrYear

arrFolders(2) = tbClndrMonth

arrFolders(3) = tbClndrWeek

arrFolders(4) = tbClndrDay

ElseIf HasUserRight(arClassMgmPostClassEventSelf) Or HasUserRight(arClassMgmPostClassEventAll) Or HasUserRight(arPostSchoolEvent) Then

arrFolders(1) = tbClndrYear

End If

If HasUserRight(arCalendarCreateCalendar) Then arrFolders(5) = tbClassMeets : arrFolders(6) = tbTimes : arrFolders(7) = tbRooms

Case miGrades

If strFunctionalityType <> kFuncType_PreSchool Then

If HasUserRight(arJournalViewSelf) Or HasUserRight(arJournalViewAll) Or HasUserRight(arJournalEditSelf) Or HasUserRight(arJournalEditAll) Then arrFolders(1) = tbJurnal : arrFolders(2) = tbAttendance

If HasUserRight(arTotalsViewSelf) Or HasUserRight(arTotalsViewAll) Or HasUserRight(arTotalsEditSelf) Or HasUserRight(arTotalsEditAll) Then arrFolders(3) = tbTotals

Else

If HasUserRight(arJournalViewSelf) Or HasUserRight(arJournalViewAll) Or HasUserRight(arJournalEditSelf) Or HasUserRight(arJournalEditAll) Then arrFolders(1) = tbAttendance

End If

Case miReports

If HasUserRight(arReportsForAssignedClass) Or HasUserRight(arReportsForAllClasses) Or HasUserRight(arReportsViewForAssignedClass) Or HasUserRight(arReportsViewAdministrativeReports) Then

arrFolders(1) = tbReports

End If

Case miAnnouncements

arrFolders(1) = tbAnnView

If HasUserRight(arAnnouncementPost) Then arrFolders(2) = tbAnnPost

Case miMySettings

arrFolders(1) = tbSettings

End Select

End Sub