Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
1319 guerimand 1
 
2
!if $cf_abandon!=$empty
3
 !reset cf_abandon
4
 job=userlist
5
 !read userlist.proc
6
 !exit
7
!endif
8
 
9
!if $cf_set!=$empty
10
 !reset cf_set
11
 cf_title=!trim $cf_title
12
 !if $cf_title=$empty
1859 guerimand 13
  cf_title=$wims_name_livret
1319 guerimand 14
 !endif
15
 cf_description=!singlespace $cf_description
16
 cf_title=!singlespace $cf_title
17
 cf_title=!char 1 to 50 of $cf_title
18
 cf_description=!char 1 to 1024 of $cf_description
19
 cf_nonactivesheet=!nospace $cf_nonactivesheet
20
 cf_nonactivesheet=!listintersect $cf_nonactivesheet and $asheets
1951 guerimand 21
 !bound cf_scoreoption within class,livret default $livret_scoreoption
22
 cf_scoreview=$[rint($cf_scoreview)]
23
 !bound cf_scoreview between -1 and 4 default $livret_scoreview
1768 guerimand 24
 !bound cf_minac between 0 and 10 default 9
1319 guerimand 25
 !setdef !set livret_title=$cf_title\
26
!set livret_description=$cf_description\
1768 guerimand 27
!set livret_nonactivesheet=$cf_nonactivesheet\
1951 guerimand 28
!set livret_scoreview=$cf_scoreview\
29
!set livret_scorecolor=$cf_scorecolor1,$cf_scorecolor2,$cf_scorecolor3,$cf_scorecolor4,$cf_scorecolor5,$cf_scorecolor6,$cf_scorecolor7,$cf_scorecolor8,$cf_scorecolor9,$cf_scorecolor10,$cf_scorecolor11\
30
!set livret_scoreoption=$cf_scoreoption\
1845 guerimand 31
!set livret_minac=$cf_minac in $livret_dir/.def
1951 guerimand 32
!readdef $livret_dir/.def
1319 guerimand 33
!else
1951 guerimand 34
 !for k in title,description,nonactivesheet,minacquis,scoreoption,scoreview,scorecolor1,scorecolor2,scorecolor3,scorecolor4,scorecolor5,scorecolor6,scorecolor7,scorecolor8,scorecolor9,scorecolor10,scorecolor11
1319 guerimand 35
  cf_$k=$(livret_$k)
36
 !next k
37
!endif
38
 
39