Subversion Repositories wimsdev

Rev

Rev 10799 | Rev 12031 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2368 bpr 1
!read adm/class/classlang names.phtml
1319 guerimand 2
wims_prefix=class user livret
5224 guerimand 3
!if $wims_user=supervisor
9349 bpr 4
 !readproc adm/whoconnect
5224 guerimand 5
!endif
1319 guerimand 6
 
10799 bpr 7
!if $wims_class=$empty or ($wims_supertype!=0 and \
10803 guerimand 8
 ($wims_supertype!=2 or $wims_typename!=class) and\
9
 ($wims_supertype!=4 or ($wims_typename notwordof course and /0// notin $wims_class//)))
1319 guerimand 10
 error=bad_class
11
 !exit
12
!endif
13
 
14
!defread wimshome/log/classes/$wims_class/.def
1845 guerimand 15
!defread $livret_dir/.def
1319 guerimand 16
 
1768 guerimand 17
!default livret_minac=9
18
 
3040 guerimand 19
livret_nonactivesheet=!listunion $livret_nonactivesheet and $nasheets
20
 
2368 bpr 21
!read lang/names.phtml.$moduclass_lang
22
 
1319 guerimand 23
!read tabletheme
1951 guerimand 24
name_icompetence=!char 1 of $name_Competences
25
name_ipalier=!char 1 of $name_n_Palier
1319 guerimand 26
 
1845 guerimand 27
!if $livret_supervise=yes
4344 guerimand 28
 !bound job within see,modpalier,userlist,config,addcomp,user,delpalier,delcomp,save default userlist
1319 guerimand 29
!else
4344 guerimand 30
 !bound job within user,see default user
1319 guerimand 31
 user=$wims_user
32
!endif
33
 
1845 guerimand 34
livret_nbcomp=!recordcnt $livret_dir/.comps
1951 guerimand 35
!for k=1 to $livret_nbcomp
36
  t=!record $k of $livret_dir/.comps
37
  !distribute line $t into title_$k,nbpalier_$k
38
!next k
1319 guerimand 39
 
40
!read $job.proc