Subversion Repositories wimsdev

Rev

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

  1.  
  2. !read adm/css.phtml
  3.  
  4. !header1
  5.  
  6.  
  7. !read adm/title.phtml 1\
  8. $classname\
  9. $name_title
  10.  
  11. !if $error!=$empty
  12.  <p>
  13.  !read lang/msg.phtml.$moduclass_lang
  14.  <p>
  15.  !goto end1
  16. !endif
  17.  
  18. !if $cmd=new or $cmd=resume
  19.  $name_insert <tt>$dir</tt>
  20.  !if $iniparm!=$empty
  21.   $name_parm
  22.   <code>
  23.   !replace internal & by &amp; in $iniparm
  24.   </code>
  25.  !endif
  26. . <p>
  27.  
  28.  !form reply
  29.  $name_choose:
  30.  <select name="picksheet">
  31.  !for i=1 to $sheetcnt
  32.   !set sh=!line $i of $sheets
  33.   !set se=!item 1 of $sh
  34.   !set ti=!item 2 to -1 of $sh
  35.   !if $se=$sheetcnt
  36.    <option value="$se selected">$wims_name_Sheet $se: $ti</option>
  37.   !else
  38.    <option value="$se">$wims_name_Sheet $se: $ti</option>
  39.   !endif
  40.  !next i
  41.  </select>
  42.  <p>$name_modifytitle
  43.  <p>
  44.  !set iniparm1=!replace internal & by $ $ in $iniparm
  45.  !set exo=!getopt exo in $iniparm1
  46.  !set title1=!lookup $exo in wimshome/public_html/modules/$dir/Extitles
  47.  !if $title1!=$empty
  48.    !set title=$title1
  49.  !endif
  50.  !set title=!trim $title
  51.  !default title=$wims_name_Exercise
  52.  $wims_name_title: <input size=50 name="title" value="$title"> <p>
  53.  $wims_name_Description: <textarea name="new_desc" rows=5 cols=50>$desc</textarea>
  54.  !if $scoring=yes
  55.   <p>$name_required:
  56.   <input size="4" name="require" value="$require">
  57.   <small>
  58.   ($name_repeat)
  59.   </small><p>
  60.  $name_weight:
  61.   <input size=6 name="weight" value="$weight">.
  62.  !endif
  63.  <p><center><input type=submit value="$wims_name_Insert"></center>
  64.  </form>
  65.  !goto end
  66. !endif
  67.  
  68. !if $cmd=reply
  69.  $name_end
  70.  $picksheet.
  71.  
  72. !endif
  73. :end1
  74. !set wims_menu_items=!append line sheetcheck,1, module=adm/class/sheet&sheet=$picksheet\
  75. to $wims_menu_items
  76.  
  77. :end
  78. !set wims_menu_items=!append line moduback,1,module=$dir\
  79. to $wims_menu_items
  80.  
  81. !tail
  82.  
  83. !set job=
  84.  
  85.