Subversion Repositories wimsdev

Rev

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

  1. !!!set module_language=!trim $module_language
  2. !!!if $module_language=$empty or $module_language notwordof $wims_site_languages
  3. !! !set module_language=en
  4. !!!endif
  5. !read name.phtml.$lang
  6. !default wims_name_bgcolor=$wims_ref_bgcolor
  7. !if $wims_hm!=$empty
  8.  !goto defend
  9. !endif
  10. !if $job=print or $printing=yes
  11.  !goto defend
  12. !endif
  13. !reset 1_
  14. !if _ isin $wims_session
  15.  !if _exam isin $wims_session
  16.   !set wims_pses=!translate _ to , in $wims_session
  17.   !set wims_pses=!item 1 of $wims_pses
  18.   !set wims_pser=!randint 1,99999
  19.   !set wims_href_opener=window.opener.location='$wims_ref_name?session=$wims_pses.1&+cmd=reply&+job=student&+randomizer=$wims_pser';
  20.  !endif
  21.  !set 1_=!append line back,3,window.close();$wims_href_opener to $1_
  22. !else
  23.  !set 1_=!append line class_home,1,session=$wims_session.1 to $1_
  24. !endif
  25.  
  26. !if $class_cas_auth!=$empty
  27.  !if $wims_user=supervisor
  28.      !set 1_=!append line visitor,1,cmd=close&module=adm/class/classes&type=supervisor&class_auth=$class_cas_auth to $1_
  29.  !else
  30.    !if $wims_class!=$empty
  31.      !set 1_=!append line visitor,1,cmd=close&module=adm/class/classes&type=participant&class_auth=$class_cas_auth to $1_
  32.   !else
  33.     !set 1_=!append line visitor,1,cmd=close&class_auth=$wims_cas_auth to $1_
  34.   !endif
  35.  !endif
  36. !else
  37.   !if $wims_user=supervisor
  38.     !set 1_=!append line visitor,1,cmd=close&module=adm/class/classes&type=supervisor to $1_
  39.   !else
  40.      !set 1_=!append line visitor,1,cmd=close&module=adm/class/classes&type=participant to $1_
  41.   !endif
  42. !endif
  43.  
  44. !if _check isin $wims_session
  45.  !set ckstep=$special_parm
  46.  !distribute item $wims_check into ckmodule,ckuser,cksession,ckexo,cksteps,score
  47.  !set qstr=module=$ckmodule&+cmd=new&+job=examcheck&+checkuser=$ckuser&+checksession=$cksession&+checkexo=$ckexo
  48.  !set 2_=$wims_page_name :  
  49.  !ifval $ckstep>1
  50.   !set 2_=$2_<a href="$wims_ref_name?session=$session&+$qstr&+checkstep=1">1</a>&nbsp;
  51.   !if $ckstep=2
  52.    !set 2_=$(2_)2&nbsp;
  53.   !else
  54.    !if $ckstep=3
  55.     !set 2_=$(2_)<a href="$wims_ref_name?session=$session&+$qstr&+checkstep=2">2</a>&nbsp;3&nbsp;
  56.    !else
  57.     !set 2_=$(2_)&nbsp;...&nbsp;<a href="$wims_ref_name?session=$session&+$qstr&+checkstep=$[$ckstep-1]">$[$ckstep-1]</a>&nbsp;$ckstep&nbsp;
  58.    !endif
  59.   !endif
  60.  !else
  61.   !set 2_=$2_ 1 &nbsp;
  62.  !endif
  63.  !if $ckstep<$cksteps
  64.   !ifval $ckstep<$cksteps-2
  65.    !set 2_=$2_<a href="$wims_ref_name?session=$session&+$qstr&+checkstep=$[$ckstep+1]">$[$ckstep+1]</a>&nbsp;...&nbsp;<a href="$wims_ref_name?session=$session&+$qstr&+checkstep=$cksteps">$cksteps</a>
  66.   !else
  67.    !ifval $ckstep=$cksteps-2
  68.     !set 2_=$2_<a href="$wims_ref_name?session=$session&+$qstr&+checkstep=$[$ckstep+1]">$[$ckstep+1]</a>&nbsp;<a href="$wims_ref_name?session=$session&+$qstr&+checkstep=$cksteps">$cksteps</a>
  69.    !else
  70.     !ifval $ckstep=$cksteps-1
  71.      !set 2_=$2_<a href="$wims_ref_name?session=$session&+$qstr&+checkstep=$[$ckstep+1]">$[$ckstep+1]</a>
  72.     !endif
  73.    !endif
  74.   !endif
  75.  !endif
  76.  !set 1_=!append line nav,0,$2_ to $1_
  77.  !set 3_=!translate internal - to , in $ckexo
  78.  !set 3_=!item -1 of $3_
  79.  !set 2_=<small>$ckuser: $3_=$module. $cksteps steps, $score/10.</small>
  80.  !set wims_hm=!append line score,0,$2_ to $1_
  81.  !goto defend
  82. !endif
  83. !if adm/forum notin $module and _ notin $wims_session \
  84.         and $wims_sheet=$empty
  85.  !!!set 1_=!append line forum,1,module=adm/forum/mboard to $1_
  86. !endif
  87. !!if $cmd=intro
  88. !! !set 1_=!append line work,1,module=$module&cmd=new to $1_
  89. !!endif
  90. !if $wims_sheet!=$empty or _exam isin $wims_session
  91.  !set 1_=!append line tools,4,module=home,tool to $1_
  92. !endif
  93. !if _ notin $wims_session and adm/ notin $module \
  94.         and $cmd notwordof help ref
  95.  !set 1_=!append line reference,4,module=$module&cmd=ref&special_parm=$cmd,ref to $1_
  96. !endif
  97. !if $wims_sheet>0 or P isin $wims_sheet
  98.  !set 1_=!append line sheet,1,module=adm/sheet&sh=$wims_sheet to $1_
  99. !endif
  100. !if $wims_sequence>0 and adm/ isin $module
  101.  !if $wims_user=supervisor
  102.   !set 1_=!append line sequence,1,module=adm/class/sequence&seq=$wims_sequence to $1_
  103.  !else
  104.   !set 1_=!append line sequence,1,module=home&seq=$wims_sequence to $1_
  105.  !endif
  106. !endif
  107. !if $cmd=help or $cmd=hint
  108.  !set 1_=!append line resume,1,cmd=resume to $1_
  109. !endif
  110. !if $module_has_intro=yes and $cmd notwordof intro help and \
  111.         $wims_sheet=$empty and exam notin $wims_session and mfeed notin $wims_session
  112.  !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 to $1_
  113. !endif
  114. !if $module_has_help=yes and $cmd notwordof intro help and _exam notin $wims_session
  115.  !if $module_help=$empty or $module_help=popup
  116.   !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
  117.  !else
  118.   !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
  119.  !endif
  120. !endif
  121. !if $module_has_about=yes and $cmd notwordof help intro and ++adm notin ++$module and $module!=home \
  122.   and _exam notin $wims_session and _mfeed notin $wims_session and ($wims_user=$empty or $wims_user=supervisor)
  123.  !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  124. !endif
  125. !if $wims_theme_version=0
  126.   !if _ notin $wims_session
  127.     !set 1_=!append line whelp,4,module=help/main&$wims_helper,help to $1_
  128.   !endif
  129. !endif
  130.  
  131. !set wims_hm=$1_
  132. :defend
  133. !set wims_hm_cnt=!linecnt $wims_hm
  134. !read themes.phtml header
  135. <div class="wimsbody">
  136.