Subversion Repositories wimsdev

Rev

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

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