Subversion Repositories wimsdev

Rev

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