Subversion Repositories wimsdev

Rev

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

Rev 12539 Rev 12912
Line 72... Line 72...
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
  min_sheet_erasable=0
76
  min_sheet_erasable=0
-
 
77
  sheet_inpreparation=0
77
  !for k=1 to $sheetcnt
78
  !for k=1 to $sheetcnt
78
    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
79
    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
79
    t=!line 1 of $t
80
    t=!line 1 of $t
80
    !if $t>0
81
    !if $t>0
81
      min_sheet_erasable=$k
82
      min_sheet_erasable=$k
-
 
83
    !else
-
 
84
      sheet_inpreparation=1
82
    !endif
85
    !endif
83
  !next k
86
  !next k
84
  examcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
87
  examcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
85
  min_exam_erasable=0
88
  min_exam_erasable=0
86
  !for k=1 to $examcnt
89
  !for k=1 to $examcnt