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 |