Subversion Repositories wimsdev

Rev

Rev 15070 | Rev 15728 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2761 bpr 1
!if _check isin $session
15070 bpr 2
  !exit
16 reyssat 3
!endif
4
 
5
!read name.phtml.$module_language
11469 bpr 6
!read themes/_lang/name.phtml.$lang
9309 bpr 7
!read themes/$wims_theme/lang/name.phtml.$lang
16 reyssat 8
!default wims_homeref_bgcolor=$wims_ref_bgcolor
4635 bpr 9
!read themes/$wims_theme/local.phtml
2761 bpr 10
 
16 reyssat 11
!if exam isin $wims_session
11296 bpr 12
  !read examclock.proc
11268 obado 13
  !goto rmend
16 reyssat 14
!endif
15
 
1193 bpr 16
!if $wims_rm_1=no
12365 bpr 17
  !reset wims_rm_1
18
  !goto local
1193 bpr 19
!endif
16 reyssat 20
!if $wims_rm_1!=$empty
12365 bpr 21
  !goto rm2
16 reyssat 22
!endif
23
!reset 1_
2865 guerimand 24
 
16 reyssat 25
!if _ isin $wims_subsession
12365 bpr 26
  !!set 1_=!append line back2,3,window.close() to $1_
16 reyssat 27
!else
12365 bpr 28
  !!set 1_=!append line class_home,1,session=$wims_session.1 to $1_
16 reyssat 29
!endif
10057 bpr 30
 
10055 bpr 31
!!!if $wims_sheet>0 or P isin $wims_sheet or $wims_sequence>0
32
!! !if $wims_sequence>0 and $wims_sheet=$empty
33
!!  !set tmp_=sequence,1,module=home&seq=$wims_sequence
34
!! !else
35
!!  !!set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet&
36
!! !endif
37
!!   !let wims_menu_items=!append line $tmp_ to $wims_menu_items
38
!!!endif
11685 bpr 39
!!fieldtot is the number of answer fields in a oef exercise,
40
!! for module it is not defined the condition is just that the exercise is finished.
41
!if ($wims_sheet>0 or P isin $wims_sheet) and (($cmd=reply and $module_score!=$empty) or $fieldtot=0)
12365 bpr 42
  !if $wims_exo>1
43
    !let wims_menu_items=!append line previousseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo-1] to $wims_menu_items
44
  !endif
45
  !if $wims_exo<$wims_sheetmax
46
    !let wims_menu_items=!append line nextseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo+1] to $wims_menu_items
47
  !endif
16 reyssat 48
!endif
2865 guerimand 49
 
10057 bpr 50
!if $wims_sheet!=$empty or _exam isin $wims_session
51
  !set wims_menu_items=!append line tools,4,module=home,tool to $wims_menu_items
52
!endif
53
 
4528 bpr 54
!if $wims_sheet>0 or P isin $wims_sheet
14646 bpr 55
  !if $module_score!=$empty and $(wims_exofeedback[$wims_exo;])!=$empty
56
    !set feedexotot=!declosing $(wims_exofeedback[$wims_exo;])
57
    !set feedexocnt=!itemcnt $(feedexotot[;1])
58
    !for t=1 to $feedexocnt
59
      !set feedexo=$(feedexotot[$t;])
60
      !if $module_score < $(feedexo[2]) and $module_score >= $(feedexo[3])
61
        !if $module_score < 10
62
          !set 5_=!append line feedbackexo,7,$(feedexo[1]),mfeed to $5_
63
        !else
64
          !set 5_=!append line feedbackplus,7,$(feedexo[1]),mfeed to $5_
65
        !endif
12365 bpr 66
      !endif
14646 bpr 67
    !next
4528 bpr 68
  !endif
69
!endif
16 reyssat 70
!if $cmd=help or $cmd=hint
12365 bpr 71
  !!set 1_=!append line resume,1,cmd=resume to $1_
16 reyssat 72
!endif
4528 bpr 73
 
16 reyssat 74
!if $module_has_intro=yes and $cmd notwordof intro help and\
4528 bpr 75
        $wims_sheet=$empty and exam notin $wims_session and mfeed notin $wims_session
