Subversion Repositories wimsdev

Rev

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

  1. <!-- begin of user.phtml -->
  2. !! Class participant page theme.
  3. !nocache
  4. !if $module!=home
  5.  !exit
  6. !endif
  7. !!!!! provisoire
  8.  
  9. !set wims_name_cdt=$U_cdt
  10. !set wims_name_forum=$N_Mboard
  11. !set wims_name_myscore=$U_myscore
  12. !set wims_name_account=$U_account
  13. !set wims_name_U_oclass=$U_oclass
  14. !set wims_name_V_Chpref=$V_Chpref
  15. !set wims_name_passwd=$V_Chpass
  16. !!!!
  17.  
  18. !set home_theme=yes
  19.  
  20. !set percents=!getscorepercent
  21. !set class_homepage=!getdef class_homepage in wimshome/log/classes/$wims_class/.def
  22. !set etest=!record 0 of wimshome/log/classes/$wims_class/.parmreg/$wims_user.exam
  23. !set n_=!wordcnt $etest
  24.  
  25. !if / isin $class_homepage and _tool notin $wims_session
  26.  !set deffile=wimshome/log/classes/$wims_class/doc/$class_homepage.def
  27.  !set t_=!getdef titb in $deffile
  28.  !if $t_=$empty or $n_>=4
  29.   !goto normal
  30.  !endif
  31.  !read ./userhome.phtml
  32.  !goto end
  33. !endif
  34.  
  35. :normal
  36. !read classlogo.phtml
  37. !read ./adm/title.phtml 2\
  38. $wims_classname
  39.  
  40. !!<center>
  41. !!<br> <br>
  42. !!<b><font size="+2">$wims_classname</font></b>
  43. !!<br>
  44. !!<small>($(wims_name_$class_typename))</small>
  45. <center>
  46. !if $wims_superclass=$empty or $wims_superclass=$wims_class
  47. !set  $wims_institutionname
  48. !else
  49.  !href module=adm/class/classes&type=authparticipant&class=$wims_superclass&auth_user=$wims_user $wims_institutionname
  50.   !if / isin $class_parent and $class_type=1
  51.   !set pname=!defof class_description in wimshome/log/classes/$class_parent/.def
  52.   /
  53.   !href module=adm/class/classes&type=authparticipant&class=$class_parent&auth_user=$wims_user $pname
  54.  !endif
  55. !endif
  56. </center>
  57. <br clear=all></div><div class=wimsbody>
  58.  
  59. !if _tool isin $wims_session
  60.  !read ./tools.phtml
  61.  !goto end
  62. !endif
  63.  
  64. !set supmail=!mailurl $wims_supervisormail $wims_supervisor
  65.  
  66. !if $n_>=4
  67.  !distribute words $etest into h_,s_,t_,n_
  68.  !set r_=!record 0 of wimshome/sessions/$s_/examreg.$n_
  69.  !set now=$wims_nowseconds
  70.  !set ws=!translate _ to $ $ in $wims_session
  71.  !set ws=!word 1 of $ws
  72.  !set sm=!record 0 of wimshome/log/classes/$wims_class/.E$n_
  73.  !if $r_!=$empty and $s_!=$ws and $t_>$now and $sm!=#
  74.  $U_examworking
  75.   !if $h_=$httpd_REMOTE_ADDR
  76.    !href session=$s_&module=adm/class/exam.$lang&job=student&exam=$n_ $U_examcont
  77.   !else
  78.    $U_examdouble
  79.    !sh rm -f ../sessions/$ws/var.stat >/dev/null
  80.   !endif
  81.   !goto end
  82.  !endif
  83.  !if $t_<$now or $r_=$empty
  84.   !writefile wimshome/log/classes/$wims_class/.parmreg/$wims_user.exam
  85.  !endif
  86. !endif
  87.  
  88. $U_greet
  89. <small>
  90. !if $class_type isin 234
  91.  !href module=adm/class/userlist&job=userprop $U_account
  92.  &nbsp;
  93. !endif
  94. !!!href target=wims_help module=help/main&chapter=3 $N_help
  95. </small>
  96.  
  97. !if & isin $newmsgcnt or $newmsgcnt>0
  98.  <br>
  99.  !href module=adm/forum/mboard $U_newmsg
  100. !endif
  101.  
  102. <p>
  103. <div class="wims_class_motd">
  104. !read ./wimshome/log/classes/$wims_class/.motd
  105. </div>
  106. !let test2=!record 0 of wimshome/log/classes/$wims_class/motd/$wims_user
  107. !let test=!record 0 of wimshome/log/classes/$wims_class/motd/.$wims_user
  108. !if # notin $test and $test2!=$empty
  109. <div class="wims_class_pmotd">
  110.  !read ./wimshome/log/classes/$wims_class/motd/$wims_user
  111.  &nbsp; [
  112.  !href module=adm/class/motd $N_hide
  113. ] </div>
  114. !endif
  115.  
  116. <p>
  117. !if $class_type>=2
  118.  !read ./subclasses.phtml
  119.  !set is_interclass=yes
  120. !endif
  121.  
  122. !set dcnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
  123. !for i=1 to $dcnt
  124.  !set d_=!record $i of wimshome/log/classes/$wims_class/doc/.index
  125.  !distribute lines $d_ into s_,t_,a_,e_,c_,o_
  126.  !if $o_>0
  127.   !set ds_list=!append line $s_ to $ds_list
  128.   !set dt_list=!append line $t_ to $dt_list
  129.  !endif
  130. !next i
  131. !set dcnt=!linecnt $ds_list
  132. !set t=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
  133. !set wlist=!record 0 of wimshome/log/classes/$wims_class/sheets/.weight
  134. !set aclist=
  135. !for i=1 to $t
  136.  !set s_$i=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  137.  !set a_=!line 1 of $(s_$i)
  138.  !if $a_>=1 and $a_<=2
  139.   !set aclist=!append item $i to $aclist
  140.  !endif
  141. !next i
  142. !set n=!itemcnt $aclist
  143. !set t=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
  144. !set aelist=
  145. !for i=1 to $t
  146.  !set e_$i=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  147.  !set a_=!line 1 of $(e_$i)
  148.  !if $a_>=1 and $a_<=2
  149.   !set aelist=!append item $i to $aelist
  150.  !endif
  151. !next i
  152. !set m=!itemcnt $aelist
  153. !set t=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
  154. !set avlist=
  155. !for i=1 to $t
  156.  !set v_$i=!record $i of wimshome/log/classes/$wims_class/vote/.votes
  157.  !set a_=!line 1 of $(v_$i)
  158.  !if $a_>=1 and $a_<=2
  159.   !set avlist=!append item $i to $avlist
  160.  !endif
  161. !next i
  162. !set v=!itemcnt $avlist
  163.  
  164. !ifval $dcnt+$n+$m+$v=0
  165.  !if $is_interclass!=yes
  166.  $U_nosheet
  167.  !endif
  168. !else
  169.  !if $is_interclass!=yes
  170.  !!$U_assign
  171.  !!<div class="wims_user_myscore">
  172. !! !href module=adm/class/userlist.$lang $U_myscore
  173. !!</div>
  174.  !endif
  175.  !if $dcnt>0
  176.   <table class="wims_user_doc_table">
  177.   !for i=1 to $dcnt
  178.    !set s_=!line $i of $ds_list
  179.    !set t_=!line $i of $dt_list
  180.    <tr class="wims_user_doc"><td class="wims_user_doc_type">$U_Doc</td><td colspan=3>
  181.    !href module=adm/doc.$lang?job=read&doc=$s_&block=main $t_
  182.    </td></tr>
  183.   !next i
  184.   </table>
  185.   <p>
  186.  !endif
  187.  !if $n >0
  188.   <table class="wims_user_sheet_table">
  189.   !for i=1 to $n
  190.    !set se=!item $i of $aclist
  191.    !distribute lines $(s_$se) into ac,t_,ti,de
  192.    <tr class="wims_user_sheet"><td class="wims_user_sheet_type">$U_Sheet $se. <td class="wims_user_sheet_desc">
  193.   !href module=adm/sheet&sh=$se $ti
  194.   </td><td class="wims_user_sheet_expire">
  195.    !if $ac>=2
  196.     $U_expired
  197.    !else
  198.     !if showshexpire iswordof $class_option
  199.      !read misc/expire.phtml.$lang $t_
  200.     !endif
  201.    !endif
  202.    </td>
  203.    !set pe=!line $se of $percents
  204.    !set p1=!word 1 of $pe
  205.    !set p2=!word 2 of $pe
  206.    <td class="wims_user_sheet_score">
  207.    !if $p1!=$empty
  208.     $p1% $U_done, $U_average $[$p2]/10
  209.    !else
  210.     &nbsp;
  211.    !endif
  212.    </td><td>
  213.    !if showshweight iswordof $class_option
  214.     ($U_weight
  215.      !line $i of $wlist
  216.     )
  217.    !endif
  218.    </td>
  219.    </tr>
  220.   !next i
  221.   </table><p>
  222.  !endif
  223.  !if $m>0
  224.  <table class="wims_user_exam_table">
  225.  !for i=1 to $m
  226.   !set se=!item $i of $aelist
  227.   !distribute lines $(e_$se) into ac,t_,s_,ti,de
  228.   <tr class="wims_user_exam"><td class="wims_user_exam_type">$U_Exam $se. </td>
  229.   <td class="wims_user_exam_desc">
  230.   !href module=adm/class/exam&job=student&exam=$se $ti
  231.   </td><td class="wims_user_exam_expire">
  232.   !if $ac>=2
  233.    $U_expired
  234.   !else
  235.    !if showexexpire iswordof $class_option
  236.     !read misc/expire.phtml.$lang $t_
  237.    !else
  238.     &nbsp;
  239.    !endif
  240.   !endif
  241.   </td></tr>
  242.  !next i
  243.  </table>
  244.  <p>
  245.  !endif
  246.  !if $v>0
  247.  <table class="wims_user_vote_table">
  248.  !for i=1 to $v
  249.   !set sv=!item $i of $avlist
  250.   !distribute lines $(v_$sv) into ac,ti
  251.   <tr class="wims_user_vote"><td class="wims_user_vote_type">$U_Vote $i</td><td class="wims_user_vote_desc">
  252.   !href module=adm/vote&job=read&vote=$sv $ti
  253.   </td><td class="wims_user_vote_expire">
  254.   !if $ac>=2
  255.    $U_expired
  256.   !else
  257.    &nbsp;
  258.   !endif
  259.   </td>
  260.  !next i
  261.  </table><p>
  262. !endif
  263. !endif
  264.  
  265. :endbar
  266. </div><!--wimsbody-->
  267. </div>
  268. <div id="wimsmenumodubox" style="background-color:$wims_ref_bgcolor;">
  269. <div class="wimsmenu">
  270. !if $exist_cdt=yes
  271. <div class="menuitem">
  272.   !read ./adm/oneitem.phtml cdt,1,module=adm/class/cdt
  273. !!  !href module=adm/class/cdt $U_cdt
  274. </div><!--menuitem-->
  275. !endif
  276. <div class="menuitem">
  277. !read ./adm/oneitem.phtml forum,1,module=adm/forum/mboard
  278. !!!href module=adm/forum/mboard $im "gifs/themes/$wims_theme_image/forum.gif" alt="forum" title=forum"> $N_Mboard
  279. </div><!--menuitem-->
  280. !ifval $dcnt+$n+$m+$v>0 and $is_interclass!=yes
  281. <div class="itemsep"></div><!--itemsep-->
  282. <div class="menuitem">
  283. !read ./adm/oneitem.phtml myscore,1,module=adm/class/userlist.$lang
  284. !!!href module=adm/class/userlist.$lang $im "gifs/themes/$wims_theme_image/myscore.gif" alt="myscore" title=myscore"> $U_myscore
  285. </div><!--menuitem-->
  286. !endif
  287. !if $class_type isin 234
  288. <div class="menuitem">
  289. !read ./adm/oneitem.phtml account,1,module=adm/class/userlist&job=userprop
  290. !!! !href module=adm/class/userlist&job=userprop $im "gifs/themes/$wims_theme_image/account.gif" alt="account" title="account"> $U_account
  291. </div><!--menuitem-->
  292. !endif
  293. <div class="tailsep"></div><!--tailsep-->
  294. !set class_ent1=!rows2lines $class_ent
  295. !set class_ent_n0=!linecnt $class_ent1
  296. !for i_=1 to $class_ent_n0
  297.   !set 1_=!line $i_ of $class_ent1
  298.    <div class="menuitem">
  299.    !read ./adm/oneitem.phtml $(1_[1]),2,$(1_[2]),external
  300.    !!  <a href="$(1_[2])" target=wims_external>$im "gifs/themes/$wims_theme_image/ent.gif" alt="ent" title="ent"> $(1_[1])</a>
  301.    </div><!--menuitem-->
  302. !next i_
  303. </div><!--wimsmenu-->
  304. </div><!--wimsmenumodubox-->
  305. <div id="wimsmenubox" style="background-color:$wims_ref_bgcolor;">
  306. <div class="wimsmenu">
  307. <div class="menublock">
  308. <div class="menuitem">
  309. !read ./adm/oneitem.phtml U_oclass,1,module=adm/class/classes&type=participant
  310. !!!href module=adm/class/classes&type=participant $U_oclass
  311. </div><!--menuitem-->
  312. !!<div class="menuitem">
  313. !!!href cmd=close&module=home $V_Quit
  314. !!</div>
  315. <div class="menuitem">
  316. !mailurl $wims_supervisormail $V_Wsup
  317. </div><!--menuitem-->
  318. </div><!--end menublock-->
  319. <div class="menublock">
  320. <div class="menuitem">
  321. !read ./adm/oneitem.phtml V_Chpref,1,module=adm/light&phtml=useropts.phtml.$lang
  322. !!!href module=adm/light&phtml=useropts.phtml.$lang $V_Chpref
  323. </div><!--menuitem-->
  324. <div class="menuitem">
  325. !read ./adm/oneitem.phtml passwd,1,module=adm/class/passwd
  326. !!!href module=adm/class/passwd $V_Chpass
  327. </div><!--menuitem-->
  328. </div><!--end menublock-->
  329. </div><!--wimsmenu-->
  330. </div><!--wimsmenubox-->
  331. </div>
  332. <div id="wimstailbox">
  333. <div class="wimstail">
  334. <div class="tailitem">
  335. WIMS-$wims_version@$httpd_HTTP_HOST
  336. </div><!--tailitem-->
  337. :end
  338. !if $wims_user=supervisor
  339.  <div class="tailitem">
  340.  !href $ $SU_Bhome
  341.  </div>
  342. !endif
  343. </div><!--wimstail-->
  344. </div><!--wimstailbox-->
  345. </body>
  346. </html>
  347. <!-- end of user.phtml -->
  348.  
  349.