Subversion Repositories wimsdev

Rev

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

Rev 13064 Rev 14297
Line 71... Line 71...
71 
 
 71 
 
72 
!if $wims_user=supervisor
 72 
!if $wims_user=supervisor
73 
  docpubliccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex
 73 
  docpubliccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex
74 
  doccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
 74 
  doccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
75 
  sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 75 
  sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
- 
 
 76 
  test=!defof allowed_optional_module in wimshome/log/wims.conf
- 
 
 77 
  !if class/freework isitemof $test
- 
 
 78 
    allowed_freework=yes
- 
 
 79 
  !else
- 
 
 80 
    !reset allowed_freework,freeworkcnt
- 
 
 81 
  !endif
- 
 
 82 
  !if $allowed_freework=yes
- 
 
 83 
    freeworkcnt=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks
- 
 
 84 
    min_freework_erasable=0
- 
 
 85 
    !for k=1 to $freeworkcnt
- 
 
 86 
      t=!record $k of wimshome/log/classes/$wims_class/freeworks/.freeworks
- 
 
 87 
      t=!line 1 of $t
- 
 
 88 
      !if $t>0
- 
 
 89 
        min_freework_erasable=$k
- 
 
 90 
      !endif
- 
 
 91 
    !next k
- 
 
 92 
  !endif
76 
  min_sheet_erasable=0
 93 
  min_sheet_erasable=0
77 
  sheet_inpreparation=0
 94 
  sheet_inpreparation=0
78 
  !for k=1 to $sheetcnt
 95 
  !for k=1 to $sheetcnt
79 
    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
 96 
    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
80 
    t=!line 1 of $t
 97 
    t=!line 1 of $t