Subversion Repositories wimsdev

Rev

Rev 1407 | Rev 1499 | 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. !if $o_<1
  7.   !exit
  8. !endif
  9. !set wlist=!record 0 of wimshome/log/classes/$wims_class/sheets/.weight
  10. !set TI=!defof sequence_Title in wimshome/log/classes/$wims_class/seq/.def
  11. <fieldset id=wims_seq_$i class=wims_seq>
  12. <legend>$TI $i
  13. </legend><div class=wims_title_seq>
  14.    $tis_
  15. </div>
  16. <div class=wims_comment_seq>
  17.    $cos_
  18. </div>
  19. !set dcnt=!itemcnt $obj_
  20. !for i_=1 to $dcnt
  21.  
  22.    !distribute word $(obj_[$i_]) into type,num
  23.    !if $type=c
  24.       !set d_=!record $num of wimshome/log/classes/$wims_class/doc/.index
  25.       !distribute lines $d_ into s_,t_,bidon,bidon,bidon,o_
  26.       !if $o_>0
  27.       <div class=wims_doc_item>
  28.         !href module=adm/doc&job=read&doc=$s_&block=main&seq=$i $t_
  29.      </div>
  30.       !endif
  31.    !endif
  32.    !if $type=doc
  33.      !set d_=!record $num of wimshome/log/classes/$wims_class/doc/.docindex
  34.      !distribute lines $d_ into s_,t_,ti_,de_,o_
  35.      !if $o_>0
  36.      <div class="wims_doc_item">
  37.         !href module=$s_&$t_&seq=$i&name=$wims_name_sequence  $ti_
  38.      $de_</div>
  39.      !endif
  40.    !endif
  41.    !if $type=sheet
  42.      !set s_=!record $num of wimshome/log/classes/$wims_class/sheets/.sheets
  43.      !distribute lines $s_ into a_,t_,ti,de
  44.      !if $a_>=1 and $a_<=2  
  45.      <div class="wims_sheet_item">
  46.        !href module=adm/sheet&sh=$num&seq=$i $ti
  47.     <span class="wims_user_sheet_expire"><!--wims_user_sheet_expire-->
  48.       !if $a_>=2
  49.         $U_expired
  50.       !else
  51.        !if showshexpire iswordof $class_option
  52.         !read misc/expire.phtml.$lang $t_
  53.        !endif
  54.       !endif
  55.     </span><!--wims_user_sheet_expire-->
  56.       !set pe=!line $num of $percents
  57.       !set p1=!word 1 of $pe
  58.       !set p2=!word 2 of $pe
  59.       <span class="wims_user_sheet_score">
  60.        !if $p1!=$empty
  61.         $p1% $U_done, $U_average $[$p2]/10
  62.       !else
  63.         &nbsp;
  64.       !endif
  65.       !if showshweight iswordof $class_option
  66.        ($U_weight
  67.         !line $i of $wlist
  68.        )
  69.       !endif
  70.    </span><!--wims_user_sheet_score-->
  71.    </div><!--wims_sheet_item-->
  72.     !endif
  73.    !endif
  74.    !if $type=vote
  75.      !set v_=!record $num of wimshome/log/classes/$wims_class/vote/.votes
  76.      !distribute lines $v_ into a_,t_,ti,de
  77.      !if $a_>=1 and $a_<=2
  78.      <div class="wims_vote_item">
  79.       !href module=adm/vote&job=read&vote=$num&seq=$i $t_
  80.      </div>
  81.      !endif
  82.    !endif
  83.    !if $type=exam
  84.      !set e_=!record $num of wimshome/log/classes/$wims_class/exams/.exams
  85.      !distribute lines $e_ into a_,ex,da,t_
  86.      !if $a_>=1 and $a_<=2
  87.      <div class="wims_exam_item">
  88.       !href module=adm/class/exam&exam=$num&seq=$i $t_
  89.   <span class="wims_user_exam_expire">
  90.   !if $a_>=2
  91.    $U_expired
  92.   !else
  93.    !if showexexpire iswordof $class_option
  94.     !read misc/expire.phtml.$lang $ex
  95.    !else
  96.     &nbsp;
  97.    !endif
  98.   !endif
  99.   </span>
  100.      </div>
  101.      !endif
  102.    !endif
  103.    
  104.    !reset s_ v_ d_ e_
  105.  !next i_
  106.  </fieldset>
  107.  
  108.