Subversion Repositories wimsdev

Rev

Rev 12335 | Rev 13178 | 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. !! Read some translation vars (like $C_A)
  10. !readproc adm/search_engine/names.$lang
  11.  
  12. !set data=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$seq
  13. !form reply
  14.   <label for="seq_title">$wims_name_title</label>: <input id="seq_title" name="seq_title" size="12" value="$(data[1;])" />
  15.   $
  16.   <label for="seq_desc"> $wims_name_Description</label>: <input id="seq_desc" name="seq_desc" size="20" value="$(data[2;])" />
  17.   $
  18.   <label for="visible">$wims_name_Status</label>:
  19. !set visible=$(data[4;])
  20. !formselect visible list 0,1 prompt $wims_name_status
  21.   $table_header
  22.     <caption>$wims_name_Docs, $wims_name_Votes & $C_A</caption>
  23.     $table_hdtr<th scope="col">$wims_name_title</th>
  24.     <th scope="col">$wims_name_Status</th>
  25.     <th scope="col">$wims_name_action</th></tr>
  26. !set listc=!filelist $wims_home/log/classes/$wims_class/doc
  27. !set listc=!replace internal c by in $listc
  28. !set listc=!lines2items $listc
  29. !set listc=!sort numeric items $listc
  30. !for i=1 to $doccnt
  31.   !set ci_=!item $(wims_sort_order[$i]) of $listc
  32.   !set sh=!record $ci_ of wimshome/log/classes/$wims_class/doc/.index
  33.   !distribute lines $sh into s_,t_,bidon,bidon,bidon,o_
  34.   !set ss_=!replace internal c by c$ $ in $s_
  35.   !set c_$i=!positionof item $ss_ in $(data[3;])
  36.   !set ss_=!replace internal c by c_ in $s_
  37.   $table_tr
  38.     <td>
  39.       <label for="$ss_">
  40.   !href module=adm/doc&job=read&doc=$s_&block=main $t_
  41.       </label>
  42.     </td><td class="wims_status_$o_">
  43.   !item $[$o_+1] of $wims_name_status
  44.   !set wims_ref_class=wims_button
  45.   !href module=adm/doc&job=prop&doc=$s_ $wims_name_change
  46.     </td><td>
  47.       <input type="number" name="$ss_" size="5" value="$(c_$i)" id="$ss_" />
  48.     </td>
  49.   </tr>
  50. !next i
  51. !for i=1 to $docpubliccnt
  52.   !set sh=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
  53.   !distribute lines $sh into s_,t_,ti,d_,o_
  54.   $table_tr
  55.     <td>
  56.       <label for="doc_$i">
  57.   !href module=$s_&$t_ $ti
  58.           </label>
  59.         </td><td class="wims_status_$o_">
  60.   !item $[$o_+1] of $wims_name_status
  61.   !set wims_ref_class=wims_button
  62.   !href module=adm/class/adddoc&job=prop&doc=$i $wims_name_change
  63.         </td><td>
  64.   !set doc_$i=!positionof item doc $i in $(data[3;])
  65.           <input type="number" name="doc_$i" size="5" value="$(doc_$i)" id="doc_$i" />
  66.         </td>
  67.       </tr>
  68. !next i
  69. !for i=1 to $sheetcnt
  70.   !set sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  71.   !distribute lines $sh into ac,t_,ti
  72.   $table_tr
  73.     <td>
  74.       <label for="sheet_$i">
  75.   !href module=adm/class/sheet&sheet=$i $ti
  76.       </label>
  77.     </td><td class="wims_status_$ac">
  78.       $(wims_name_shstatus[$ac+1])
  79.     </td><td>
  80.   !set sheet_$i=!positionof item sheet $i in $(data[3;])
  81.       <input type="number" name="sheet_$i" size="5" value="$(sheet_$i)" id="sheet_$i" />
  82.     </td>
  83.   </tr>
  84. !next i
  85. !set examcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
  86. !for i=1 to $examcnt
  87.   !set sh=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  88.   !distribute lines $sh into ac,t_,d_,ti
  89.   $table_tr
  90.         <td>
  91.           <label for="exam_$i">
  92.   !href module=adm/class/exam&exam=$i $ti
  93.           </label>
  94.         </td><td class="wims_status_$ac">
  95.           $(wims_name_shstatus[$ac+1])
  96.         </td><td>
  97.   !set exam_$i=!positionof item exam $i in $(data[3;])
  98.           <input type="number" name="exam_$i" size="5" value="$(exam_$i)" id="exam_$i"/>
  99.         </td>
  100.       </tr>
  101. !next i
  102. !set votecnt=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
  103. !for i=1 to $votecnt
  104.   !set sh=!record $i of wimshome/log/classes/$wims_class/vote/.votes
  105.   !distribute lines $sh into st_,ti_,op_,re_
  106.   $table_tr
  107.     <td>
  108.       <label for="vote_$i">
  109.   !href module=adm/vote&job=read&vote=$i $ti_
  110.       </label>
  111.     </td><td class="wims_status_$st_">
  112.       $(wims_name_status[$st_+1])
  113.     </td><td>
  114.   !set vote_$i=!positionof item vote $i in $(data[3;])
  115.       <input type="number" name="vote_$i" size="5" value="$(vote_$i)" id="vote_$i"/>
  116.     </td>
  117.   </tr>
  118. !next i
  119. !for i=1 to $toolcnt
  120.   !set sh=!record $i of wimshome/log/classes/$wims_class/tool/.toolindex
  121.   !distribute lines $sh into s_,t_,ti,d_,o_
  122.   $table_tr
  123.     <td>
  124.       <label for="tool_$i">
  125.   !href module=$s_&$t_ $ti
  126.       </label>
  127.     </td><td class="wims_status_$o_">
  128.   !item $[$o_+1] of $wims_name_status
  129.   !set wims_ref_class=wims_button
  130.   !href module=adm/class/adddoc&job=prop&tool=$i $wims_name_change
  131.     </td><td>
  132.   !set doc_$i=!positionof item tool $i in $(data[3;])
  133.           <input type="number" name="tool_$i" size="5" value="$(tool_$i)" id="tool_$i" />
  134.         </td>
  135.       </tr>
  136. !next i
  137.   $table_end
  138.   <div class="wimscenter wimsform"><input type="submit" value="$wims_name_tosave" /></div>
  139. !formend
  140.