Subversion Repositories wimsdev

Rev

Rev 16 | Rev 1222 | 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. !if exam isin $wims_session
  8.  !set wims_hr_r=$[max(0,$wims_exam_remain)]
  9.  !set wims_hr_rm=$[floor($wims_hr_r/60)]
  10.  !set wims_hr_rs=!char 2,3 of $[$wims_hr_r%60+100]
  11.  !set wims_homeref_special=$wims_name_examremain $wims_hr_rm:$wims_hr_rs ($wims_name_whenloaded)
  12.  !goto rmend
  13. !endif
  14.  
  15. !if $wims_rm_1!=$empty
  16.  !goto rm2
  17. !endif
  18. !reset 1_
  19. !if _ isin $wims_subsession
  20.  !set 1_=!append line back2,3,window.close() to $1_
  21. !else
  22.  !set 1_=!append line home,1,session=$wims_session.1 to $1_
  23. !endif
  24. !if $wims_sheet>0 or P isin $wims_sheet
  25.  !set 1_=!append line sheet,1,module=adm/sheet&sh=$wims_sheet to $1_
  26. !endif
  27. !if $cmd=help or $cmd=hint
  28.  !set 1_=!append line resume,1,cmd=resume to $1_
  29. !endif
  30. !if $module_has_intro=yes and $cmd notwordof intro help and\
  31.         $wims_sheet=$empty and exam notin $wims_session
  32.  !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$wims_intro_parm to $1_
  33. !endif
  34. !if $module_has_help=yes and $cmd notwordof intro help
  35.  !if $module_help=$empty or $module_help=popup
  36.   !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
  37.  !else
  38.   !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
  39.  !endif
  40. !endif
  41. !if $module_has_about=yes and $cmd notwordof help intro
  42.  !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  43. !endif
  44. !set wims_rm_1=$1_
  45.  
  46. :rm2
  47. !if $wims_rm_2!=$empty
  48.  !goto rmend
  49. !endif
  50.  
  51. !set 3_=!mailurl $wims_supervisormail $wims_name_wsup\
  52. $module_title
  53. !set 2_=you,0,$wims_name_you\
  54.  class,0,$wims_classname ($wims_institutionname)\
  55.  wsup,0,$3_
  56. !if $wims_sheet>0
  57.  !set wims_homeref_scorestat=!getscorestatus sheet=$wims_sheet
  58.  !if $wims_homeref_scorestat=yes and $wims_exodep!=pending
  59.   !if $wims_scorereg!=suspend
  60.    !set wims_homeref_req=!getscorerequire sheet=$wims_sheet work=$wims_exo
  61.    !set wims_homeref_got=!getscore sheet=$wims_sheet work=$wims_exo
  62.    !set wims_homeref_mean=!getscoremean sheet=$wims_sheet work=$wims_exo
  63.    !set wims_name_score=!singlespace $wims_name_score
  64.    !set 2_=!append line score,0,$wims_name_score to $2_
  65.   !else
  66.    !set 2_=!append line score,0,$wims_name_scoresuspend to $2_
  67.   !endif
  68.  !else
  69.   !set 2_=!append line score,0,$wims_name_scoreclose to $2_
  70.  !endif
  71.  !if $module_score!=$empty and $wims_class_exolog>0 and E notin $wims_sheet
  72.   !set 2_=!append line exolog,1,module=adm/class/exolog&cmd=new&job=log&logsheet=$wims_sheet&logexo=$wims_exo to $2_
  73.  !endif
  74. !endif
  75. !set wims_rm_2=$2_
  76.  
  77. :rmend
  78. !set wims_homeref_n1=!linecnt $wims_rm_1
  79. !set wims_homeref_n2=!linecnt $wims_rm_2
  80. </div>
  81. !read themes.phtml tail
  82. !robottrap
  83.  
  84.