Subversion Repositories wimsdev

Rev

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

  1.  
  2. !goto $gstep
  3.  
  4. :1
  5.  
  6. $table_header
  7. $table_tr
  8. <td>$name_howmany ($name_atmost 10)</td>
  9. <td>
  10. !if $vote_status>0
  11. $numsess
  12. !else
  13. !formselect mod_numsess from 1 to 10
  14. !endif
  15. </td>
  16. </tr>
  17. $table_tr
  18. <td>$name_namevar <span class="field_required">*</span></td>
  19. <td>
  20. !if $vote_status>0
  21. $namevar
  22. !else
  23. <input size="12" name="up_namevar" id="namevar" value="$namevar"/> <small>$(name_$(reg_model)_help)</small>
  24. !endif
  25. </td>
  26. </tr>
  27. $table_tr
  28.   <td>$name_textconnip</td>
  29. <td>
  30. !if $vote_status>0
  31. $defconnip
  32. !else
  33. <input size="12" name="up_defconnip" id="defconnip" value="$defconnip"/>
  34. !endif
  35. </td>
  36. </tr>
  37. $table_end
  38. <input type="hidden" name="gstep" value="2"/>
  39.  
  40. !exit
  41. :2
  42. <p>$name_introtext</p>
  43. <center>
  44. <textarea class="iEdit" id="testointro" rows="10" cols="80" name="up_testointro">
  45. !replace internal \( by &#92;( in $testointro
  46. </textarea>
  47. </center>
  48.  
  49. <p>$name_session_select</p>
  50.  
  51. $table_header
  52. $table_hdtr
  53.  
  54. !! needed by datemenu.phtml.$lang
  55. !default creyear=!char 1 to 4 of $class_creation
  56. !default expyear=!char 1 to 4 of $class_expiration
  57.  
  58. !if $jyear=$empty
  59.  !let jyear=!char 1 to 4 of $wims_now
  60.  !let jmonth=!char 5 to 6 of $wims_now
  61.  !let jday=!char 7 to 8 of $wims_now
  62. !endif
  63.  
  64.   <th>$name_numstud</th><th>$name_sessiondate</th><th>$name_begintime</th><th>$name_endtime</th><th>$name_connip</th><th>$name_extra</th>
  65.  </tr>
  66.  !for i=1 to $numsess
  67. $table_tr
  68.   <td>
  69.   <input size=4 name="up_nstud$i" id="nstud$i" value="$(nstud$i)"/>
  70.   </td>
  71.   <td>
  72.    !default up_bday$i=$jday
  73.    !default up_byear$i=$jyear
  74.    !default up_bmonth$i=$jmonth
  75.    !distribute item $[$(up_bday$i)],$[$(up_bmonth$i)],$[$(up_byear$i)] into up_bday$i,up_bmonth$i,up_byear$i
  76. !if $vote_status=0
  77.    !read adm/lang/datemenu.phtml.$moduclass_lang 1, up_bday$i,up_bmonth$i,up_byear$i
  78. !else
  79.   $(bday$i) $(months[$(bmonth$i)]) $(byear$i)
  80. !endif
  81.   </td>
  82.   <td>
  83. !if $vote_status=0
  84.    !read adm/lang/datemenu.phtml.$moduclass_lang 6,up_bhour$i,up_bmin$i
  85. !else
  86.    $(bhour$i):$(bmin$i)
  87. !endif
  88.   </td>
  89.   <td>
  90. !if $vote_status=0
  91.    !read adm/lang/datemenu.phtml.$moduclass_lang 6,up_ehour$i,up_emin$i
  92. !else
  93.    $(ehour$i):$(emin$i)
  94. !endif
  95.   <td>
  96. !if $vote_status=0
  97.    !default up_exconnip$i=$defconnip
  98.    <input size=10 name="up_exconnip$i" id="exconnip$i" value="$(up_exconnip$i)"/>
  99. !else
  100.    $(exconnip$i)
  101. !endif
  102.   </td>
  103.   <td>
  104.    <input size=10 name="up_testoextra$i" id="testoextra$i" value="$(testoextra$i)"/>
  105.   </td>
  106.  </tr>
  107.  !next i
  108.  $table_end
  109. <input type="hidden" name="gstep" value="3"/>
  110. !goto end
  111.  
  112. :3
  113.  
  114. !!## need to check $testointro contains no vote primitives
  115. !for i in uservar,menu,list,radio,checkbox,textarea
  116.   !set testointro=!replace internal \$i by INVALID in $testointro
  117. !next i
  118. !writefile $votedir/$vote.data
  119.  
  120. !!## with writefile we are loosing these variables at gstep=3
  121. !for dato in numsess,namevar,defconnip
  122.   !appendfile $votedir/$vote.data $dato=$($dato)
  123. !next dato
  124. !!## NOTE: the above list should be setup at model level
  125. !##! (e.g. defconnip is not needed for vote_model=groups)
  126.  
  127. !for i=1 to $numsess
  128. !!## need to check no "," in exconnip/testoextra
  129.  !set exconnip$i=!replace internal , by . in $(exconnip$i)
  130.   !set testoextra$i=!replace internal , by . in $(testoextra$i)
  131.   !for dato in nstud$i,bday$i,mese$i,byear$i,bhour$i,bmin$i,testoextra$i,\
  132.        bmonth$i,ehour$i,emin$i,exconnip$i
  133.     !appendfile $votedir/$vote.data $dato=$($dato)
  134.   !next dato
  135. !next i
  136.  
  137. !appendfile $votedir/$vote.data \
  138. :$testointro
  139. !set reg_src=<div>\
  140. $testointro\
  141. </div>\
  142. \list{
  143.  
  144. !set reg_src1=$reg_src
  145. !set reg_src2=\uservar{$namevar,>20081105.17:30 <20081105.15:30,
  146. !for i=1 to $numsess
  147. !set mese$i=!item $(bmonth$i) of $months
  148. !set bmonth$i=!char 2,3 of $[abs(floor($(bmonth$i)))+100]
  149. !set byear$i=!char -4 to -1 of $[abs(floor($(byear$i)))+100000]
  150. !set bmin$i=!char 2,3 of $[abs(floor($(bmin$i)))+100]
  151. !set emin$i=!char 2,3 of $[abs(floor($(emin$i)))+100]
  152. !set bday$i=!char 2,3 of $[abs(floor($(bday$i)))+100]
  153. !set bhour$i=!char 2,3 of $[abs(floor($(bhour$i)))+100]
  154. !set ehour$i=!char 2,3 of $[abs(floor($(ehour$i)))+100]
  155. $
  156. !set reg_src1=$reg_src1\
  157. $(nstud$i): $(bday$i) $(mese$i) $(byear$i) - $(bhour$i).$(bmin$i) / $(ehour$i).$(emin$i)$ $(testoextra$i),
  158. !set reg_src2=$reg_src2\
  159.  >$(byear$i)$(bmonth$i)$(bday$i).$(bhour$i):$(bmin$i) <$(byear$i)$(bmonth$i)$(bday$i).$(ehour$i):$(emin$i) $(exconnip$i),
  160.  
  161. !next i
  162. !set reg_src=$reg_src1\
  163. $name_cancellation\
  164. }\
  165. $reg_src2\
  166.  >20081105.17:30 <20081105.15:30\
  167. }
  168. $name_describesource
  169. <p>$name_yourvariable.</p>
  170. <pre>
  171. $reg_src
  172. </pre>
  173. $(name_$(reg_model)_instr)
  174. <input type="hidden" name="gstep" value="0"/>
  175. :end