Subversion Repositories wimsdev

Rev

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

  1. <!-- begin of $wims_theme/user.phtml -->
  2.  
  3. !! Class participant page theme.
  4. !nocache
  5. !if $module!=home
  6.  !exit
  7. !endif
  8.  
  9. !set home_theme=yes
  10.  
  11. !set class_authidp=!defof class_authidp in wimshome/log/classes/$wims_superclass/.def
  12. !set auth_method_list=cas,ldap,php
  13. !set auth_method=$(class_authidp[1;])
  14. !if $(class_authidp[1;]) isitemof $auth_method_list
  15.   !set ext_login=$wims_external_auth
  16. !endif
  17. !default ext_login=$wims_user
  18.  
  19. !set percents=!getscorepercent
  20. !set class_homepage=!getdef class_homepage in wimshome/log/classes/$wims_class/.def
  21. !set etest=!record 0 of wimshome/log/classes/$wims_class/.parmreg/$wims_user.exam
  22. !set n_=!wordcnt $etest
  23.  
  24. !if / isin $class_homepage and _tool notin $wims_session
  25.  !set deffile=wimshome/log/classes/$wims_class/doc/$class_homepage.def
  26.  !set t_=!getdef titb in $deffile
  27.  !if $t_=$empty or $n_>=4
  28.   !goto normal
  29.  !endif
  30.  !read ./userhome.phtml
  31.  !goto end
  32. !endif
  33.  
  34. :normal
  35. !read classlogo.phtml
  36. !if $class_logo!=
  37.  <div id="wimslogo$class_logoside">
  38.   <img src="$class_logo" alt="class logo"/>
  39.  </div>
  40. !endif
  41.  
  42. !read ./adm/title.phtml 2\
  43.  <span class="wims_classname">$wims_classname</span> <span class="wims_class_typename">($(wims_name_$class_typename))</span>
  44.  
  45. !read adm/class/initclass $wims_superclass, auth
  46. !!FIXME
  47. !if $auth_method isitemof $auth_method_list
  48.    !set wims_user_ext=!defof user_external_auth in wimshome/log/classes/$wims_superclass/.users/$wims_user
  49.  !endif
  50.  !default wims_user_ext=$wims_user
  51.  <div class="wims_classes_direct">
  52. !if $wims_superclass=$empty or $wims_superclass=$wims_class
  53.   $wims_institutionname
  54. !else
  55. <span class="wims_classes_direct_portal">
  56.  !href module=adm/class/classes&type=authparticipant&class=$wims_superclass&auth_user=$wims_user_ext $wims_institutionname
  57. </span>
  58.  !if / isin $class_parent and $class_type=1
  59.   !set pname=!defof class_description in wimshome/log/classes/$class_parent/.def
  60.   /
  61.  <span class="wims_classes_direct_class">
  62.   !href module=adm/class/classes&type=authparticipant&class=$class_parent&auth_user=$wims_user_ext $pname
  63.  </span>
  64.  !endif
  65. !endif
  66. </div>
  67. !!<br style="clear:both;"/></div><div class=wimsbody>
  68.  
  69. !if _tool isin $wims_session
  70.  !read ./tools.phtml
  71.  !goto end
  72. !endif
  73. !set supmail=!mailurl $wims_supervisormail $wims_name_mail
  74. !set supmail=!replace internal <a by <a class="mail" in $supmail
  75. !if $n_>=4
  76.  !distribute words $etest into h_,s_,t_,n_
  77.  !set r_=!record 0 of wimshome/sessions/$s_/examreg.$n_
  78.  !set now=$wims_nowseconds
  79.  !set ws=!translate _ to $ $ in $wims_session
  80.  !set ws=!word 1 of $ws
  81.  !set sm=!record 0 of wimshome/log/classes/$wims_class/.E$n_
  82.  !if $r_!=$empty and $s_!=$ws and $t_>$now and $sm!=#
  83.  <span class="wims_warning">$wims_name_warning</span>.
  84.   $U_examworking
  85.   !if $h_=$httpd_REMOTE_ADDR
  86.    !href session=$s_&module=adm/class/exam&job=student&exam=$n_ $U_examcont
  87.   !else
  88.    $U_examdouble
  89.    !sh rm -f ../sessions/$ws/var.stat >/dev/null
  90.   !endif
  91.   !goto end
  92.  !endif
  93.  !if $t_<$now or $r_=$empty
  94.   !writefile wimshome/log/classes/$wims_class/.parmreg/$wims_user.exam
  95.  !endif
  96. !endif
  97. $U_greet
  98.  
  99. !if & isin $newmsgcnt or $newmsgcnt>0
  100.  <p class="wims_newmsg">
  101.  !href module=adm/forum/mboard $U_newmsg
  102.  </p>
  103. !endif
  104.  
  105. !if $wims_supconnectshowed=yes and $wims_supervisorconnected!=$empty
  106.  <p>
  107.  $U_supconnected
  108.  </p>
  109. !endif
  110.  
  111. <div class="wims_class_motd">
  112. !read ./wimshome/log/classes/$wims_class/.motd
  113. </div><!--end of wims_class_motd-->
  114. !let test2=!record 0 of wimshome/log/classes/$wims_class/motd/$wims_user
  115. !let test=!record 0 of wimshome/log/classes/$wims_class/motd/.$wims_user
  116. !if # notin $test and $test2!=$empty
  117. <div class="wims_class_pmotd">
  118.  !read ./wimshome/log/classes/$wims_class/motd/$wims_user
  119.  &nbsp; [
  120.  !href module=adm/class/motd $(wims_name_actionlist[4])
  121. ] </div><!-- end of wims_class_pmotd-->
  122. !endif
  123.  
  124.  
  125. !if $class_type>=2
  126.  !read ./subclasses.phtml
  127.  !set is_interclass=yes
  128. !endif
  129. !set seq_cnt=!record 0 of wimshome/log/classes/$wims_class/seq/.sequences
  130. !set seq_cnt=!line 1 of $seq_cnt
  131. !set seq_open=!defof sequence_open in wimshome/log/classes/$wims_class/seq/.def
  132. !set seq_reverse=!defof sequence_reverse in wimshome/log/classes/$wims_class/seq/.def
  133. !if $seq_open=yes and $seq_cnt>0
  134.  !if $seq>0
  135.   !read ./sequence.phtml $seq
  136.   !reset seq
  137.  !else
  138.   !for i=1 to $seq_cnt
  139.      !if $seq_reverse=yes
  140.       !set u=$[$seq_cnt+1-$i]
  141.      !else
  142.       !set u=$i
  143.      !endif
  144.     !read ./sequence.phtml $u
  145.   !next
  146.  !endif
  147.   !goto endbar
  148. !endif
  149.  
  150. !set dcnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
  151. !for i=1 to $dcnt
  152.  !set d_=!record $i of wimshome/log/classes/$wims_class/doc/.index
  153.  !distribute lines $d_ into s_,t_,a_,e_,c_,o_
  154.  !if $o_>0
  155.   !set ds_list=!append line $s_ to $ds_list
  156.   !set dt_list=!append line $t_ to $dt_list
  157.  !endif
  158. !next i
  159. !set dcnt=!linecnt $ds_list
  160.  
  161. !set dpcnt=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex
  162. !for i=1 to $dpcnt
  163.  !set d__=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
  164.  !distribute lines $d__ into s_,t_,ti_,de_,o_
  165.  !if $o_>0
  166.   !set dps_list=!append line $s_ to $dps_list
  167.   !set dpt_list=!append line $t_ to $dpt_list
  168.   !set dpti_list=!append line $ti_ to $dpti_list
  169.   !set dpde_list=!append line $de_ to $dpde_list
  170.  !endif
  171. !next i
  172. !set dpcnt=!linecnt $dps_list
  173.  
  174. !set t=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
  175. !set wlist=!record 0 of wimshome/log/classes/$wims_class/sheets/.weight
  176. !set aclist=
  177. !for i=1 to $t
  178.  !set s_$i=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  179.  !set a_=!line 1 of $(s_$i)
  180.  !if $a_>=1 and $a_<=2
  181.   !set aclist=!append item $i to $aclist
  182.  !endif
  183. !next i
  184. !set n=!itemcnt $aclist
  185. !set t=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
  186. !set aelist=
  187. !for i=1 to $t
  188.  !set e_$i=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  189.  !set a_=!line 1 of $(e_$i)
  190.  !if $a_>=1 and $a_<=2
  191.   !set aelist=!append item $i to $aelist
  192.  !endif
  193. !next i
  194.  
  195. !set m=!itemcnt $aelist
  196. !set t=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
  197. !set avlist=
  198. !for i=1 to $t
  199.  !set v_$i=!record $i of wimshome/log/classes/$wims_class/vote/.votes
  200.  !set a_=!line 1 of $(v_$i)
  201.  !if $a_>=1 and $a_<=2
  202.   !set avlist=!append item $i to $avlist
  203.  !endif
  204. !next i
  205. !set v=!itemcnt $avlist
  206.  
  207. !ifval $dcnt+$dpcnt+$n+$m+$v=0
  208.  !if $is_interclass!=yes
  209.  $U_nosheet
  210.  !endif
  211. !else
  212.  !if $dcnt>0
  213.   <table class="wims_user_doc_table">
  214.   !for i=1 to $dcnt
  215.    !set s_=!line $i of $ds_list
  216.    !set t_=!line $i of $dt_list
  217.    <tr class="wims_user_doc"><td class="wims_user_doc_type">$wims_name_doc</td><td colspan="3">
  218.    !href module=adm/doc&job=read&doc=$s_&block=main $t_
  219.    </td></tr>
  220.   !next i
  221.   </table>
  222.  
  223.  !endif
  224.  !if $dpcnt>0
  225.   <table class="wims_user_docp_table">
  226.   !for i=1 to $dpcnt
  227.    !set s_=!line $i of $dps_list
  228.    !set t_=!line $i of $dpt_list
  229.    <tr class="wims_user_docp"><td class="wims_user_doc_type">$wims_name_doc</td><td colspan="3">
  230.     !href module=$s_&$t_ $(dpti_list[$i;])
  231.    </td></tr>
  232.   !next i
  233.   </table>
  234.  
  235.  !endif
  236.  !if $n >0
  237.   <table class="wims_user_sheet_table">
  238.   !for i=1 to $n
  239.    !set se=!item $i of $aclist
  240.    !distribute lines $(s_$se) into ac,t_,ti,de
  241.    <tr class="wims_user_sheet"><td class="wims_user_sheet_type">$wims_name_Sheet $se. <td class="wims_user_sheet_desc">
  242.   !href module=adm/sheet&sh=$se $ti
  243.   </td><td class="wims_user_sheet_expire">
  244.    !if $ac>=2
  245.     $U_expired
  246.    !else
  247.     !if showshexpire iswordof $class_option
  248.      !read misc/expire.phtml.$lang $t_
  249.     !endif
  250.    !endif
  251.    </td>
  252.    !set pe=!line $se of $percents
  253.    !set p1=!word 1 of $pe
  254.    !set p2=!word 2 of $pe
  255.    <td class="wims_user_sheet_score">
  256.    !if $p1!=$empty
  257.     $p1% $U_done, $U_average $[$p2]/10
  258.    !else
  259.     &nbsp;
  260.    !endif
  261.    </td><td>
  262.    !if showshweight iswordof $class_option
  263.     ($wims_name_coeff
  264.      !line $i of $wlist
  265.     )
  266.    !endif
  267.    </td>
  268.    </tr>
  269.   !next i
  270.   </table>
  271.  !endif
  272.  !if $m>0
  273.  <table class="wims_user_exam_table">
  274.  !for i=1 to $m
  275.   !set se=!item $i of $aelist
  276.   !distribute lines $(e_$se) into ac,t_,s_,ti,de
  277.   <tr class="wims_user_exam"><td class="wims_user_exam_type">$wims_name_Examen $se. </td>
  278.   <td class="wims_user_exam_desc">
  279.   !href module=adm/class/exam&job=student&exam=$se $ti
  280.   </td><td class="wims_user_exam_expire">
  281.   !if $ac>=2
  282.    $U_expired
  283.   !else
  284.    !if showexexpire iswordof $class_option
  285.     !read misc/expire.phtml.$lang $t_
  286.    !else
  287.     &nbsp;
  288.    !endif
  289.   !endif
  290.   </td></tr>
  291.  !next i
  292.  </table>
  293.  
  294.  !endif
  295.  !if $v>0
  296.  <table class="wims_user_vote_table">
  297.  !for i=1 to $v
  298.   !set sv=!item $i of $avlist
  299.   !distribute lines $(v_$sv) into ac,ti
  300.   <tr class="wims_user_vote"><td class="wims_user_vote_type">$wims_name_Vote $i</td><td class="wims_user_vote_desc">
  301.   !href module=adm/vote&job=read&vote=$sv $ti
  302.   </td><td class="wims_user_vote_expire">
  303.   !if $ac>=2
  304.    $U_expired
  305.   !else
  306.    &nbsp;
  307.   !endif
  308.   </td>
  309.  !next i
  310.  </table>
  311. !endif
  312. !endif
  313.  
  314. :endbar
  315. </div><!--wimsbody-->
  316. </div><!--wimspagebox-->
  317. <div id="wimsmenumodubox">
  318. <div class="wimsmenu">
  319. !if $exist_cdt=yes
  320. <div class="menuitem">
  321.   !read ./adm/oneitem.phtml cdt,1,module=adm/class/cdt
  322. </div><!--menuitem-->
  323. !endif
  324. !set forum_policy=!defof mb_readpolicy in wimshome/log/classes/$wims_class/forum/.def
  325. !reset name_c
  326. !if $forum_policy!=owner
  327.   !if $class_superclass!=
  328.    !set name_c=!defof class_description in wimshome/log/classes/$wims_class/.def
  329.    !set name_c=<small>($name_c)</small>
  330.   !endif
  331.  <div class="menuitem">
  332. !read ./adm/oneitem.phtml forum,1,module=adm/forum/mboard
  333.  $name_c
  334.  </div><!--menuitem-->
  335. !endif
  336. !!! the following allows to have forums in level. I comment because
  337. !!I don't know if it useful. don't delete.
  338. !!!if $wims_class=$wims_superclass and $class_type=4
  339. !!  !set level_cnt=!record 0 of wimshome/log/classes/$wims_class/levels
  340. !!  !set level_cnt=!linecnt $level_cnt
  341. !!  !set participate_=!defof user_participate in wimshome/log/classes/$wims_class/.users/$wims_user
  342. !!  !set supervise_=!defof user_supervise in wimshome/log/classes/$wims_class/.users/$wims_user
  343. !!  !for le_ from 1 to $level_cnt
  344. !!     !defread wimshome/log/classes/$wims_class/$le/forum/.def
  345. !!   !if $mb_defined!=yes and ,$wims_class/$le_/ isin ,$participate_,$supervise_ and $mb_readpolicy!=owner
  346. !!    !set name_c=!defof class_description in wimshome/log/classes/$wims_class/$le_/.def
  347. !!     <div class="menuitem">
  348. !!      !read ./adm/oneitem.phtml forum,1,module=adm/forum/mboard&forum=classes/$wims_class/$le_
  349. !!      <small>($name_c)</small>
  350. !!     </div><!--end menuitem-->
  351. !!    !endif
  352. !!  !next
  353. !!!endif
  354. !ifval $dcnt+$n+$m+$v>0 and $is_interclass!=yes
  355. <div class="itemsep"></div>
  356. <div class="menuitem">
  357. !read ./adm/oneitem.phtml myscore,1,module=adm/class/userlist
  358. </div><!--end menuitem-->
  359.  !if $wims_showlivret!=no
  360.   !set livret_nbcomp=!recordcnt wimshome/log/classes/$wims_class/livret/.comps
  361.   !if $livret_nbcomp >0
  362.    <div class="menuitem">
  363.    !read ./adm/oneitem.phtml livret,1,module=adm/class/livret
  364.    </div><!--end menuitem-->
  365.   !endif
  366.  !endif
  367. <div class="itemsep"></div>
  368. !endif
  369. !if $class_type isin 013
  370. <div class="menuitem">
  371. !read ./adm/oneitem.phtml account,1,module=adm/class/userlist&job=userprop
  372. </div><!--end menuitem-->
  373. !endif
  374. !set class_ent1=!rows2lines $class_ent
  375. !set class_ent_n0=!linecnt $class_ent1
  376. !if $class_ent_n0>0
  377. <div class="itemsep"></div><!--tailsep-->
  378. !for i_=1 to $class_ent_n0
  379.   !set 1_=!line $i_ of $class_ent1
  380.    <div class="menuitem">
  381.    !read ./adm/oneitem.phtml $(1_[1]),2,$(1_[2]),external
  382.    </div><!--end menuitem-->
  383. !next i_
  384. !endif
  385. !if $wims_user=supervisor
  386.  <div class="itemsep"></div><!--tailsep-->
  387.  <div class="menuitem">
  388.  !read ./adm/oneitem.phtml backteacher,1,$
  389.  </div><!--end menuitem-->
  390. !endif
  391.  
  392. </div><!--end wimsmenu-->
  393. </div><!--end wimsmenumodubox-->
  394.  
  395.  <div id="wimsmenubox" class="footer">
  396.   <div class="wimsmenu">
  397.    <div class="menublock">
  398.     <span class="menuitem">
  399.      !if $wims_superclass!=$wims_class and $wims_superclass!=$empty and $auth_method isitemof $auth_method_list
  400.       !read ./adm/oneitem.phtml U_oclass,1,module=adm/class/classes&type=authparticipant&auth_user=$ext_login&class=$wims_superclass
  401.      !else
  402.       !read ./adm/oneitem.phtml U_oclass,1,module=adm/class/classes&type=participant
  403.      !endif
  404.     </span><!-- end menuitem-->
  405.    </div><!--end menublock-->
  406.    <div class="menublock">
  407.     <span class="menuitem">
  408.      $supmail
  409.     </span><!-- end menuitem-->
  410.    </div><!--end menublock-->
  411.    <div class="menublock">
  412.     <span class="menuitem">
  413.      !read ./adm/oneitem.phtml pref,1,module=adm/light&phtml=useropts.phtml.$lang
  414.     </span><!-- end menuitem-->
  415.    </div><!--end menublock-->
  416. !!<div class="menublock">
  417. !!<span class="menuitem">
  418. !!!read ./adm/oneitem.phtml passwd,1,module=adm/class/passwd
  419. !!</span><!-- menuitem-->
  420. !!      </div><!--end menublock-->
  421.   </div><!--end of wimsmenu-->
  422.  </div><!--end of wimsmenubox-->
  423.  
  424.  <div class="spacer"></div>
  425. </div><!--end of wimsbodybox-->
  426. :end
  427. </body>
  428. </html>
  429. <!-- end of $wims_theme/user.phtml -->
  430.  
  431.