Rev 14733 | Rev 15767 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1193 | bpr | 1 | !!##preparation of the "bottom menu" |
16 | reyssat | 2 | |
8597 | obado | 3 | !if _check isin $session or $wims_mode=popup |
15729 | reyssat | 4 | !read themes.phtml tail |
13743 | bpr | 5 | !exit |
16 | reyssat | 6 | !endif |
7 | |||
8 | !if _test isin $session and $wims_hacked_variables!=$empty |
||
11268 | obado | 9 | <p><span class="wims_warning">WIMS WARNING</span>. The following variables of your module could be hacked |
10 | by students using manually modified http addresses! You might want to put more |
||
11 | strict permissions to them in var.def, in order to build a secure exercise module. |
||
12 | </p> |
||
13 | <pre>$wims_hacked_variables</pre> |
||
16 | reyssat | 14 | !endif |
15 | |||
2373 | bpr | 16 | !read name.phtml.$lang |
9309 | bpr | 17 | !read themes/$wims_theme/name.phtml.$lang |
16 | reyssat | 18 | !default wims_homeref_bgcolor=$wims_ref_bgcolor |
4635 | bpr | 19 | !read themes/$wims_theme/local.phtml |
10057 | bpr | 20 | |
16 | reyssat | 21 | !if exam isin $wims_session |
11268 | obado | 22 | !read examclock.proc |
23 | !goto rmend |
||
16 | reyssat | 24 | !endif |
25 | |||
1193 | bpr | 26 | !if $wims_rm_1=no |
13743 | bpr | 27 | !reset wims_rm_1 |
28 | !goto local |
||
1193 | bpr | 29 | !endif |
16 | reyssat | 30 | !if $wims_rm_1!=$empty |
13743 | bpr | 31 | !goto rm2 |
16 | reyssat | 32 | !endif |
33 | !reset 1_ |
||
4346 | bpr | 34 | |
35 | !!********* Link #1 : "Close Window" or "Home" (Not Shown if Embedded) |
||
16 | reyssat | 36 | !if _ isin $wims_subsession |
13743 | bpr | 37 | !!set 1_=!append line back2,3,window.close() to $1_ |
16 | reyssat | 38 | !else |
13743 | bpr | 39 | !!set 1_=!append line class_home,1,session=$wims_session.1 to $1_ |
16 | reyssat | 40 | !endif |
2865 | guerimand | 41 | |
4346 | bpr | 42 | !!********* Link #2 : "Sheet" |
2865 | guerimand | 43 | !if $wims_sheet>0 or P isin $wims_sheet |
13743 | bpr | 44 | !if $wims_sheet>0 |
45 | !set tmp_=sheetmanagement,1,module=adm/class/sheet&sheet=$wims_sheet |
||
46 | !else |
||
47 | !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet& |
||
48 | !endif |
||
49 | !if yes notin $wims_lightpopup |
||
8597 | obado | 50 | !set 1_=!append line $tmp_ to $1_ |
13743 | bpr | 51 | !endif |
52 | !let wims_menu_items=!append line $tmp_ to $wims_menu_items |
||
53 | !if $wims_exo>1 |
||
54 | !let wims_menu_items=!append line previousseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo-1] to $wims_menu_items |
||
55 | !endif |
||
56 | !if $wims_exo<$wims_sheetmax |
||
57 | !let wims_menu_items=!append line nextseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo+1] to $wims_menu_items |
||
58 | !endif |
||
678 | guerimand | 59 | !endif |
4635 | bpr | 60 | |
4528 | bpr | 61 | !if $wims_sheet>0 or P isin $wims_sheet |
13743 | bpr | 62 | !if $(wims_exofeedback[$wims_exo;])!=$empty |
14646 | bpr | 63 | !if $module_score!=$empty |
64 | !set feedexotot=!declosing $(wims_exofeedback[$wims_exo;]) |
||
65 | !set feedexocnt=!itemcnt $(feedexotot[;1]) |
||
66 | !for t=1 to $feedexocnt |
||
67 | !set feedexo=$(feedexotot[$t;]) |
||
68 | !if $module_score < $(feedexo[2]) and $module_score >= $(feedexo[3]) |
||
69 | !if $module_score < 10 |
||
70 | !set 5_=!append line feedbackexo,7,$(feedexo[1]),mfeed to $5_ |
||
71 | !else |
||
72 | !set 5_=!append line feedbackplus,7,$(feedexo[1]),mfeed to $5_ |
||
73 | !endif |
||
74 | !endif |
||
75 | !next |
||
6298 | bpr | 76 | !endif |
4528 | bpr | 77 | !endif |
78 | !endif |
||
2865 | guerimand | 79 | |
4346 | bpr | 80 | !!********* Link #3 : "Resume" |
16 | reyssat | 81 | !if $cmd=help or $cmd=hint |
13743 | bpr | 82 | !set 1_=!append line resume,1,cmd=resume to $1_ |
16 | reyssat | 83 | !endif |
4346 | bpr | 84 | |
85 | !!********* Link #4 : "Introduction" (Not Shown if Embedded) |
||
16 | reyssat | 86 | !if $module_has_intro=yes and $cmd notwordof intro help and\ |
87 | $wims_sheet=$empty and exam notin $wims_session |
||
13743 | bpr | 88 | !!set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 to $1_ |
16 | reyssat | 89 | !endif |
4346 | bpr | 90 | |
91 | !!********* Link #5 : "Help" |
||
16 | reyssat | 92 | !if $module_has_help=yes and $cmd notwordof intro help |
13743 | bpr | 93 | !if $module_help=$empty or $module_help=popup |
94 | !!set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_ |
||
95 | !else |
||
96 | !!set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_ |
||
97 | !endif |
||
16 | reyssat | 98 | !endif |
4346 | bpr | 99 | |
100 | !!********* Link #6 : "About" |
||
16 | reyssat | 101 | !if $module_has_about=yes and $cmd notwordof help intro |
9800 | bpr | 102 | !!set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_ |
16 | reyssat | 103 | !endif |
9800 | bpr | 104 | |
1193 | bpr | 105 | !if print isin $job,$job2 or $print!= |
106 | !set 1_=!append line print,3,window.print() to $1_ |
||
107 | !endif |
||
1202 | bpr | 108 | !set wims_rm_1=$1_ |
8597 | obado | 109 | |
1202 | bpr | 110 | :local |
111 | !reset 1_ |
||
10057 | bpr | 112 | !if $wims_sheet!=$empty or _exam isin $wims_session |
113 | !set 1_=!append line itemsep,0,\ |
||
114 | tools,4,module=home,tool\ |
||
115 | to $1_ |
||
116 | !endif |
||
117 | |||
1193 | bpr | 118 | !if $wims_developer!=$empty and COPYING isin $module_copyright and ../classes/ notin ../$module |
12836 | bpr | 119 | !set V_=!char 1 of $module |
120 | !set M_=!translate internal / to , in $module |
||
121 | !set M_=!item 1 of $M_ |
||
122 | !if $V_ isin ABCDEFGHIJKLMNOPQRTSUVWXYZ or $M_ iswordof local contrib tool |
||
123 | !set 1_=!append line modify,1,module=adm/modtool&original=$module to $1_ |
||
124 | !endif |
||
1193 | bpr | 125 | !endif |
12836 | bpr | 126 | !if $wims_user=supervisor and $module=adm/class/glossary |
127 | !set 1_=!append line newglose,1,module=adm/tool/glossary&gl=0 to $1_ |
||
128 | !endif |
||
129 | !if $wims_user=supervisor and ((_adm/doc notin _$module and adddoc notin $module \ |
||
13743 | bpr | 130 | and (document iswordof $module_category or tool iswordof $module_category))\ |
131 | or _c isin _$doc) |
||
12370 | bpr | 132 | !if document iswordof $module_category or _c isin _$doc |
14192 | bpr | 133 | !set wims_homeref_parm=doc=$doc&block=$block&job=read |
134 | !set wims_homeref_parm=!replace internal & by %26 in $wims_homeref_parm |
||
2080 | bpr | 135 | !endif |
12569 | bpr | 136 | !if adm/tool/glossary isin $module |
12595 | bpr | 137 | !if $gl=0 |
138 | !if $special_parm!=$empty |
||
139 | !set wims_homeref_parm=!getopt gloss_item in $module_init_parm |
||
140 | !set 1_=!append line addglossary,1,module=adm/class/glossary&job=add&iniparm=$wims_homeref_parm to $1_ |
||
141 | !endif |
||
142 | !else |
||
143 | !set wims_homeref_parm=gl=$gl |
||
12836 | bpr | 144 | !set 1_=!append line newglose,1,module=adm/tool/glossary&gl=0 to $1_ |
12569 | bpr | 145 | !endif |
146 | !else |
||
147 | !if _c notin _$doc |
||
14733 | bpr | 148 | !default wims_homeref_parm=$module_init_parm |
12569 | bpr | 149 | !set 1_=!append line adddoc,1,module=adm/class/adddoc&job=add&dir=$module&iniparm=$wims_homeref_parm to $1_ |
150 | !endif |
||
12370 | bpr | 151 | !endif |
12595 | bpr | 152 | !if ($gl>0 and $cmd!=reply) or adm/tool/glossary notin $module |
153 | !set 1_=!append line addh,1,module=adm/class/addmodule&job=helpexo&dir=$module&iniparm=$wims_homeref_parm to $1_ |
||
154 | !endif |
||
2080 | bpr | 155 | !endif |
10321 | bpr | 156 | !if $wims_user=supervisor and $module=adm/doc |
157 | !set 1_=!append line doch_docs,1,module=adm/doc&job=home to $1_ |
||
158 | !endif |
||
1980 | guerimand | 159 | !if $special_parm4=$empty |
12515 | bpr | 160 | !if $cmd!=intro and $cmd!=help and $module!=home and \ |
13762 | bpr | 161 | ../adm/ notin ../$module and \ |
162 | (../devel/ notin ../$module or $wims_devel_modules iswordof open) \ |
||
163 | and exercise isin $module_category |
||
164 | !set wims_homeref_parm=!replace internal % by %25 in $module_init_parm |
||
165 | !set wims_homeref_parm=!replace internal + by %2B in $wims_homeref_parm |
||
166 | !set wims_homeref_parm=!replace internal & by %26 in $wims_homeref_parm |
||
167 | !set wims_homeref_parm=!replace internal ; by %3B in $wims_homeref_parm |
||
168 | !set wims_homeref_parm=!lines2rows $wims_homeref_parm |
||
12515 | bpr | 169 | !set 1_=!append line add,1,module=adm/class/addmodule&dir=$module&scoring=$module_scoring&iniparm=$wims_homeref_parm to $1_ |
170 | !set 1_=!append line addh,1,module=adm/class/addmodule&job=helpexo&dir=$module&scoring=$module_scoring&iniparm=$wims_homeref_parm to $1_ |
||
171 | !endif |
||
172 | !if $wims_user=supervisor and exam notin $session and \ |
||
13762 | bpr | 173 | ..classes/ notin ..$module and ..adm/ notin ..$module and \ |
174 | ..devel/ notin ..$module and \ |
||
175 | GNU isin $module_copyright and \ |
||
176 | _check notin $session and \ |
||
177 | $class_importation!=no and $thisexo!= |
||
12515 | bpr | 178 | !set 1_=!append line import,1,module=adm/createxo&existing=$thisexo&catmodule=$module to $1_ |
179 | !endif |
||
7182 | bpr | 180 | |
1980 | guerimand | 181 | !else |
12515 | bpr | 182 | !! ----- place pour ajouter le lien vers la modification de serie dans une feuille |
183 | !if $cmd!=intro and $cmd!=help and $module!=home and \ |
||
184 | ../adm/ notin ../$module and \ |
||
185 | (../devel/ notin ../$module or $wims_devel_modules iswordof open) |
||
186 | !set wims_homeref_parm=!replace % by %25 in $module_init_parm |
||
187 | !set wims_homeref_parm=!replace + by %2B in $wims_homeref_parm |
||
188 | !set wims_homeref_parm=!replace & by %26 in $wims_homeref_parm |
||
189 | !set 1_=!append line chseries,1,module=adm/class/sheet&dir=$module&scoring=$module_scoring&iniparm=$wims_homeref_parm&job=chseries&num=$special_parm4 to $1_ |
||
190 | !endif |
||
1980 | guerimand | 191 | !endif |
9703 | bpr | 192 | !! add module links to general links with a separation |
10285 | bpr | 193 | !if $wims_menu_items!=$empty |
194 | !set 1_=!append line itemsep,0,\ |
||
9703 | bpr | 195 | $wims_menu_items to $1_ |
10285 | bpr | 196 | !endif |
9281 | bpr | 197 | !if $wims_user=supervisor and $cmd!=intro and $cmd!=help and $module!=home and \ |
14338 | bpr | 198 | ../adm/ notin ../$module and ($module_category!=document or $job=exosource)\ |
199 | and $module_category!=help |
||
12515 | bpr | 200 | !!last condition is for the uniq module help/main.$lang |
10039 | bpr | 201 | !if $job=exosource |
202 | !set tmp=back2 |
||
203 | !if $block!=$empty |
||
204 | !set docbl=block=$block |
||
205 | !else |
||
206 | !reset docbl |
||
207 | !endif |
||
208 | !else |
||
209 | !set tmp=moduback |
||
210 | !endif |
||
211 | !set 1_=!append line $tmp,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4&$docbl to $1_ |
||
9281 | bpr | 212 | !endif |
7182 | bpr | 213 | !! next exo and prev exo in the menu for supervisor |
7188 | bpr | 214 | !if $wims_user=supervisor and $exoprev$exonext != $empty and $wims_sheet=$empty |
12515 | bpr | 215 | !set 1_=!append line itemsep,0\ |
10792 | bpr | 216 | prev,1,cmd=new&module=$module&exo=$exoprev&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 \ |
217 | to $1_ |
||
218 | !set 1_=!append line next,1,cmd=new&module=$module&exo=$exonext&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 \ |
||
219 | to $1_ |
||
7182 | bpr | 220 | !reset exoprev exonext |
221 | !endif |
||
222 | |||
7699 | bpr | 223 | !if $special_parm4=$empty |
12515 | bpr | 224 | !if $cmd!=intro and $cmd!=help and $module!=home and \ |
13915 | bpr | 225 | ../adm/ notin ../$module and \ |
226 | (../devel/ notin ../$module or $wims_devel_modules iswordof open) \ |
||
227 | and oef isin $module_category and $wims_classification_open=yes and ../devel/ notin ../$module |
||
12515 | bpr | 228 | !set 1_=!append line itemsep,0,\ |
229 | Indexation,4,module=adm/tool/classification&refdir=$module&iniparm=$wims_homeref_parm,test to $1_ |
||
230 | !endif |
||
7699 | bpr | 231 | !endif |
8484 | bpr | 232 | !if $module_score!=$empty and $wims_class_exolog>0 and E notin $wims_sheet |
233 | !set 1_=!append line exolog,1,module=adm/class/exolog&cmd=new&job=log&logsheet=$wims_sheet&logexo=$wims_exo to $1_ |
||
234 | !endif |
||
7699 | bpr | 235 | |
7182 | bpr | 236 | |
8597 | obado | 237 | !! When in lightpopup mode, only links in whitelist are available |
238 | |||
239 | !if yes isin $wims_lightpopup |
||
12515 | bpr | 240 | !set whitelist = nextseries,previousseries |
241 | !set nb_elem=!linecnt $1_ |
||
242 | !for a=1 to $nb_elem |
||
243 | !set element = !line $a of $1_ |
||
244 | !set id = !item 1 of $element |
||
245 | !if $id isitemof $whitelist |
||
246 | !set wims_rm_0 = !append line $element to $wims_rm_0 |
||
247 | !endif |
||
248 | !next |
||
8597 | obado | 249 | !else |
12515 | bpr | 250 | !set wims_rm_0=$1_ |
8597 | obado | 251 | !endif |
252 | |||
1407 | bpr | 253 | !set wims_rm_3=!append line $wims_menu_tabs to $wims_rm_3 |
16 | reyssat | 254 | :rm2 |
255 | !if $wims_rm_2!=$empty |
||
12515 | bpr | 256 | !goto rmend |
16 | reyssat | 257 | !endif |
258 | !reset 2_ |
||
4346 | bpr | 259 | |
260 | !!********* Link #8 : "Author(s)" |
||
261 | |||
16 | reyssat | 262 | !if $module_author!=$empty and @ isin $module_address |
12515 | bpr | 263 | !read namewriting.phtml $module_author |
264 | !set wims_homeref_author_num=$script_cnt |
||
265 | !set module_address=!replace internal ; by , in $module_address |
||
266 | !if $wims_homeref_author_num>1 |
||
267 | !set 3_=$wims_name_authors: |
||
268 | !else |
||
269 | !set 3_=$wims_name_author: |
||
270 | !endif |
||
271 | !set 4_= |
||
272 | !for ad=1 to $wims_homeref_author_num |
||
273 | !if $(module_address[$ad])!= and @ isin $(module_address[$ad]) |
||
274 | !set 4__=!mailurl $(module_address[$ad]) $(script_out[$ad])\ |
||
4346 | bpr | 275 | WIMS $module_title [$module_language] |
12515 | bpr | 276 | !else |
277 | !set 4__=$(script_out[$ad]) |
||
7182 | bpr | 278 | !endif |
12515 | bpr | 279 | !set 4_=!append item $4__ to $4_ |
7182 | bpr | 280 | !next |
4346 | bpr | 281 | !set 2_=!append line author,0,$3_ $4_ to $2_ |
16 | reyssat | 282 | !endif |
4346 | bpr | 283 | |
284 | !!********* Link #9 : "Translator(s)" |
||
2233 | bpr | 285 | !set mod_transl=$(module_translator_$lang) |
286 | !if $module_transl!=$empty |
||
12515 | bpr | 287 | !set module_translator=$mod_transl |
288 | !set module_translator_address=$(module_translator_address_$lang) |
||
2233 | bpr | 289 | !endif |
290 | |||
16 | reyssat | 291 | !if $module_translator!=$empty and $module_translator_address!=$empty |
12515 | bpr | 292 | !read namewriting.phtml $module_translator |
293 | !set module_translator=$(script_out[1]) |
||
294 | !set wims_homeref_translator_num=$script_cnt |
||
295 | !set module_translator_address=!replace internal ; by , in $module_translator_address |
||
296 | !for ad=1 to $wims_homeref_translator_num |
||
297 | !set 3_=!mailurl $(module_translator_address[$ad]) $(module_translator[$ad])\ |
||
16 | reyssat | 298 | WIMS $module_title [$module_language] |
12515 | bpr | 299 | !set 2_=!append line trans,0,$wims_name_translatedby $3_ to $2_ |
300 | !next |
||
16 | reyssat | 301 | !endif |
2963 | bpr | 302 | !if $wims_theme_version>=1 |
12515 | bpr | 303 | !reset 2_ |
2963 | bpr | 304 | !endif |
16 | reyssat | 305 | !set 2_=!append line syou,0,$wims_name_syou to $2_ |
306 | !set 2_=!append line class,0,$wims_classname ($wims_institutionname) to $2_ |
||
11268 | obado | 307 | |
308 | !read date.phtml $wims_now,noprint |
||
309 | !set 2_=!append line time,0,$wims_name_server_time: $slib_out to $2_ |
||
16 | reyssat | 310 | !set wims_rm_2=$2_ |
4528 | bpr | 311 | !set wims_rm_5=$5_ |
16 | reyssat | 312 | |
313 | :rmend |
||
314 | !set wims_homeref_n1=!linecnt $wims_rm_1 |
||
315 | !set wims_homeref_n2=!linecnt $wims_rm_2 |
||
1202 | bpr | 316 | !set wims_homeref_n0=!linecnt $wims_rm_0 |
1407 | bpr | 317 | !set wims_homeref_n3=!linecnt $wims_rm_3 |
3044 | bpr | 318 | !!</div><!--div dans homeref_supervisor--> |
4528 | bpr | 319 | !set wims_homeref_n5=!linecnt $wims_rm_5 |
4635 | bpr | 320 | !set wims_homeref_local_n0=!linecnt $wims_local_menu_items |
16 | reyssat | 321 | !read themes.phtml tail |
322 | !robottrap |