12365 bpr 76
  !!set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3 to $1_
16 reyssat 77
!endif
78
!if $module_has_help=yes and $cmd notwordof intro help
12365 bpr 79
  !if $module_help=$empty or $module_help=popup
80
   !!set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
81
  !else
82
   !!set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
83
  !endif
16 reyssat 84
!endif
9800 bpr 85
 
86
!!********* Link : "About"
2949 bpr 87
!if $module_has_about=yes and $cmd notwordof help intro and ($wims_user=supervisor or $wims_user=$empty)
9800 bpr 88
   !!set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
16 reyssat 89
!endif
9800 bpr 90
 
1193 bpr 91
!if print isin $job,$job2 or $print!=
92
  !set 1_=!append line print,3,window.print() to $1_
93
!endif
1222 bpr 94
!set wims_rm_1=$1_
4801 guerimand 95
 
1193 bpr 96
:local
1222 bpr 97
!reset 1_
9706 bpr 98
!! add module links to general links with a separation
10285 bpr 99
!if $wims_menu_items!=$empty
100
  !set 1_=!append line itemsep,0,\
9706 bpr 101
$wims_menu_items to $1_
10285 bpr 102
!endif
1222 bpr 103
!set wims_rm_0=$1_
1407 bpr 104
!set wims_rm_3=!append line $wims_menu_tabs to $wims_rm_3
16 reyssat 105
:rm2
106
!if $wims_rm_2!=$empty
12365 bpr 107
  !goto rmend
16 reyssat 108
!endif
109
 
13175 obado 110
!set 3_=!mailurl $wims_supervisormail <span>$wims_name_wsup</span>\
16 reyssat 111
$module_title
112
!set 2_=you,0,$wims_name_you\
113
 class,0,$wims_classname ($wims_institutionname)\
114
 wsup,0,$3_
2963 bpr 115
!reset 4_
16 reyssat 116
!if $wims_sheet>0
12365 bpr 117
  !set wims_homeref_scorestat=!getscorestatus sheet=$wims_sheet
118
  !set wims_homeref_maxexotry=!getscoremaxexotry sheet=$wims_sheet work=$wims_exo
12381 bpr 119
  !set wims_homeref_alltries=!getscorealltries sheet=$wims_sheet work=$wims_exo
13007 bpr 120
  !if $module_score=$empty and $cmd iswordof reply next resume hint
12524 bpr 121
    !set wims_homeref_alltries=$[max($wims_homeref_alltries-1,0)]
122
  !else
123
    !set wims_homeref_alltries=$[$wims_homeref_alltries]
124
  !endif
12386 bpr 125
  !default wims_homeref_alltries=0
12527 bpr 126
  !if $wims_exotrymax!=$empty
12524 bpr 127
    !set tmp_exotrymax=$wims_name_try $wims_homeref_alltries/$wims_exotrymax<br />
12381 bpr 128
  !endif
12527 bpr 129
  !if ($wims_homeref_scorestat=yes and $wims_exodep!=pending) \
130
      and ($wims_exotrymax<=1 or $wims_homeref_alltries<=$wims_exotrymax)
12365 bpr 131
    !if $wims_scorereg!=suspend
132
      !set wims_homeref_req=!getscorerequire sheet=$wims_sheet work=$wims_exo
133
      !set wims_homeref_mean=!getscoremean sheet=$wims_sheet work=$wims_exo
134
      !set wims_homeref_last=!getscorelast sheet=$wims_sheet work=$wims_exo
12527 bpr 135
      !set wims_name_score=$tmp_exotrymax
12365 bpr 136
      !if $(wims_severity[2])!=1 or $(wims_severity[2])=$empty or $wims_homeref_mean<=2
12527 bpr 137
        !set wims_name_score=$wims_name_score$(wims_name_thsheet[7]): $[ceil(100*$[$wims_homeref_mean])/100]/10
12365 bpr 138
      !endif
139
      !if $(wims_severity[3])=2
