Subversion Repositories wimsdev

Rev

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

  1. !distribute items $wims_read_parm into i,j
  2. !default j=1
  3. !set seq_=!record $j of wimshome/log/classes/$wims_class/seq/.sequence$i
  4. !distribute line $seq_ into tis_,cos_,obj_,o_
  5. !if $o_<1
  6.   !exit
  7. !endif
  8. !! TODO : maybe this line is already doing in the widget file _widgets/user_varsheet.phtml and
  9. !! not needed here ?
  10. !set wlist=!getscoreweight
  11. !! --------
  12. !set TI=!defof sequence_Title in wimshome/log/classes/$wims_class/seq/.def
  13.  
  14. <div id="wims_seq_$i" class="wims_seq">
  15. !if $jquery_defined!=yes and $i > 1 and $seq=$empty
  16.   !read themes/_widgets/topback.phtml wims_seq_summary
  17. !endif
  18.   <h2 class="wims_title_seq">
  19.     <span class="wims_seq_id">$TI $i</span>
  20.     <span class="wims_title_item">$tis_</span>
  21.   </h2>
  22.   <div class="wims_comment_item">$cos_</div>
  23.  
  24. !reset seq_item
  25. !set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
  26. !distribute words $tmp into tmp_w,tmp_s,tmp_ss
  27.  
  28. <ul class="wims_work_list">
  29. !set dcnt=!itemcnt $obj_
  30. !set listc=!filelist $wims_home/log/classes/$wims_class/doc
  31. !for i_=1 to $dcnt
  32.   !distribute word $(obj_[$i_]) into type,num
  33.   !if $type=c
  34.     !set d_=!nospace $(obj_[$i_])
  35.     !set num=!positionof line $d_ in $listc
  36.     !set d_=!record $num of wimshome/log/classes/$wims_class/doc/.index
  37.     !distribute lines $d_ into s_,t_,bidon,bidon,bidon,o_,bidon,bidon,de_
  38.     !if $o_>0
  39.       !increase seq_item
  40.       <li class="wims_doc_item">
  41.         <span class="wims_seq_item_n">$seq_item</span>
  42.       !href module=adm/doc&job=read&doc=$s_&block=main&seq=$i $t_
  43.         <div class="wims_doc_desc">$de_</div>
  44.       </li>
  45.     !endif
  46.   !endif
  47.   !if $type=doc
  48.     !set d_=!record $num of wimshome/log/classes/$wims_class/doc/.docindex
  49.     !distribute lines $d_ into s_,t_,ti_,de_,o_,w_
  50.     !if $o_>0
  51.       !increase seq_item
  52.       <li class="wims_doc_item">
  53.         <span class="wims_seq_item_n">$seq_item</span>
  54.         !href module=$s_&$t_&seq=$i&name=$wims_name_sequence&wksheet=$w_ $ti_
  55.         <div class="wims_doc_desc">$de_</div>
  56.       </li>
  57.     !endif
  58.     !reset s_,t_,ti_,de_,o_
  59.   !endif
  60.   !if $type=tool
  61.     !set d_=!record $num of wimshome/log/classes/$wims_class/tool/.toolindex
  62.     !distribute lines $d_ into s_,t_,ti_,de_,o_,w_
  63.     !if $o_>0
  64.       !increase seq_item
  65.       <li class="wims_tool_item">
  66.         <span class="wims_seq_item_n">$seq_item</span>
  67.       !href module=$s_&$t_&seq=$i&name=$wims_name_sequence&wksheet=$w_ $ti_
  68.         <div class="wims_tool_desc">$de_</div>
  69.       </li>
  70.     !endif
  71.     !reset s_,t_,ti_,de_,o_
  72.   !endif
  73.   !if $type=glossary
  74.     !set d_=!record $num of wimshome/log/classes/$wims_class/tool/.glossaryindex
  75.     !distribute lines $d_ into o_,t_,de_
  76.     !if $o_>0
  77.       !increase seq_item
  78.       <li class="wims_glossary_item">
  79.         <span class="wims_seq_item_n">$seq_item</span>
  80.       !href module=adm/tool/glossary&seq=$i&gl=$num&name=$wims_name_sequence $t_
  81.         <div class="wims_glossary_desc">$de_</div>
  82.       </li>
  83.     !endif
  84.     !reset t_,o_
  85.   !endif
  86.   !if $type=sheet
  87.     !reset hidden_sheet
  88.     !set s_=!record $num of wimshome/log/classes/$wims_class/sheets/.sheets
  89.     !set sevlist=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
  90.     !distribute lines $s_ into a_,t_,ti,de,b,b,b,b,b,indivtechvar
  91.     !if $wims_user!=supervisor
  92.     !! ------test if sheet is hidden for this user
  93.       !set h_=!line 9 of $s_
  94.       !if $h_!=$empty
  95.         !readproc adm/vfilter/ishiddensheet.proc $h_
  96.       !endif
  97.     !! -----end test
  98.     !endif
  99.     !if $a_>=1 and $a_<=2 and $hidden_sheet!=1
  100.       !set formula_list=!record 0 of adm/class/sheetformula
  101.       !set scoremax=!line 1 of $sevlist
  102.       !default scoremax=10
  103.       !set sev_$num=!line $num + 1 of $sevlist
  104.       !distribute word $(sev_$num) into w_$num,s,ss
  105.       !bound s between integer 0 and 6 default $tmp_s
  106.       !bound ss between integer 0 and 2 default $tmp_ss
  107.       !set f_$num=!item $s+1 of $formula_list
  108.       !set f_$num=!replace internal I by I$ss in $(f_$num)
  109.       !set pe=!line $num of $percents
  110.       !set try=!getscoretry sheet=$num
  111.       !set try0=!text select 123456789 in $try
  112.       !increase seq_item
  113.       <li class="wims_sheet_item" id="sh$num">
  114.         <span class="wims_seq_item_n">$seq_item</span>
  115.       !href module=adm/sheet&sh=$num&seq=$i $ti
  116.         <ul class="wims_sheet_info">
  117.       !if showshweight iswordof $class_option
  118.             <li class="wims_sheet_weight small">$wims_name_coeff <span class="sheet_weight_num">$(w_$num)</span></li>
  119.       !endif
  120.       !if $a_>=2
  121.         <li class="wims_user_sheet_expire"><span class="wims_status wims_status_2">$U_expired</span></li>
  122.       !else
  123.         !if showshexpire iswordof $class_option
  124.           <li class="wims_user_sheet_expire small">
  125.           !read misc/expire.phtml.$lang $t_
  126.           </li>
  127.         !endif
  128.       !endif
  129.       </ul>
  130.       <div class="wims_user_info">
  131.       !if $try0!=$empty
  132.         !distribute words $pe into p1,p2,p3,p4
  133.         !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_
  134.         !set ff_$num=!mathsubst Q=$y_ in $(f_$num)
  135.         !for sev=0 to 2
  136.           !set ff_$num=!mathsubst I$sev=$(x$(sev)_) in $(ff_$num)
  137.         !next
  138.         <span class="wims_sheet_score">
  139.           $(wims_name_thsheet[9]): $[ceil(100*$scoremax*$(ff_$num))/100]/$scoremax
  140.    !!     $(wims_name_thsheet[5]): $p1%,
  141.    !!     $(wims_name_thsheet[7]): $[$p2]/10,
  142.    !!     $(wims_name_thsheet[10]): $p3%,
  143.    !!     $(wims_name_thsheet[13]): $[$p4/10]/10
  144.         </span>
  145.       !endif
  146.       </div>
  147.  
  148.       <div class="wims_sheet_desc">
  149.       !set cut=!detag $de
  150.       !set lim=100
  151.       !set cut=!char 1 to $lim of $cut
  152.       !set cutcnt=!wordcnt $cut
  153.       !set cutchar=!charcnt $cut
  154.       !if $cutchar = $lim
  155.         !set cutlim=$[$cutcnt-1]
  156.       !else
  157.         !set cutlim=$[$cutcnt]
  158.       !endif
  159.       !word 1 to $cutlim of $cut
  160.       !if $cutchar=$lim
  161.         !set wims_ref_class=wims_button_help smaller
  162.         !set wims_ref_title= Voir la description complete.
  163.         !href module=adm/sheet&sh=$num&seq=$i [...]
  164.       !endif
  165.       </div><!--wims_sheet_desc-->
  166.       !! ------ download techvarvalue for individual sheet
  167.       !if $indivtechvar!=$empty
  168.         !set indivtechval_$num=!defof user_techvar_$(indivtechvar) in $userdef
  169.       !else
  170.         !reset indivtechval_$num
  171.       !endif
  172.       !! ------ end individual sheet
  173.       !read theme.phtml _widgets/userbar.phtml $num
  174.       </li><!--wims_sheet_item-->
  175.       !reset a_,t_,ti,de
  176.     !endif
  177.   !endif
  178.   !if $type=vote
  179.     !set v_=!record $num of wimshome/log/classes/$wims_class/vote/.votes
  180.     !distribute lines $v_ into a_,t_
  181.     !if $a_>=1 and $a_<=2
  182.       !increase seq_item
  183.       <li class="wims_vote_item">
  184.         <span class="wims_seq_item_n">$seq_item</span>
  185.       !href module=adm/vote&job=read&vote=$num&seq=$i $t_
  186.       </li>
  187.     !endif
  188.     !reset a_,t_
  189.   !endif
  190.   !if $type=freework
  191.     !set v_=!record $num of wimshome/log/classes/$wims_class/freeworks/.freeworks
  192.     !distribute lines $v_ into a_,bl,t_,de
  193.     !if $a_>=1 and $a_<=2
  194.       !increase seq_item
  195.       <li class="wims_freework_item">
  196.         <span class="wims_seq_item_n">$seq_item</span>
  197.       !href module=adm/class/freework&freework=$num&seq=$i $t_
  198.         <div class="wims_freework_desc">$de</div>
  199.       </li>
  200.     !endif
  201.     !reset a_,t_,bl,de
  202.   !endif
  203.   !if $type=exam
  204.     !reset hidden_sheet
  205.     !set e_=!record $num of wimshome/log/classes/$wims_class/exams/.exams
  206.     !distribute lines $e_ into a_,ex_,du_,t_,de_,bl,bl,h_
  207.     !! ------test if exam is hidden for this user
  208.       !if $h_!=$empty
  209.         !readproc adm/vfilter/ishiddensheet.proc $h_
  210.       !endif
  211.     !! -----end test
  212.     !if $a_>=1 and $a_<=2 and $hidden_sheet!=1
  213.       !increase seq_item
  214.       <li class="wims_exam_item">
  215.         <span class="wims_seq_item_n">$seq_item</span>
  216.       !href module=adm/class/exam&exam=$num&seq=$i $t_
  217.         <span class="wims_user_exam_expire">
  218.       !if $a_>=2
  219.         <span class="wims_status wims_status_2">$U_expired</span>
  220.       !else
  221.         !if showexexpire iswordof $class_option
  222.           !read misc/expire.phtml.$lang $ex_
  223.         !else
  224.           &nbsp;
  225.         !endif
  226.       !endif
  227.       </span>
  228.       <div class="wims_exam_desc">$de_</div>
  229.       !read theme.phtml _widgets/userexambar.phtml $num
  230.     </li>
  231.     !endif
  232.     !reset a_,ex_,du_,nb_,t_,de_
  233.   !endif
  234.  
  235.   !reset s_ v_ d_ e_
  236. !next i_
  237. </ul>
  238. </div>
  239. !reset tmp  tmp_w tmp_s tmp_ss
  240.