Subversion Repositories wimsdev

Rev

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