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