140
        !set wims_homeref_level=!getscorelevel sheet=$wims_sheet work=$wims_exo
12527 bpr 141
        !set wims_name_score=$wims_name_score<br />$(wims_name_thsheet[13]): $wims_homeref_level/10
12365 bpr 142
        !! I1
143
      !else
144
        !if $(wims_severity[3])=1
145
          !set wims_homeref_best=!getscorebest sheet=$wims_sheet work=$wims_exo
12527 bpr 146
          !set wims_name_score=$wims_name_score<br />$(wims_name_thsheet[10]): $[ceil(100*$wims_homeref_best/$wims_homeref_req)] %
12365 bpr 147
          !!I2
148
        !else
149
          !set wims_homeref_got=!getscore sheet=$wims_sheet work=$wims_exo
12527 bpr 150
          !set wims_name_score=$wims_name_score<br />$(wims_name_thsheet[5]): $[ceil(100*$wims_homeref_got/$wims_homeref_req)]%
12365 bpr 151
          !!I0
152
        !endif
153
      !endif
154
      !set 4_=!append line score,0,$wims_name_score to $4_
155
      !if $wims_authscoresuspend!=no
156
        !!set wims_rm_0=!append line scoreclose2,1,module=adm/sheet&sh=$wims_sheet&exo=$wims_exo&job=suspend to $wims_rm_0
157
      !endif
158
    !else
12391 bpr 159
      !set 4_=!append line score,0,$wims_name_scoresuspend to $4_
12365 bpr 160
      !if $wims_authscoresuspend!=no
161
        !!set wims_rm_0=!append line scorereopen,1,module=adm/sheet&sh=$wims_sheet&exo=$wims_exo&job=reopen to $wims_rm_0
162
      !endif
163
    !endif
16 reyssat 164
  !else
12365 bpr 165
    !if $wims_homeref_maxexotry!=yes
12391 bpr 166
      !set 4_=!append line score,0,$wims_name_scoreclose to $4_
12365 bpr 167
    !else
168
      !set 4_=!append line score,0,$wims_name_maxexotry1 to $4_
169
    !endif
16 reyssat 170
  !endif
12365 bpr 171
  !if $module_score!=$empty and $wims_class_exolog>0 and E notin $wims_sheet
172
    !set wims_rm_0=!append line exolog,1,module=adm/class/exolog&cmd=new&job=log&logsheet=$wims_sheet&logexo=$wims_exo to $wims_rm_0
12213 bpr 173
  !endif
16 reyssat 174
!endif
4801 guerimand 175
 
15610 bpr 176
!if $wims_class!=$empty and $wims_user!=supervisor and tchat notin $wims_session \
177
    and $class_type<2 and class/tchat isitemof $wims_allowed_optional_module\
178
    and $module!=adm/light
15070 bpr 179
  !set wims_rm_0=!append line itemsep,0,$wims_name_classactivity to $wims_rm_0
180
  !read themes/_procs/usertchat.proc
15610 bpr 181
!endif
15070 bpr 182
 
16 reyssat 183
!set wims_rm_2=$2_
2963 bpr 184
!set wims_rm_4=$4_
4528 bpr 185
!set wims_rm_5=$5_
10057 bpr 186
 
16 reyssat 187
:rmend
188
!set wims_homeref_n1=!linecnt $wims_rm_1
189
!set wims_homeref_n2=!linecnt $wims_rm_2
1222 bpr 190
!set wims_homeref_n0=!linecnt $wims_rm_0
9706 bpr 191
!!nothing inside
1407 bpr 192
!set wims_homeref_n3=!linecnt $wims_rm_3
9706 bpr 193
!! about activation and score
2963 bpr 194
!set wims_homeref_n4=!linecnt $wims_rm_4
9706 bpr 195
!! about feedback
4528 bpr 196
!set wims_homeref_n5=!linecnt $wims_rm_5
4635 bpr 197
!set wims_homeref_local_n0=!linecnt $wims_local_menu_items
3044 bpr 198
!!</div><!--div dans homeref_user-->
16 reyssat 199
!read themes.phtml tail
200
!robottrap