Subversion Repositories wimsdev

Rev

Rev 18147 | 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.     !set tmp_sheetstatus=!getsheetstatus sheet=$num
  92.     !if $tmp_sheetstatus iswordof 1 2
  93.       !set formula_list=!record 0 of adm/class/sheetformula
  94.       !set scoremax=!line 1 of $sevlist
  95.       !default scoremax=10
  96.       !set sev_$num=!line $num + 1 of $sevlist
  97.       !distribute word $(sev_$num) into w_$num,s,ss
  98.       !bound s between integer 0 and 6 default $tmp_s
  99.       !bound ss between integer 0 and 2 default $tmp_ss
  100.       !set f_$num=!item $s+1 of $formula_list
  101.       !set f_$num=!replace internal I by I$ss in $(f_$num)
  102.       !set pe=!line $num of $percents
  103.       !set try=!getscoretry sheet=$num
  104.       !set try0=!text select 123456789 in $try
  105.       !increase seq_item
  106.       <li class="wims_sheet_item" id="sh$num">
  107.         <span class="wims_seq_item_n">$seq_item</span>
  108.       !href module=adm/sheet&sh=$num&seq=$i $ti
  109.         <ul class="wims_sheet_info">
  110.       !if showshweight iswordof $class_option
  111.             <li class="wims_sheet_weight small">$wims_name_coeff <span class="sheet_weight_num">$(w_$num)</span></li>
  112.       !endif
  113.       !if $a_>=2
  114.         <li class="wims_user_sheet_expire"><span class="wims_status wims_status_2">$U_expired</span></li>
  115.       !else
  116.         !if showshexpire iswordof $class_option
  117.           <li class="wims_user_sheet_expire small">
  118.           !read misc/expire.phtml.$lang $t_
  119.           </li>
  120.         !endif
  121.       !endif
  122.       </ul>
  123.       <div class="wims_user_info">
  124.       !if $try0!=$empty
  125.         !distribute words $pe into p1,p2,p3,p4
  126.         !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_
  127.         !set ff_$num=!mathsubst Q=$y_ in $(f_$num)
  128.         !for sev=0 to 2
  129.           !set ff_$num=!mathsubst I$sev=$(x$(sev)_) in $(ff_$num)
  130.         !next
  131.         <span class="wims_sheet_score">
  132.         !!! adm/class/userscore/getuser.phtml
  133.         !!! adm/class/userscore/csv/download.proc
  134.         !!! themes/_widgets/usersheet.phtml
  135.           $(wims_name_thsheet[9]): $[rint(100*$scoremax*$(ff_$num))/100]/$scoremax
  136.         !!$(wims_name_thsheet[5]): $p1%,
  137.         !!$(wims_name_thsheet[7]): $[$p2]/10,
  138.         !!$(wims_name_thsheet[10]): $p3%,
  139.         !!$(wims_name_thsheet[13]): $[$p4/10]/10
  140.         </span>
  141.       !endif
  142.       </div>
  143.       <div class="wims_sheet_desc">
  144.       !set cut=!detag $de
  145.       !set lim=100
  146.       !set cut=!char 1 to $lim of $cut
  147.       !set cutcnt=!wordcnt $cut
  148.       !set cutchar=!charcnt $cut
  149.       !if $cutchar = $lim
  150.         !set cutlim=$[$cutcnt-1]
  151.       !else
  152.         !set cutlim=$[$cutcnt]
  153.       !endif
  154.       !word 1 to $cutlim of $cut
  155.       !if $cutchar=$lim
  156.         !set wims_ref_class=wims_button_help smaller
  157.         !set wims_ref_title= Voir la description complete.
  158.         !href module=adm/sheet&sh=$num&seq=$i [...]
  159.       !endif
  160.       </div><!--wims_sheet_desc-->
  161.       !! ------ download techvarvalue for individual sheet
  162.       !if $indivtechvar!=$empty
  163.         !set indivtechval_$num=!defof user_techvar_$(indivtechvar) in $userdef
  164.       !else
  165.         !reset indivtechval_$num
  166.       !endif
  167.       !! ------ end individual sheet
  168.       !read theme.phtml _widgets/userbar.phtml $num
  169.       </li><!--wims_sheet_item-->
  170.       !reset a_,t_,ti,de
  171.     !endif
  172.   !endif
  173.   !if $type=vote
  174.     !set v_=!record $num of wimshome/log/classes/$wims_class/vote/.votes
  175.     !distribute lines $v_ into a_,t_
  176.     !if $a_>=1 and $a_<=2
  177.       !increase seq_item
  178.       <li class="wims_vote_item">
  179.         <span class="wims_seq_item_n">$seq_item</span>
  180.       !href module=adm/vote&job=read&vote=$num&seq=$i $t_
  181.       </li>
  182.     !endif
  183.     !reset a_,t_
  184.   !endif
  185.   !if $type=freework
  186.     !set v_=!record $num of wimshome/log/classes/$wims_class/freeworks/.freeworks
  187.     !distribute lines $v_ into a_,bl,t_,de,bl,bl,tt_
  188.     !if $a_>=1 and $a_<=2
  189.       !increase seq_item
  190.       <li class="wims_freework_item">
  191.         <span class="wims_seq_item_n">$seq_item</span>
  192.       !href module=adm/class/freework&freework=$num&seq=$i $t_
  193.         <div class="wims_freework_desc">$de</div>
  194.         <ul class="wims_freework_info">
  195.           <li class="wims_user_freework_expire small">
  196.           !read misc/expire.phtml.$lang $tt_
  197.           </li>
  198.         </ul>
  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_,title_,de_,bl,bl,h_
  207.     !set tmp_sheetstatus=!getsheetstatus exam=$num
  208.     !if $tmp_sheetstatus iswordof 1 2
  209.       !increase seq_item
  210.       <li class="wims_exam_item">
  211.         <span class="wims_seq_item_n">$seq_item</span>
  212.       !href module=adm/class/exam&exam=$num&seq=$i $title_
  213.         <span class="wims_user_exam_expire">
  214.       !if $a_>=2
  215.         <span class="wims_status wims_status_2">$U_expired</span>
  216.       !else
  217.         !if showexexpire iswordof $class_option
  218.           !read misc/expire.phtml.$lang $ex_
  219.         !else
  220.           &nbsp;
  221.         !endif
  222.       !endif
  223.       </span>
  224.       <div class="wims_exam_desc">$de_</div>
  225.       !read theme.phtml _widgets/userexambar.phtml $num
  226.     </li>
  227.     !endif
  228.     !reset a_,ex_,du_,nb_,title_,de_
  229.   !endif
  230.  
  231.   !reset s_ v_ d_ e_
  232. !next i_
  233. </ul>
  234. </div>
  235. !reset tmp  tmp_w tmp_s tmp_ss
  236.