Subversion Repositories wimsdev

Rev

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

Rev 12031 Rev 12429
Line 2... Line 2...
2 
wims_prefix=class user livret
 2 
wims_prefix=class user livret
3 
!if $wims_user=supervisor
 3 
!if $wims_user=supervisor
4 
 !readproc adm/whoconnect
 4 
  !readproc adm/whoconnect
5 
!endif
 5 
!endif
6 
 
 6 
 
7 
!if $wims_class=$empty or ($wims_supertype!=0 and \
 7 
!if $wims_class=$empty or ($wims_supertype!=0 and \
8 
 ($wims_supertype!=2 or $wims_typename!=class) and\
 8 
 ($wims_supertype!=2 or $wims_typename!=class) and\
9 
 ($wims_supertype!=4 or ($wims_typename notwordof course and /0// notin $wims_class//)))
 9 
 ($wims_supertype!=4 or ($wims_typename notwordof course and /0// notin $wims_class//)))
10 
 error=bad_class
 10 
  error=bad_class
11 
 !exit
 11 
  !exit
12 
!endif
 12 
!endif
13 
 
 13 
 
14 
!defread wimshome/log/classes/$wims_class/.def
 14 
!defread wimshome/log/classes/$wims_class/.def
15 
!defread $livret_dir/.def
 15 
!defread $livret_dir/.def
16 
 
 16 
 
17 
!if $wims_user!=supervisor and $class_showlivret!=yes
 17 
!if $wims_user!=supervisor and $class_showlivret!=yes
18 
    error=closedlivret
 18 
  error=closedlivret
19 
    !reset job
 19 
  !reset job
20 
    !exit
 20 
  !exit
21 
!endif
 21 
!endif
22 
 
 22 
 
23 
 
 23 
 
24 
!default livret_minac=9
 24 
!default livret_minac=9
25 
 
 25 
 
Line 30... Line 30...
30 
!read tabletheme
 30 
!read tabletheme
31 
name_icompetence=!char 1 of $name_Competences
 31 
name_icompetence=!char 1 of $name_Competences
32 
name_ipalier=!char 1 of $name_n_Palier
 32 
name_ipalier=!char 1 of $name_n_Palier
33 
 
 33 
 
34 
!if $livret_supervise=yes
 34 
!if $livret_supervise=yes
35 
 !bound job within see,modpalier,userlist,config,addcomp,user,delpalier,delcomp,save default userlist
 35 
  !bound job within see,modpalier,userlist,config,addcomp,user,delpalier,delcomp,save default userlist
36 
!else
 36 
!else
37 
 !bound job within user,see default user
 37 
  !bound job within user,see default user
38 
 user=$wims_user
 38 
  user=$wims_user
39 
!endif
 39 
!endif
40 
 
 40 
 
41 
livret_nbcomp=!recordcnt $livret_dir/.comps
 41 
livret_nbcomp=!recordcnt $livret_dir/.comps
42 
!for k=1 to $livret_nbcomp
 42 
!for k=1 to $livret_nbcomp
43 
  t=!record $k of $livret_dir/.comps
 43 
  t=!record $k of $livret_dir/.comps