Subversion Repositories wimsdev

Rev

Rev 13567 | Rev 16466 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13567 Rev 14646
Line 2... Line 2...
2 
!!
 2 
!!
3 
 
 3 
 
4 
!default step=0
 4 
!default step=0
5 
!default picksheet=1
 5 
!default picksheet=1
6 
!bound note between 0 and 10 default 10
 6 
!bound note between 0 and 10 default 10
- 
 
 7 
!bound note2 between 0 and $[max($note-1,0)] default 0
7 
 
 8 
 
8 
sheets=
 9 
sheets=
9 
!for i=1 to $sheettot
 10 
!for i=1 to $sheettot
10 
  sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
 11 
  sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
11 
  !distribute lines $sh into a_,t_,title
 12 
  !distribute lines $sh into a_,t_,title
Line 33... Line 34...
33 
    !exit
 34 
    !exit
34 
  !endif
 35 
  !endif
35 
  update_field=9
 36 
  update_field=9
36 
  t=cmd=new
 37 
  t=cmd=new
37 
  !if $t notin $iniparm
 38 
  !if $t notin $iniparm
38 
    update_content=module=$dir&$iniparm&cmd=new,$note
 39 
    update_content=module=$dir&$iniparm&cmd=new,$note,$note2
39 
  !else
 40 
  !else
40 
    update_content=module=$dir&$iniparm,$note
 41 
    update_content=module=$dir&$iniparm,$note,$note2
- 
 
 42 
  !endif
- 
 
 43 
  !if $feedinsert=1
- 
 
 44 
    old_content=!record $exo of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
- 
 
 45 
    old_content=!line 9 of $old_content
- 
 
 46 
    !if $old_content!=$empty
- 
 
 47 
      update_content=$old_content;$update_content
- 
 
 48 
    !endif
41 
  !endif
 49 
  !endif
42 
  sheet=$picksheet
 50 
  sheet=$picksheet
43 
  !read adm/class/update.exo
 51 
  !read adm/class/update.exo
44 
  !if $dir!=adm/tool/glossary
 52 
  !if $dir!=adm/tool/glossary
45 
    title=!module title $dir
 53 
    title=!module title $dir