Subversion Repositories wimsdev

Rev

Rev 9756 | Rev 10057 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !if _check isin $session
  2.  !exit
  3. !endif
  4.  
  5. !read name.phtml.$module_language
  6. !read themes/$wims_theme/lang/name.phtml.$lang
  7. !default wims_homeref_bgcolor=$wims_ref_bgcolor
  8. !read themes/$wims_theme/local.phtml
  9.  
  10. !if exam isin $wims_session
  11.  !set wims_hr_r=$[max(0,$wims_exam_remain)]
  12.  !set wims_hr_rm=$[floor($wims_hr_r/60)]
  13.  !set wims_hr_rs=!char 2,3 of $[$wims_hr_r%60+100]
  14.  !set wims_homeref_special=$wims_name_examremain $wims_hr_rm:$wims_hr_rs ($wims_name_whenloaded)
  15.  !goto rmend
  16. !endif
  17.  
  18. !if $wims_rm_1=no
  19.  !reset wims_rm_1
  20.  !goto local
  21. !endif
  22. !if $wims_rm_1!=$empty
  23.  !goto rm2
  24. !endif
  25. !reset 1_
  26.  
  27. !if _ isin $wims_subsession
  28.  !!set 1_=!append line back2,3,window.close() to $1_
  29. !else
  30.  !!set 1_=!append line class_home,1,session=$wims_session.1 to $1_
  31. !endif
  32. !if $wims_sheet>0 or P isin $wims_sheet or $wims_sequence>0
  33.  !if $wims_sequence>0 and $wims_sheet=$empty
  34.   !set tmp_=sequence,1,module=home&seq=$wims_sequence
  35.  !else
  36.   !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet&
  37.  !endif
  38.  !let wims_menu_items=!append line $tmp_ to $wims_menu_items
  39. !endif
  40. !if ($wims_sheet>0 or P isin $wims_sheet) and $cmd=reply and $module_score!=$empty
  41.  !if $wims_exo>1
  42.   !let wims_menu_items=!append line previousseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo-1] to $wims_menu_items
  43.  !endif
  44.  !if $wims_exo<$wims_sheetmax
  45.   !let wims_menu_items=!append line nextseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo+1] to $wims_menu_items
  46.  !endif
  47. !endif
  48.  
  49. !if $wims_sheet>0 or P isin $wims_sheet
  50.  !if $(wims_exofeedback[$wims_exo;])!=$empty
  51.   !set feedexo=$(wims_exofeedback[$wims_exo;])
  52.   !if $module_score!=$empty and $module_score < $(feedexo[2]) and $module_score >= $(feedexo[3])
  53.     !if $(feedexo[3])=0 or $(feedexo[3])=$empty
  54.       !set 5_=!append line feedbackexo,7,$(feedexo[1]),mfeed to $5_
  55.     !else
  56.       !set 5_=!append line feedbackplus,7,$(feedexo[1]),mfeed to $5_
  57.     !endif
  58.   !endif
  59.  !endif
  60. !endif
  61. !if $cmd=help or $cmd=hint
  62.  !!set 1_=!append line resume,1,cmd=resume to $1_
  63. !endif
  64.  
  65. !if $module_has_intro=yes and $cmd notwordof intro help and\
  66.         $wims_sheet=$empty and exam notin $wims_session and mfeed notin $wims_session
  67.  !!set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3 to $1_
  68. !endif
  69. !if $module_has_help=yes and $cmd notwordof intro help
  70.  !if $module_help=$empty or $module_help=popup
  71.   !!set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
  72.  !else
  73.   !!set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
  74.  !endif
  75. !endif
  76.  
  77. !!********* Link : "About"
  78. !if $module_has_about=yes and $cmd notwordof help intro and ($wims_user=supervisor or $wims_user=$empty)
  79.    !!set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  80. !endif
  81.  
  82. !if print isin $job,$job2 or $print!=
  83.   !set 1_=!append line print,3,window.print() to $1_
  84. !endif
  85. !set wims_rm_1=$1_
  86.  
  87. :local
  88. !reset 1_
  89. !! add module links to general links with a separation
  90. !set 1_=!append line itemsep,0,\
  91. $wims_menu_items to $1_
  92. !set wims_rm_0=$1_
  93. !set wims_rm_3=!append line $wims_menu_tabs to $wims_rm_3
  94. :rm2
  95. !if $wims_rm_2!=$empty
  96.  !goto rmend
  97. !endif
  98.  
  99. !set 3_=!mailurl $wims_supervisormail $wims_name_wsup\
  100. $module_title
  101. !set 2_=you,0,$wims_name_you\
  102.  class,0,$wims_classname ($wims_institutionname)\
  103.  wsup,0,$3_
  104. !reset 4_
  105. !if $wims_sheet>0
  106.  !set wims_homeref_scorestat=!getscorestatus sheet=$wims_sheet
  107.  !if $wims_homeref_scorestat=yes and $wims_exodep!=pending
  108.   !if $wims_scorereg!=suspend
  109.    !set wims_homeref_req=!getscorerequire sheet=$wims_sheet work=$wims_exo
  110.    !set wims_homeref_mean=!getscoremean sheet=$wims_sheet work=$wims_exo
  111.    !set wims_homeref_last=!getscorelast sheet=$wims_sheet work=$wims_exo
  112.    !reset wims_name_score
  113.   !if $(wims_severity[2])!=1 or $(wims_severity[2])=$empty
  114.      !set wims_name_score=$(wims_name_thsheet[7]): $[ceil(10*$[$wims_homeref_mean])/10]/10
  115.    !endif
  116.    !if $(wims_severity[3])=2
  117.      !set wims_homeref_level=!getscorelevel sheet=$wims_sheet work=$wims_exo
  118.      !set wims_name_score=$wims_name_score<br />$(wims_name_thsheet[13]): $wims_homeref_level/10
  119.      !! I1
  120.    !else
  121.      !if $(wims_severity[3])=1
  122.        !set wims_homeref_best=!getscorebest sheet=$wims_sheet work=$wims_exo
  123.        !set wims_name_score=$wims_name_score<br />$(wims_name_thsheet[10]): $[round(100*$wims_homeref_best/$wims_homeref_req)] %
  124.        !!I2
  125.      !else
  126.        !set wims_homeref_got=!getscore sheet=$wims_sheet work=$wims_exo
  127.        !set wims_name_score=$wims_name_score<br />$(wims_name_thsheet[5]): $[ceil(100*$wims_homeref_got/$wims_homeref_req)]%
  128.        !!I0
  129.  
  130.      !endif
  131.    !endif
  132.    !set 4_=!append line score,0,$wims_name_score to $4_
  133.    !if $wims_authscoresuspend!=no
  134.     !!set wims_rm_0=!append line scoreclose2,1,module=adm/sheet&sh=$wims_sheet&exo=$wims_exo&job=suspend to $wims_rm_0
  135.    !endif
  136.   !else
  137.    !set 4_=!append line score,0,$wims_name_scoresuspend to $4_
  138.    !if $wims_authscoresuspend!=no
  139.     !!set wims_rm_0=!append line scorereopen,1,module=adm/sheet&sh=$wims_sheet&exo=$wims_exo&job=reopen to $wims_rm_0
  140.    !endif
  141.   !endif
  142.  !else
  143.   !set 4_=!append line score,0,$wims_name_scoreclose to $4_
  144.  !endif
  145.  !if $module_score!=$empty and $wims_class_exolog>0 and E notin $wims_sheet
  146.   !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
  147.  !endif
  148. !endif
  149.  
  150.  
  151. !set wims_rm_2=$2_
  152. !set wims_rm_4=$4_
  153. !set wims_rm_5=$5_
  154. :rmend
  155. !set wims_homeref_n1=!linecnt $wims_rm_1
  156. !set wims_homeref_n2=!linecnt $wims_rm_2
  157. !set wims_homeref_n0=!linecnt $wims_rm_0
  158. !!nothing inside
  159. !set wims_homeref_n3=!linecnt $wims_rm_3
  160. !! about activation and score
  161. !set wims_homeref_n4=!linecnt $wims_rm_4
  162. !! about feedback
  163. !set wims_homeref_n5=!linecnt $wims_rm_5
  164. !set wims_homeref_local_n0=!linecnt $wims_local_menu_items
  165. !!</div><!--div dans homeref_user-->
  166. !read themes.phtml tail
  167. !robottrap
  168.