Subversion Repositories wimsdev

Rev

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