Subversion Repositories wimsdev

Rev

Rev 2356 | Rev 3066 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1.  
  2. !read adm/title.phtml 1\
  3. $wims_classname - $wims_institutionname\
  4. $module_description\
  5. $wims_name_sequence $seq
  6.  
  7. $name_addseq
  8.  
  9.   !set data=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$seq
  10.   !form reply
  11.   $wims_name_title : <input name="seq_title" size=12 value="$(data[1;])">
  12.  
  13.   $wims_name_Description : <input name="seq_desc" size=20 value="$(data[2;])">
  14.  
  15.   $wims_name_Status :
  16.   !set visible=$(data[4;])
  17.   !formselect visible list 0,1 prompt $wims_name_status
  18.  $table_header
  19.  !for i=1 to $doccnt
  20.   !set sh=!record $i of wimshome/log/classes/$wims_class/doc/.index
  21.   !distribute lines $sh into s_,t_,bidon,bidon,bidon,o_
  22.   $table_tr
  23.   <td>
  24.   !href module=adm/doc&job=read&doc=$s_&block=main $t_
  25.   </td>
  26.   <td align="center">
  27.   !item $[$o_ +1] of $wims_name_status
  28.    [
  29.   !href module=adm/doc&job=prop&doc=$s_ $wims_name_change
  30.   ]
  31.   </td>
  32.   <td align="center">
  33.   !set c_$i=!positionof item c $i in $(data[3;])
  34.   <input name="c_$i" size=5 value="$(c_$i)">
  35.   </td>
  36.  !next i
  37.   !for i=1 to $docpubliccnt
  38.   !set sh=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
  39.   !distribute lines $sh into s_,t_,ti,d_,o_
  40.   $table_tr
  41.   <td>
  42.   !href module=$s_&$t_ $ti
  43.   </td>
  44.   <td align="center">
  45.   !item $[$o_ +1] of $wims_name_status
  46.    [
  47.    !href module=adm/class/adddoc&job=prop&doc=$i $wims_name_change
  48.    ]
  49.   </td>
  50.   <td align="center">
  51.    !set doc_$i=!positionof item doc $i in $(data[3;])
  52.   <input name="doc_$i" size=5 value="$(doc_$i)">
  53.   </td>
  54.  !next i
  55.  !for i=1 to $sheetcnt
  56.   !set sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  57.   !distribute lines $sh into ac,t_,ti
  58.   $table_tr
  59.   <td>
  60.   !href module=adm/class/sheet&sheet=$i $ti
  61.   </td>
  62.   <td align="center">$(name_sheet_status[$ac+1])</td>
  63.   <td align="center">
  64.   !set sheet_$i=!positionof item sheet $i in $(data[3;])
  65.   <input name="sheet_$i" size=5 value="$(sheet_$i)">
  66.   </td>
  67.  !next i
  68.  !set examcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
  69.  !for i=1 to $examcnt
  70.   !set sh=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  71.   !distribute lines $sh into ac,t_,d_,ti
  72.   $table_tr
  73.   <td>
  74.   !href module=adm/class/exam&exam=$i $ti
  75.   </td>
  76.   <td align="center">$(name_sheet_status[$ac+1])</td>
  77.   <td align="center">
  78.   !set exam_$i=!positionof item exam $i in $(data[3;])
  79.   <input name="exam_$i" size=5 value="$(exam_$i)"></td>
  80.  !next i
  81.  !set votecnt=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
  82.  !for i=1 to $votecnt
  83.   !set sh=!record $i of wimshome/log/classes/$wims_class/vote/.votes
  84.   !distribute lines $sh into st_,ti_,op_,re_
  85.   $table_tr
  86.   <td>
  87.   !href module=adm/vote&job=read&vote=$i $ti_
  88.   </td>
  89.   <td align="center">$(wims_name_status[$st_+1])</td>
  90.   <td align="center">
  91.   !set vote_$i=!positionof item vote $i in $(data[3;])
  92.   <input name="vote_$i" size=5 value="$(vote_$i)">
  93.   </td>
  94.  !next i
  95.  $table_end
  96.   <p><center><input type=submit value="$wims_name_tosave"></center>
  97.  </form>
  98.