Subversion Repositories wimsdev

Rev

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

  1. !!
  2. !! page edition to add exo for help to a sheet
  3. !!
  4.  
  5. !if $step=0
  6.   $name_insert <span class="tt wims_fname">$dir</span>
  7.   !if $iniparm!=$empty
  8.     $name_parm
  9.     <p class="wimscenter">
  10.     <span class="tt wims_parm">
  11.     !replace internal & by &amp; in $iniparm
  12.     </span>
  13.     </p>
  14.   !endif
  15.  
  16.   !form reply
  17.   <p>
  18.   $(name_choose_helpexo[1]) <input type="text" name="note" value="$note" size="4" />
  19.   $(name_choose_helpexo[2])
  20.   <input type="text" name="note2" value="$note2" size="4" />.
  21.   !formradio feedinsert list 0, 1 prompt remplacer,ajouter
  22.   <input type="submit" value="$wims_name_change" />
  23.   </p>
  24.   $name_choose :
  25.   <select name="picksheet" onchange="submit()">
  26.   !for i=1 to $sheetcnt
  27.     !set sh=!line $i of $sheets
  28.     !set se=!item 1 of $sh
  29.     !set nb=!item 2 of $sh
  30.     !set ti=!item 3 to -1 of $sh
  31.     !if $i=$picksheet
  32.       <option value="$se" selected="selected">$wims_name_Sheet $se: $ti</option>
  33.     !else
  34.       <option value="$se">$wims_name_Sheet $se: $ti</option>
  35.     !endif
  36.   !next i
  37.   </select>
  38.   <p>$name_choose_series :</p>
  39.   $table_header
  40.   $table_hdtr<th>$name_series</th><th>$name_actualhelp</th></tr>
  41.   !for i=1 to $(sheets[$picksheet;2])
  42.     !let don=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
  43.     !let ti=!line 5 of $don
  44.     !let he=!line 9 of $don
  45.     $table_tr
  46.     <td>
  47.     !href cmd=reply&job=helpexo&picksheet=$picksheet&step=1&exo=$i $ti
  48.     </td>
  49.     <td>$he</td>
  50.     </tr>
  51.   !next i
  52.   $table_end
  53.   <input type="hidden" value="helpexo" name="job" />
  54.   !formend
  55.   $name_clickhelp
  56. !else
  57.   $name_end $picksheet, ex. $exo ($note, $note2).
  58.   !set wims_menu_items=!append line sheetcheck,1,module=adm/class/sheet&sheet=$picksheet\
  59. to $wims_menu_items
  60. !endif
  61.