Subversion Repositories wimsdev

Rev

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

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