Subversion Repositories wimsdev

Rev

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