Subversion Repositories wimsdev

Rev

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

  1.  
  2. !read adm/title.phtml 1\
  3. $classname\
  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.   !set wims_ref_class=wims_button_help
  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.   </tr>
  37.  !next i
  38.   !for i=1 to $docpubliccnt
  39.   !set sh=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
  40.   !distribute lines $sh into s_,t_,ti,d_,o_
  41.   $table_tr
  42.   <td>
  43.   !href module=$s_&$t_ $ti
  44.   </td>
  45.   <td align="center">
  46.   !item $[$o_ +1] of $wims_name_status
  47.    !set wims_ref_class=wims_button_help
  48.    !href module=adm/class/adddoc&job=prop&doc=$i $wims_name_change
  49.    
  50.   </td>
  51.   <td align="center">
  52.    !set doc_$i=!positionof item doc $i in $(data[3;])
  53.   <input name="doc_$i" size="5" value="$(doc_$i)"/>
  54.   </td>
  55.   </tr>
  56.  !next i
  57.  !for i=1 to $sheetcnt
  58.   !set sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  59.   !distribute lines $sh into ac,t_,ti
  60.   $table_tr
  61.   <td>
  62.   !href module=adm/class/sheet&sheet=$i $ti
  63.   </td>
  64.   <td align="center">$(wims_name_shstatus[$ac+1])</td>
  65.   <td align="center">
  66.   !set sheet_$i=!positionof item sheet $i in $(data[3;])
  67.   <input name="sheet_$i" size="5" value="$(sheet_$i)"/>
  68.   </td>
  69.   </tr>
  70.  !next i
  71.  !set examcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
  72.  !for i=1 to $examcnt
  73.   !set sh=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  74.   !distribute lines $sh into ac,t_,d_,ti
  75.   $table_tr
  76.   <td>
  77.   !href module=adm/class/exam&exam=$i $ti
  78.   </td>
  79.   <td align="center">$(wims_name_shstatus[$ac+1])</td>
  80.   <td align="center">
  81.   !set exam_$i=!positionof item exam $i in $(data[3;])
  82.   <input name="exam_$i" size="5" value="$(exam_$i)"/></td>
  83. </tr>
  84.  !next i
  85.  !set votecnt=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
  86.  !for i=1 to $votecnt
  87.   !set sh=!record $i of wimshome/log/classes/$wims_class/vote/.votes
  88.   !distribute lines $sh into st_,ti_,op_,re_
  89.   $table_tr
  90.   <td>
  91.   !href module=adm/vote&job=read&vote=$i $ti_
  92.   </td>
  93.   <td align="center">$(wims_name_status[$st_+1])</td>
  94.   <td align="center">
  95.   !set vote_$i=!positionof item vote $i in $(data[3;])
  96.   <input name="vote_$i" size="5" value="$(vote_$i)"/>
  97.   </td>
  98.   </tr>
  99.  !next i
  100.  $table_end
  101.   <div class="wimscenter wimsform"><input type="submit" value="$wims_name_tosave"/></div>
  102.  
  103. !formend
  104.