Rev 14213 | Rev 14646 | 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 |
14192 | bpr | 126 | !set wims_homeref_parm=doc=$doc&block=$block&job=read |
127 | !set wims_homeref_parm=!replace internal & by %26 in $wims_homeref_parm |
||
2080 | bpr | 128 | !endif |
12569 | bpr | 129 | !if adm/tool/glossary isin $module |
12595 | bpr | 130 | !if $gl=0 |
131 | !if $special_parm!=$empty |
||
132 | !set wims_homeref_parm=!getopt gloss_item in $module_init_parm |
||
133 | !set 1_=!append line addglossary,1,module=adm/class/glossary&job=add&iniparm=$wims_homeref_parm to $1_ |
||
134 | !endif |
||
135 | !else |
||
136 | !set wims_homeref_parm=gl=$gl |
||
12836 | bpr | 137 | !set 1_=!append line newglose,1,module=adm/tool/glossary&gl=0 to $1_ |
12569 | bpr | 138 | !endif |
139 | !else |
||
140 | !if _c notin _$doc |
||
141 | !set 1_=!append line adddoc,1,module=adm/class/adddoc&job=add&dir=$module&iniparm=$wims_homeref_parm to $1_ |
||
142 | !endif |
||
12370 | bpr | 143 | !endif |
12595 | bpr | 144 | !if ($gl>0 and $cmd!=reply) or adm/tool/glossary notin $module |
145 | !set 1_=!append line addh,1,module=adm/class/addmodule&job=helpexo&dir=$module&iniparm=$wims_homeref_parm to $1_ |
||
146 | !endif |
||
2080 | bpr | 147 | !endif |
10321 | bpr | 148 | !if $wims_user=supervisor and $module=adm/doc |
149 | !set 1_=!append line doch_docs,1,module=adm/doc&job=home to $1_ |
||
150 | !endif |
||
1980 | guerimand | 151 | !if $special_parm4=$empty |
12515 | bpr | 152 | !if $cmd!=intro and $cmd!=help and $module!=home and \ |
13762 | bpr | 153 | ../adm/ notin ../$module and \ |
154 | (../devel/ notin ../$module or $wims_devel_modules iswordof open) \ |
||
155 | and exercise isin $module_category |
||
156 | !set wims_homeref_parm=!replace internal % by %25 in $module_init_parm |
||
157 | !set wims_homeref_parm=!replace internal + by %2B in $wims_homeref_parm |
||
158 | !set wims_homeref_parm=!replace internal & by %26 in $wims_homeref_parm |
||
159 | !set wims_homeref_parm=!replace internal ; by %3B in $wims_homeref_parm |
||
160 | !set wims_homeref_parm=!lines2rows $wims_homeref_parm |
||
12515 | bpr | 161 | !set 1_=!append line add,1,module=adm/class/addmodule&dir=$module&scoring=$module_scoring&iniparm=$wims_homeref_parm to $1_ |
162 | !set 1_=!append line addh,1,module=adm/class/addmodule&job=helpexo&dir=$module&scoring=$module_scoring&iniparm=$wims_homeref_parm to $1_ |
||
163 | !endif |
||
164 | !if $wims_user=supervisor and exam notin $session and \ |
||
13762 | bpr | 165 | ..classes/ notin ..$module and ..adm/ notin ..$module and \ |
166 | ..devel/ notin ..$module and \ |
||
167 | GNU isin $module_copyright and \ |
||
168 | _check notin $session and \ |
||
169 | $class_importation!=no and $thisexo!= |
||
12515 | bpr | 170 | !set 1_=!append line import,1,module=adm/createxo&existing=$thisexo&catmodule=$module to $1_ |
171 | !endif |
||
7182 | bpr | 172 | |
1980 | guerimand | 173 | !else |
12515 | bpr | 174 | !! ----- place pour ajouter le lien vers la modification de serie dans une feuille |
175 | !if $cmd!=intro and $cmd!=help and $module!=home and \ |
||
176 | ../adm/ notin ../$module and \ |
||
177 | (../devel/ notin ../$module or $wims_devel_modules iswordof open) |
||
178 | !set wims_homeref_parm=!replace % by %25 in $module_init_parm |
||
179 | !set wims_homeref_parm=!replace + by %2B in $wims_homeref_parm |
||
180 | !set wims_homeref_parm=!replace & by %26 in $wims_homeref_parm |
||
181 | !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_ |
||
182 | !endif |
||
1980 | guerimand | 183 | !endif |
9703 | bpr | 184 | !! add module links to general links with a separation |
10285 | bpr | 185 | !if $wims_menu_items!=$empty |
186 | !set 1_=!append line itemsep,0,\ |
||
9703 | bpr | 187 | $wims_menu_items to $1_ |
10285 | bpr | 188 | !endif |
9281 | bpr | 189 | !if $wims_user=supervisor and $cmd!=intro and $cmd!=help and $module!=home and \ |
14338 | bpr | 190 | ../adm/ notin ../$module and ($module_category!=document or $job=exosource)\ |
191 | and $module_category!=help |
||
12515 | bpr | 192 | !!last condition is for the uniq module help/main.$lang |
10039 | bpr | 193 | !if $job=exosource |
194 | !set tmp=back2 |
||
195 | !if $block!=$empty |
||
196 | !set docbl=block=$block |
||
197 | !else |
||
198 | !reset docbl |
||
199 | !endif |
||
200 | !else |
||
201 | !set tmp=moduback |
||
202 | !endif |
||
203 | !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 | 204 | !endif |
7182 | bpr | 205 | !! next exo and prev exo in the menu for supervisor |
7188 | bpr | 206 | !if $wims_user=supervisor and $exoprev$exonext != $empty and $wims_sheet=$empty |
12515 | bpr | 207 | !set 1_=!append line itemsep,0\ |
10792 | bpr | 208 | prev,1,cmd=new&module=$module&exo=$exoprev&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 \ |
209 | to $1_ |
||
210 | !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 \ |
||
211 | to $1_ |
||
7182 | bpr | 212 | !reset exoprev exonext |
213 | !endif |
||
214 | |||
7699 | bpr | 215 | !if $special_parm4=$empty |
12515 | bpr | 216 | !if $cmd!=intro and $cmd!=help and $module!=home and \ |
13915 | bpr | 217 | ../adm/ notin ../$module and \ |
218 | (../devel/ notin ../$module or $wims_devel_modules iswordof open) \ |
||
219 | and oef isin $module_category and $wims_classification_open=yes and ../devel/ notin ../$module |
||
12515 | bpr | 220 | !set 1_=!append line itemsep,0,\ |
221 | Indexation,4,module=adm/tool/classification&refdir=$module&iniparm=$wims_homeref_parm,test to $1_ |
||
222 | !endif |
||
7699 | bpr | 223 | !endif |
8484 | bpr | 224 | !if $module_score!=$empty and $wims_class_exolog>0 and E notin $wims_sheet |
225 | !set 1_=!append line exolog,1,module=adm/class/exolog&cmd=new&job=log&logsheet=$wims_sheet&logexo=$wims_exo to $1_ |
||
226 | !endif |
||
7699 | bpr | 227 | |
7182 | bpr | 228 | |
8597 | obado | 229 | !! When in lightpopup mode, only links in whitelist are available |
230 | |||
231 | !if yes isin $wims_lightpopup |
||
12515 | bpr | 232 | !set whitelist = nextseries,previousseries |
233 | !set nb_elem=!linecnt $1_ |
||
234 | !for a=1 to $nb_elem |
||
235 | !set element = !line $a of $1_ |
||
236 | !set id = !item 1 of $element |
||
237 | !if $id isitemof $whitelist |
||
238 | !set wims_rm_0 = !append line $element to $wims_rm_0 |
||
239 | !endif |
||
240 | !next |
||
8597 | obado | 241 | !else |
12515 | bpr | 242 | !set wims_rm_0=$1_ |
8597 | obado | 243 | !endif |
244 | |||
1407 | bpr | 245 | !set wims_rm_3=!append line $wims_menu_tabs to $wims_rm_3 |
16 | reyssat | 246 | :rm2 |
247 | !if $wims_rm_2!=$empty |
||
12515 | bpr | 248 | !goto rmend |
16 | reyssat | 249 | !endif |
250 | !reset 2_ |
||
4346 | bpr | 251 | |
252 | !!********* Link #8 : "Author(s)" |
||
253 | |||
16 | reyssat | 254 | !if $module_author!=$empty and @ isin $module_address |
12515 | bpr | 255 | !read namewriting.phtml $module_author |
256 | !set wims_homeref_author_num=$script_cnt |
||
257 | !set module_address=!replace internal ; by , in $module_address |
||
258 | !if $wims_homeref_author_num>1 |
||
259 | !set 3_=$wims_name_authors: |
||
260 | !else |
||
261 | !set 3_=$wims_name_author: |
||
262 | !endif |
||
263 | !set 4_= |
||
264 | !for ad=1 to $wims_homeref_author_num |
||
265 | !if $(module_address[$ad])!= and @ isin $(module_address[$ad]) |
||
266 | !set 4__=!mailurl $(module_address[$ad]) $(script_out[$ad])\ |
||
4346 | bpr | 267 | WIMS $module_title [$module_language] |
12515 | bpr | 268 | !else |
269 | !set 4__=$(script_out[$ad]) |
||
7182 | bpr | 270 | !endif |
12515 | bpr | 271 | !set 4_=!append item $4__ to $4_ |
7182 | bpr | 272 | !next |
4346 | bpr | 273 | !set 2_=!append line author,0,$3_ $4_ to $2_ |
16 | reyssat | 274 | !endif |
4346 | bpr | 275 | |
276 | !!********* Link #9 : "Translator(s)" |
||
2233 | bpr | 277 | !set mod_transl=$(module_translator_$lang) |
278 | !if $module_transl!=$empty |
||
12515 | bpr | 279 | !set module_translator=$mod_transl |
280 | !set module_translator_address=$(module_translator_address_$lang) |
||
2233 | bpr | 281 | !endif |
282 | |||
16 | reyssat | 283 | !if $module_translator!=$empty and $module_translator_address!=$empty |
12515 | bpr | 284 | !read namewriting.phtml $module_translator |
285 | !set module_translator=$(script_out[1]) |
||
286 | !set wims_homeref_translator_num=$script_cnt |
||
287 | !set module_translator_address=!replace internal ; by , in $module_translator_address |
||
288 | !for ad=1 to $wims_homeref_translator_num |
||
289 | !set 3_=!mailurl $(module_translator_address[$ad]) $(module_translator[$ad])\ |
||
16 | reyssat | 290 | WIMS $module_title [$module_language] |
12515 | bpr | 291 | !set 2_=!append line trans,0,$wims_name_translatedby $3_ to $2_ |
292 | !next |
||
16 | reyssat | 293 | !endif |
2963 | bpr | 294 | !if $wims_theme_version>=1 |
12515 | bpr | 295 | !reset 2_ |
2963 | bpr | 296 | !endif |
16 | reyssat | 297 | !set 2_=!append line syou,0,$wims_name_syou to $2_ |
298 | !set 2_=!append line class,0,$wims_classname ($wims_institutionname) to $2_ |
||
11268 | obado | 299 | |
300 | !read date.phtml $wims_now,noprint |
||
301 | !set 2_=!append line time,0,$wims_name_server_time: $slib_out to $2_ |
||
16 | reyssat | 302 | !set wims_rm_2=$2_ |
4528 | bpr | 303 | !set wims_rm_5=$5_ |
16 | reyssat | 304 | |
305 | :rmend |
||
306 | !set wims_homeref_n1=!linecnt $wims_rm_1 |
||
307 | !set wims_homeref_n2=!linecnt $wims_rm_2 |
||
1202 | bpr | 308 | !set wims_homeref_n0=!linecnt $wims_rm_0 |
1407 | bpr | 309 | !set wims_homeref_n3=!linecnt $wims_rm_3 |
3044 | bpr | 310 | !!</div><!--div dans homeref_supervisor--> |
4528 | bpr | 311 | !set wims_homeref_n5=!linecnt $wims_rm_5 |
4635 | bpr | 312 | !set wims_homeref_local_n0=!linecnt $wims_local_menu_items |
16 | reyssat | 313 | !read themes.phtml tail |
314 | !robottrap |