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