Subversion Repositories wimsdev

Rev

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