Subversion Repositories wimsdev

Rev

Rev 4298 | Rev 4801 | 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. !default wims_homeref_bgcolor=$wims_ref_bgcolor
  7.  
  8. !if exam isin $wims_session
  9.  !set wims_hr_r=$[max(0,$wims_exam_remain)]
  10.  !set wims_hr_rm=$[floor($wims_hr_r/60)]
  11.  !set wims_hr_rs=!char 2,3 of $[$wims_hr_r%60+100]
  12.  !set wims_homeref_special=$wims_name_examremain $wims_hr_rm:$wims_hr_rs ($wims_name_whenloaded)
  13.  !goto rmend
  14. !endif
  15.  
  16. !if $wims_rm_1=no
  17.  !reset wims_rm_1
  18.  !goto local
  19. !endif
  20. !if $wims_rm_1!=$empty
  21.  !goto rm2
  22. !endif
  23. !reset 1_
  24.  
  25. !if _ isin $wims_subsession
  26.  !set 1_=!append line back2,3,window.close() to $1_
  27. !else
  28.  !set 1_=!append line class_home,1,session=$wims_session.1 to $1_
  29. !endif
  30. !if $wims_sheet>0 or P isin $wims_sheet or $wims_sequence>0
  31.  !if $wims_sequence>0 and $wims_sheet=$empty
  32.   !set tmp_=sequence,1,module=home&seq=$wims_sequence
  33.  !else
  34.   !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet&
  35.  !endif
  36.  !let wims_menu_items=!append line $tmp_ to $wims_menu_items
  37. !endif
  38. !if $wims_sheet>0 or P isin $wims_sheet
  39.  !if $wims_exo>1
  40.   !let wims_menu_items=!append line previousseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo-1] to $wims_menu_items
  41.  !endif
  42.  !if $wims_exo<$wims_sheetmax
  43.   !let wims_menu_items=!append line nextseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo+1] to $wims_menu_items
  44.  !endif
  45. !endif
  46.  
  47. !if $wims_sheet>0 or P isin $wims_sheet
  48.  !if $(wims_exofeedback[$wims_exo;])!=$empty
  49.   !set feedexo=$(wims_exofeedback[$wims_exo;])
  50.   !if $module_score!=$empty and $module_score < $(feedexo[2])
  51.    !set 5_=!append line feedbackexo,7,$(feedexo[1]),mfeed to $5_
  52.   !endif
  53.  !endif
  54. !endif
  55. !if $cmd=help or $cmd=hint
  56.  !set 1_=!append line resume,1,cmd=resume to $1_
  57. !endif
  58.  
  59. !if $module_has_intro=yes and $cmd notwordof intro help and\
  60.         $wims_sheet=$empty and exam notin $wims_session and mfeed notin $wims_session
  61.  !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3 to $1_
  62. !endif
  63. !if $module_has_help=yes and $cmd notwordof intro help
  64.  !if $module_help=$empty or $module_help=popup
  65.   !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
  66.  !else
  67.   !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
  68.  !endif
  69. !endif
  70. !if $module_has_about=yes and $cmd notwordof help intro and ($wims_user=supervisor or $wims_user=$empty)
  71.  !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  72. !endif
  73. !if print isin $job,$job2 or $print!=
  74.   !set 1_=!append line print,3,window.print() to $1_
  75. !endif
  76. !set wims_rm_1=$1_
  77. :local
  78. !reset 1_
  79. !set 1_=!append line $wims_menu_items to $1_
  80. !set wims_rm_0=$1_
  81. !set wims_rm_3=!append line $wims_menu_tabs to $wims_rm_3
  82. :rm2
  83. !if $wims_rm_2!=$empty
  84.  !goto rmend
  85. !endif
  86.  
  87. !set 3_=!mailurl $wims_supervisormail $wims_name_wsup\
  88. $module_title
  89. !set 2_=you,0,$wims_name_you\
  90.  class,0,$wims_classname ($wims_institutionname)\
  91.  wsup,0,$3_
  92. !reset 4_
  93. !if $wims_sheet>0
  94.  !set wims_homeref_scorestat=!getscorestatus sheet=$wims_sheet
  95.  !if $wims_homeref_scorestat=yes and $wims_exodep!=pending
  96.   !if $wims_scorereg!=suspend
  97.    !set wims_homeref_req=!getscorerequire sheet=$wims_sheet work=$wims_exo
  98.    !set wims_homeref_got=!getscore sheet=$wims_sheet work=$wims_exo
  99.    !set wims_homeref_mean=!getscoremean sheet=$wims_sheet work=$wims_exo
  100.    !set wims_name_score=!singlespace $wims_name_score
  101.    !set 4_=!append line score,0,$wims_name_score to $4_
  102.   !else
  103.    !set 4_=!append line score,0,$wims_name_scoresuspend to $4_
  104.   !endif
  105.  !else
  106.   !set 4_=!append line score,0,$wims_name_scoreclose to $4_
  107.  !endif
  108.  !if $module_score!=$empty and $wims_class_exolog>0 and E notin $wims_sheet
  109.   !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
  110.  !endif
  111. !endif
  112. !set wims_rm_2=$2_
  113. !set wims_rm_4=$4_
  114. !set wims_rm_5=$5_
  115. :rmend
  116. !set wims_homeref_n1=!linecnt $wims_rm_1
  117. !set wims_homeref_n2=!linecnt $wims_rm_2
  118. !set wims_homeref_n0=!linecnt $wims_rm_0
  119. !set wims_homeref_n3=!linecnt $wims_rm_3
  120. !set wims_homeref_n4=!linecnt $wims_rm_4
  121. !set wims_homeref_n5=!linecnt $wims_rm_5
  122. !!</div><!--div dans homeref_user-->
  123. !read themes.phtml tail
  124. !robottrap
  125.  
  126.  
  127.  
  128.  
  129.