Subversion Repositories wimsdev

Rev

Rev 5709 | Rev 5957 | 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 clear=all/></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. !endif
  109. <p>
  110. <div class="wims_class_motd">
  111. !read ./wimshome/log/classes/$wims_class/.motd
  112. </div><!--end of wims_class_motd-->
  113. !let test2=!record 0 of wimshome/log/classes/$wims_class/motd/$wims_user
  114. !let test=!record 0 of wimshome/log/classes/$wims_class/motd/.$wims_user
  115. !if # notin $test and $test2!=$empty
  116. <div class="wims_class_pmotd">
  117.  !read ./wimshome/log/classes/$wims_class/motd/$wims_user
  118.  &nbsp; [
  119.  !href module=adm/class/motd $(wims_name_actionlist[4])
  120. ] </div><!-- end of wims_class_pmotd-->
  121. !endif
  122.  
  123. <p>
  124. !if $class_type>=2
  125.  !read ./subclasses.phtml
  126.  !set is_interclass=yes
  127. !endif
  128. !set seq_cnt=!record 0 of wimshome/log/classes/$wims_class/seq/.sequences
  129. !set seq_cnt=!line 1 of $seq_cnt
  130. !set seq_open=!defof sequence_open in wimshome/log/classes/$wims_class/seq/.def
  131. !set seq_reverse=!defof sequence_reverse in wimshome/log/classes/$wims_class/seq/.def
  132. !if $seq_open=yes and $seq_cnt>0
  133.  !if $seq>0
  134.   !read ./sequence.phtml $seq
  135.   !reset seq
  136.  !else
  137.   !for i=1 to $seq_cnt
  138.      !if $seq_reverse=yes
  139.       !set u=$[$seq_cnt+1-$i]
  140.      !else
  141.       !set u=$i
  142.      !endif
  143.     !read ./sequence.phtml $u
  144.   !next
  145.  !endif
  146.   !goto endbar
  147. !endif
  148.  
  149. !set dcnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
  150. !for i=1 to $dcnt
  151.  !set d_=!record $i of wimshome/log/classes/$wims_class/doc/.index
  152.  !distribute lines $d_ into s_,t_,a_,e_,c_,o_
  153.  !if $o_>0
  154.   !set ds_list=!append line $s_ to $ds_list
  155.   !set dt_list=!append line $t_ to $dt_list
  156.  !endif
  157. !next i
  158. !set dcnt=!linecnt $ds_list
  159.  
  160. !set dpcnt=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex
  161. !for i=1 to $dpcnt
  162.  !set d__=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
  163.  !distribute lines $d__ into s_,t_,ti_,de_,o_
  164.  !if $o_>0
  165.   !set dps_list=!append line $s_ to $dps_list
  166.   !set dpt_list=!append line $t_ to $dpt_list
  167.   !set dpti_list=!append line $ti_ to $dpti_list
  168.   !set dpde_list=!append line $de_ to $dpde_list
  169.  !endif
  170. !next i
  171. !set dpcnt=!linecnt $dps_list
  172.  
  173. !set t=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
  174. !set wlist=!record 0 of wimshome/log/classes/$wims_class/sheets/.weight
  175. !set aclist=
  176. !for i=1 to $t
  177.  !set s_$i=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  178.  !set a_=!line 1 of $(s_$i)
  179.  !if $a_>=1 and $a_<=2
  180.   !set aclist=!append item $i to $aclist
  181.  !endif
  182. !next i
  183. !set n=!itemcnt $aclist
  184. !set t=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
  185. !set aelist=
  186. !for i=1 to $t
  187.  !set e_$i=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  188.  !set a_=!line 1 of $(e_$i)
  189.  !if $a_>=1 and $a_<=2
  190.   !set aelist=!append item $i to $aelist
  191.  !endif
  192. !next i
  193.  
  194. !set m=!itemcnt $aelist
  195. !set t=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
  196. !set avlist=
  197. !for i=1 to $t
  198.  !set v_$i=!record $i of wimshome/log/classes/$wims_class/vote/.votes
  199.  !set a_=!line 1 of $(v_$i)
  200.  !if $a_>=1 and $a_<=2
  201.   !set avlist=!append item $i to $avlist
  202.  !endif
  203. !next i
  204. !set v=!itemcnt $avlist
  205.  
  206. !ifval $dcnt+$dpcnt+$n+$m+$v=0
  207.  !if $is_interclass!=yes
  208.  $U_nosheet
  209.  !endif
  210. !else
  211.  !if $dcnt>0
  212.   <table class="wims_user_doc_table">
  213.   !for i=1 to $dcnt
  214.    !set s_=!line $i of $ds_list
  215.    !set t_=!line $i of $dt_list
  216.    <tr class="wims_user_doc"><td class="wims_user_doc_type">$wims_name_doc</td><td colspan="3">
  217.    !href module=adm/doc&job=read&doc=$s_&block=main $t_
  218.    </td></tr>
  219.   !next i
  220.   </table>
  221.   <p>
  222.  !endif
  223.  !if $dpcnt>0
  224.   <table class="wims_user_docp_table">
  225.   !for i=1 to $dpcnt
  226.    !set s_=!line $i of $dps_list
  227.    !set t_=!line $i of $dpt_list
  228.    <tr class="wims_user_docp"><td class="wims_user_doc_type">$wims_name_doc</td><td colspan="3">
  229.     !href module=$s_&$t_ $(dpti_list[$i;])
  230.    </td></tr>
  231.   !next i
  232.   </table>
  233.   <p>
  234.  !endif
  235.  !if $n >0
  236.   <table class="wims_user_sheet_table">
  237.   !for i=1 to $n
  238.    !set se=!item $i of $aclist
  239.    !distribute lines $(s_$se) into ac,t_,ti,de
  240.    <tr class="wims_user_sheet"><td class="wims_user_sheet_type">$wims_name_Sheet $se. <td class="wims_user_sheet_desc">
  241.   !href module=adm/sheet&sh=$se $ti
  242.   </td><td class="wims_user_sheet_expire">
  243.    !if $ac>=2
  244.     $U_expired
  245.    !else
  246.     !if showshexpire iswordof $class_option
  247.      !read misc/expire.phtml.$lang $t_
  248.     !endif
  249.    !endif
  250.    </td>
  251.    !set pe=!line $se of $percents
  252.    !set p1=!word 1 of $pe
  253.    !set p2=!word 2 of $pe
  254.    <td class="wims_user_sheet_score">
  255.    !if $p1!=$empty
  256.     $p1% $U_done, $U_average $[$p2]/10
  257.    !else
  258.     &nbsp;
  259.    !endif
  260.    </td><td>
  261.    !if showshweight iswordof $class_option
  262.     ($wims_name_coeff
  263.      !line $i of $wlist
  264.     )
  265.    !endif
  266.    </td>
  267.    </tr>
  268.   !next i
  269.   </table><p>
  270.  !endif
  271.  !if $m>0
  272.  <table class="wims_user_exam_table">
  273.  !for i=1 to $m
  274.   !set se=!item $i of $aelist
  275.   !distribute lines $(e_$se) into ac,t_,s_,ti,de
  276.   <tr class="wims_user_exam"><td class="wims_user_exam_type">$wims_name_Examen $se. </td>
  277.   <td class="wims_user_exam_desc">
  278.   !href module=adm/class/exam&job=student&exam=$se $ti
  279.   </td><td class="wims_user_exam_expire">
  280.   !if $ac>=2
  281.    $U_expired
  282.   !else
  283.    !if showexexpire iswordof $class_option
  284.     !read misc/expire.phtml.$lang $t_
  285.    !else
  286.     &nbsp;
  287.    !endif
  288.   !endif
  289.   </td></tr>
  290.  !next i
  291.  </table>
  292.  <p>
  293.  !endif
  294.  !if $v>0
  295.  <table class="wims_user_vote_table">
  296.  !for i=1 to $v
  297.   !set sv=!item $i of $avlist
  298.   !distribute lines $(v_$sv) into ac,ti
  299.   <tr class="wims_user_vote"><td class="wims_user_vote_type">$wims_name_Vote $i</td><td class="wims_user_vote_desc">
  300.   !href module=adm/vote&job=read&vote=$sv $ti
  301.   </td><td class="wims_user_vote_expire">
  302.   !if $ac>=2
  303.    $U_expired
  304.   !else
  305.    &nbsp;
  306.   !endif
  307.   </td>
  308.  !next i
  309.  </table><p>
  310. !endif
  311. !endif
  312.  
  313. :endbar
  314. </div><!--wimsbody-->
  315. </div><!--wimspagebox-->
  316. <div id="wimsmenumodubox">
  317. <div class="wimsmenu">
  318. !if $exist_cdt=yes
  319. <div class="menuitem">
  320.   !read ./adm/oneitem.phtml cdt,1,module=adm/class/cdt
  321. </div><!--menuitem-->
  322. !endif
  323. !set forum_policy=!defof mb_readpolicy in wimshome/log/classes/$wims_class/forum/.def
  324. !reset name_c
  325. !if $forum_policy!=owner
  326.   !if $class_superclass!=
  327.    !set name_c=!defof class_description in wimshome/log/classes/$wims_class/.def
  328.    !set name_c=<small>($name_c)</small>
  329.   !endif
  330.  <div class="menuitem">
  331. !read ./adm/oneitem.phtml forum,1,module=adm/forum/mboard
  332.  $name_c
  333.  </div><!--menuitem-->
  334. !endif
  335. !!! the following allows to have forums in level. I comment because
  336. !!I don't know if it useful. don't delete.
  337. !!!if $wims_class=$wims_superclass and $class_type=4
  338. !!  !set level_cnt=!record 0 of wimshome/log/classes/$wims_class/levels
  339. !!  !set level_cnt=!linecnt $level_cnt
  340. !!  !set participate_=!defof user_participate in wimshome/log/classes/$wims_class/.users/$wims_user
  341. !!  !set supervise_=!defof user_supervise in wimshome/log/classes/$wims_class/.users/$wims_user
  342. !!  !for le_ from 1 to $level_cnt
  343. !!     !defread wimshome/log/classes/$wims_class/$le/forum/.def
  344. !!   !if $mb_defined!=yes and ,$wims_class/$le_/ isin ,$participate_,$supervise_ and $mb_readpolicy!=owner
  345. !!    !set name_c=!defof class_description in wimshome/log/classes/$wims_class/$le_/.def
  346. !!     <div class="menuitem">
  347. !!      !read ./adm/oneitem.phtml forum,1,module=adm/forum/mboard&forum=classes/$wims_class/$le_
  348. !!      <small>($name_c)</small>
  349. !!     </div><!--end menuitem-->
  350. !!    !endif
  351. !!  !next
  352. !!!endif
  353. !ifval $dcnt+$n+$m+$v>0 and $is_interclass!=yes
  354. <div class="itemsep"></div>
  355. <div class="menuitem">
  356. !read ./adm/oneitem.phtml myscore,1,module=adm/class/userlist
  357. </div><!--end menuitem-->
  358.  !if $wims_showlivret!=no
  359.   !set livret_nbcomp=!recordcnt wimshome/log/classes/$wims_class/livret/.comps
  360.   !if $livret_nbcomp >0
  361.    <div class="menuitem">
  362.    !read ./adm/oneitem.phtml livret,1,module=adm/class/livret
  363.    </div><!--end menuitem-->
  364.   !endif
  365.  !endif
  366. <div class="itemsep"></div>
  367. !endif
  368. !if $class_type isin 013
  369. <div class="menuitem">
  370. !read ./adm/oneitem.phtml account,1,module=adm/class/userlist&job=userprop
  371. </div><!--end menuitem-->
  372. !endif
  373. !set class_ent1=!rows2lines $class_ent
  374. !set class_ent_n0=!linecnt $class_ent1
  375. !if $class_ent_n0>0
  376. <div class="itemsep"></div><!--tailsep-->
  377. !for i_=1 to $class_ent_n0
  378.   !set 1_=!line $i_ of $class_ent1
  379.    <div class="menuitem">
  380.    !read ./adm/oneitem.phtml $(1_[1]),2,$(1_[2]),external
  381.    </div><!--end menuitem-->
  382. !next i_
  383. !endif
  384. !if $wims_user=supervisor
  385.  <div class="itemsep"></div><!--tailsep-->
  386.  <div class="menuitem">
  387.  !read ./adm/oneitem.phtml backteacher,1,$
  388.  </div><!--end menuitem-->
  389. !endif
  390.  
  391. </div><!--end wimsmenu-->
  392. </div><!--end wimsmenumodubox-->
  393.  
  394.  <div id="wimsmenubox" class="footer">
  395.   <div class="wimsmenu">
  396.    <div class="menublock">
  397.     <span class="menuitem">
  398.      !if $wims_superclass!=$wims_class and $wims_superclass!=$empty and $auth_method isitemof $auth_method_list
  399.       !read ./adm/oneitem.phtml U_oclass,1,module=adm/class/classes&type=authparticipant&auth_user=$ext_login&class=$wims_superclass
  400.      !else
  401.       !read ./adm/oneitem.phtml U_oclass,1,module=adm/class/classes&type=participant
  402.      !endif
  403.     </span><!-- end menuitem-->
  404.    </div><!--end menublock-->
  405.    <div class="menublock">
  406.     <span class="menuitem">
  407.      $supmail
  408.     </span><!-- end menuitem-->
  409.    </div><!--end menublock-->
  410.    <div class="menublock">
  411.     <span class="menuitem">
  412.      !read ./adm/oneitem.phtml pref,1,module=adm/light&phtml=useropts.phtml.$lang
  413.     </span><!-- end menuitem-->
  414.    </div><!--end menublock-->
  415. !!<div class="menublock">
  416. !!<span class="menuitem">
  417. !!!read ./adm/oneitem.phtml passwd,1,module=adm/class/passwd
  418. !!</span><!-- menuitem-->
  419. !!      </div><!--end menublock-->
  420.   </div><!--end of wimsmenu-->
  421.  </div><!--end of wimsmenubox-->
  422.  
  423.  <div class="spacer"></div>
  424. </div><!--end of wimsbodybox-->
  425. :end
  426. </body>
  427. </html>
  428. <!-- end of $wims_theme/user.phtml -->
  429.  
  430.