Subversion Repositories wimsdev

Rev

Rev 16196 | Rev 18127 | 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.         !!! adm/class/userscore/getuser.phtml
  140.         !!! adm/class/userscore/csv/download.proc
  141.         !!! themes/_widgets/usersheet.phtml
  142.           $(wims_name_thsheet[9]): $[rint(100*$scoremax*$(ff_$num))/100]/$scoremax
  143.         !!$(wims_name_thsheet[5]): $p1%,
  144.         !!$(wims_name_thsheet[7]): $[$p2]/10,
  145.         !!$(wims_name_thsheet[10]): $p3%,
  146.         !!$(wims_name_thsheet[13]): $[$p4/10]/10
  147.         </span>
  148.       !endif
  149.       </div>
  150.       <div class="wims_sheet_desc">
  151.       !set cut=!detag $de
  152.       !set lim=100
  153.       !set cut=!char 1 to $lim of $cut
  154.       !set cutcnt=!wordcnt $cut
  155.       !set cutchar=!charcnt $cut
  156.       !if $cutchar = $lim
  157.         !set cutlim=$[$cutcnt-1]
  158.       !else
  159.         !set cutlim=$[$cutcnt]
  160.       !endif
  161.       !word 1 to $cutlim of $cut
  162.       !if $cutchar=$lim
  163.         !set wims_ref_class=wims_button_help smaller
  164.         !set wims_ref_title= Voir la description complete.
  165.         !href module=adm/sheet&sh=$num&seq=$i [...]
  166.       !endif
  167.       </div><!--wims_sheet_desc-->
  168.       !! ------ download techvarvalue for individual sheet
  169.       !if $indivtechvar!=$empty
  170.         !set indivtechval_$num=!defof user_techvar_$(indivtechvar) in $userdef
  171.       !else
  172.         !reset indivtechval_$num
  173.       !endif
  174.       !! ------ end individual sheet
  175.       !read theme.phtml _widgets/userbar.phtml $num
  176.       </li><!--wims_sheet_item-->
  177.       !reset a_,t_,ti,de
  178.     !endif
  179.   !endif
  180.   !if $type=vote
  181.     !set v_=!record $num of wimshome/log/classes/$wims_class/vote/.votes
  182.     !distribute lines $v_ into a_,t_
  183.     !if $a_>=1 and $a_<=2
  184.       !increase seq_item
  185.       <li class="wims_vote_item">
  186.         <span class="wims_seq_item_n">$seq_item</span>
  187.       !href module=adm/vote&job=read&vote=$num&seq=$i $t_
  188.       </li>
  189.     !endif
  190.     !reset a_,t_
  191.   !endif
  192.   !if $type=freework
  193.     !set v_=!record $num of wimshome/log/classes/$wims_class/freeworks/.freeworks
  194.     !distribute lines $v_ into a_,bl,t_,de
  195.     !if $a_>=1 and $a_<=2
  196.       !increase seq_item
  197.       <li class="wims_freework_item">
  198.         <span class="wims_seq_item_n">$seq_item</span>
  199.       !href module=adm/class/freework&freework=$num&seq=$i $t_
  200.         <div class="wims_freework_desc">$de</div>
  201.       </li>
  202.     !endif
  203.     !reset a_,t_,bl,de
  204.   !endif
  205.   !if $type=exam
  206.     !reset hidden_sheet
  207.     !set e_=!record $num of wimshome/log/classes/$wims_class/exams/.exams
  208.     !distribute lines $e_ into a_,ex_,du_,title_,de_,bl,bl,h_
  209.     !! ------test if exam is hidden for this user
  210.       !if $h_!=$empty
  211.         !readproc adm/vfilter/ishiddensheet.proc $h_
  212.       !endif
  213.     !! -----end test
  214.     !if $a_>=1 and $a_<=2 and $hidden_sheet!=1
  215.       !increase seq_item
  216.       <li class="wims_exam_item">
  217.         <span class="wims_seq_item_n">$seq_item</span>
  218.       !href module=adm/class/exam&exam=$num&seq=$i $title_
  219.         <span class="wims_user_exam_expire">
  220.       !if $a_>=2
  221.         <span class="wims_status wims_status_2">$U_expired</span>
  222.       !else
  223.         !if showexexpire iswordof $class_option
  224.           !read misc/expire.phtml.$lang $ex_
  225.         !else
  226.           &nbsp;
  227.         !endif
  228.       !endif
  229.       </span>
  230.       <div class="wims_exam_desc">$de_</div>
  231.       !read theme.phtml _widgets/userexambar.phtml $num
  232.     </li>
  233.     !endif
  234.     !reset a_,ex_,du_,nb_,title_,de_
  235.   !endif
  236.  
  237.   !reset s_ v_ d_ e_
  238. !next i_
  239. </ul>
  240. </div>
  241. !reset tmp  tmp_w tmp_s tmp_ss
  242.