Subversion Repositories wimsdev

Rev

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