Rev 7562 | Rev 7699 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
6470 | bpr | 1 | !set wims_backslash_insmath=yes |
33 | reyssat | 2 | # basic variable preparation. |
3 | !if robot isin $session |
||
4 | !exit |
||
5 | !endif |
||
6 | |||
5352 | guerimand | 7 | !if $wims_user=supervisor or $wims_supconnectshowed=yes |
5220 | guerimand | 8 | !readproc adm/whoconnect |
9 | !endif |
||
10 | |||
2865 | guerimand | 11 | !if $directworksheet!=$empty |
2940 | guerimand | 12 | !changeto launchseries.proc |
2865 | guerimand | 13 | !endif |
14 | |||
33 | reyssat | 15 | wims_prefix=class user tmp cdt search m |
16 | wims_writable=exolist titlelist exototal package lastsearch \ |
||
7562 | bpr | 17 | titb keyw datm prev next upbl dat1 dat2 front_exist |
3598 | guerimand | 18 | wims_readable=session wims_session wims_class wims_user lang module cmd front_exist |
33 | reyssat | 19 | |
20 | !read ./tabletheme |
||
21 | !read ./formcolors |
||
1532 | guerimand | 22 | !read names.$lang |
23 | !read adm/search_engine/names.$lang |
||
33 | reyssat | 24 | !read ./languages |
25 | module_language=$lang |
||
26 | subclasscnt=0 |
||
27 | |||
2571 | bpr | 28 | test=!record 0 of wimshome/public_html/modules/adm/browse/index |
33 | reyssat | 29 | !if $test!=$empty |
30 | has_browse=yes |
||
31 | browse_parm=job=$browse_job&parm=$browse_parm |
||
32 | !endif |
||
33 | |||
34 | !if $wims_user!=$empty |
||
35 | !readdef ./wimshome/log/classes/$wims_class/.def |
||
36 | !default class_typename=class |
||
37 | !endif |
||
38 | |||
39 | !if $wims_user=$empty or $wims_user=supervisor or _tool isin $wims_session |
||
40 | !read search.proc |
||
2670 | bpr | 41 | s_lang=$search_lang |
33 | reyssat | 42 | s_category=$search_category |
43 | s_keywords=$search_keywords |
||
44 | !if $s_keywords!=$empty and $s_category!=V and $readback!=yes |
||
45 | c=$gotcnt |
||
46 | !if $gottype!=search |
||
47 | c=0 |
||
48 | !endif |
||
49 | !read wimshome/$s2dir/home_lastsearch |
||
2670 | bpr | 50 | !if $s_lang,$s_category,$s_keywords!=$lastsearch |
51 | wims_module_log=$(s_lang)_$s_category=$c: $s_keywords |
||
52 | !writefile wimshome/$s2dir/home_lastsearch lastsearch=$s_lang,$s_category,$s_keywords |
||
33 | reyssat | 53 | !endif |
54 | !endif |
||
55 | !endif |
||
56 | |||
57 | !if $wims_user=supervisor |
||
1427 | bpr | 58 | docpubliccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex |
33 | reyssat | 59 | doccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index |
60 | sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
||
3245 | guerimand | 61 | min_sheet_erasable=0 |
62 | !for k=1 to $sheetcnt |
||
63 | t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets |
||
64 | t=!line 1 of $t |
||
65 | !if $t>0 |
||
66 | min_sheet_erasable=$k |
||
67 | !endif |
||
68 | !next k |
||
33 | reyssat | 69 | examcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams |
3245 | guerimand | 70 | min_exam_erasable=0 |
71 | !for k=1 to $examcnt |
||
72 | t=!record $k of wimshome/log/classes/$wims_class/exams/.exams |
||
73 | t=!line 1 of $t |
||
74 | !if $t>0 |
||
75 | min_exam_erasable=$k |
||
76 | !endif |
||
77 | !next k |
||
33 | reyssat | 78 | votecnt=!recordcnt wimshome/log/classes/$wims_class/vote/.votes |
79 | !read wimshome/log/classes/$wims_class/Exindex |
||
80 | !read ./adm/du $wims_home/log/classes/$wims_class |
||
225 | guerimand | 81 | !if $class_type=4 and $wims_superclass_quota!=$empty |
7562 | bpr | 82 | quota_free=$[$wims_superclass_quota-$du] |
225 | guerimand | 83 | !else |
84 | quota_free=$[$wims_class_quota-$du] |
||
85 | !endif |
||
33 | reyssat | 86 | !endif |
87 | |||
88 | !if $wims_user!=$empty |
||
89 | !if $wims_class_refcolor!=$empty |
||
90 | wims_ref_bgcolor=$wims_class_refcolor |
||
91 | !endif |
||
92 | !read ./var.msgcnt |
||
93 | !default class_type=0 |
||
94 | !if $class_type=2 |
||
95 | !exchange wims_institutionname, wims_classname |
||
96 | !endif |
||
97 | !if $class_type=1 |
||
98 | parentcheck=!defof user_class in wimshome/log/classes/$wims_class/.users/$wims_user |
||
99 | !if $parentcheck!=$empty |
||
100 | class_parent=$wims_superclass/$parentcheck |
||
101 | !endif |
||
102 | !endif |
||
103 | !if $class_type>=2 |
||
104 | !read adm/class/userdef logclasses,$wims_class,$wims_user |
||
105 | supervisable=!defof user_supervisable in $userdef |
||
106 | !if $class_type=4 |
||
107 | subclasses=!record 0 of wimshome/log/classes/$wims_class/classes |
||
108 | subclasses=!column 1 of $subclasses |
||
109 | subclasses=!makelist $wims_class/x for x in $subclasses |
||
110 | subclasscnt=!itemcnt $subclasses |
||
111 | !if $wims_user=supervisor |
||
112 | subclasscnt=0 |
||
113 | !endif |
||
114 | subclass1=$wims_participate |
||
115 | !endif |
||
116 | !if $class_type=3 |
||
117 | subclasses=!record 0 of wimshome/log/classes/$wims_class/courses |
||
118 | split=!translate internal / to , in $wims_class |
||
119 | subclasset=!record 0 of wimshome/log/classes/$(split[1])/$(split[2])/icourses |
||
120 | subclasses=!append line $subclasset to $subclasses |
||
121 | subclasset=!record 0 of wimshome/log/classes/$(split[1])/icourses |
||
122 | subclasses=!append line $subclasset to $subclasses |
||
123 | subclasses=!column 1 of $subclasses |
||
124 | subclasses=!listuniq $subclasses |
||
125 | subclasses=!makelist $wims_superclass/x for x in $subclasses |
||
126 | subclasscnt=!itemcnt $subclasses |
||
127 | !if $wims_user=supervisor |
||
128 | subclasscnt=0 |
||
129 | !endif |
||
130 | subclass1=$class_ocourses |
||
131 | subclass1=!makelist $wims_superclass/x for x in $subclass1 |
||
132 | upart=!listcomplement $wims_class in $wims_participate |
||
133 | upart2=!defof user_courses in wimshome/log/classes/$wims_class/.users/$wims_user |
||
134 | !if $upart2!=$empty |
||
135 | upart2=!makelist $wims_superclass/x for x in $upart2 |
||
136 | upart=!append item $upart2 to $upart |
||
137 | !endif |
||
138 | subclass1=!listunion $subclass1 and $upart |
||
139 | !endif |
||
140 | !if $class_type=2 |
||
141 | subclasses=!sh cut -d, -f1 $wims_home/log/classes/$wims_class/.subclasses |
||
142 | subclasses=!replace internal : by $ in $subclasses |
||
143 | subclasses=!words2items $subclasses |
||
144 | subcnt=!recordcnt wimshome/log/classes/$wims_class/.subclasses |
||
145 | subclasscnt=!itemcnt $subclasses |
||
146 | subclass1=$wims_participate |
||
147 | !endif |
||
148 | subclass1=!sort items $subclass1 |
||
149 | subclass2=!listcomplement $subclass1 in $subclasses |
||
150 | !if $class_type iswordof 4 2 |
||
151 | subclass3=$wims_supervise |
||
152 | !endif |
||
153 | subclasscnt1=!itemcnt $subclass1 |
||
154 | subclasscnt2=!itemcnt $subclass2 |
||
155 | subclasscnt3=!itemcnt $subclass3 |
||
156 | !endif |
||
157 | !readproc ./var.cdt |
||
158 | !endif |