Rev 16126 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | # Add a new class. |
2 | # wims_read_parm: class address. Parent must already exist. |
||
3 | # cadd_...: class data. Defaults to class_... |
||
4 | # sadd_...: supervisor data. Defaults to user_... |
||
5 | |||
6 | newclass=!item 1 of $wims_read_parm |
||
7 | !if $newclass=$empty |
||
12555 | bpr | 8 | !exit |
20 | reyssat | 9 | !endif |
10 | |||
16124 | guerimand | 11 | !! test of toomany subclasses |
12 | !if / isin $newclass |
||
13 | !read adm/class/checksubclasslimit $newclass |
||
14 | !if $error!=$empty |
||
15 | !exit |
||
16 | !endif |
||
17 | !endif |
||
18 | |||
7770 | bpr | 19 | !!cadd_scorecolor=white,red,red,red,orange,orange,orange,yellow,yellow,green,green |
20 | cadd_scorecolor=#FFFFFF,#FF0000,#FF0000,#FF0000,#FFA500,#FFA500,#FFA500,#FFFF00,#FFFF00,#00FF00,#00FF00 |
||
12880 | obado | 21 | !set cadd_actcolor=!defof DF_actcolor in wimshome/public_html/bases/sys/defaults.conf |
10755 | bpr | 22 | cadd_exolog=2 |
15794 | guerimand | 23 | clist=password,Supervisor,supervisor,description,institution,location,geoloc,\ |
14336 | bpr | 24 | lang,email,creation,expiration,limit,topscores,superclass,type,level,parent,\ |
25 | secure,typename,cas_auth,authidp,connections,\ |
||
26 | bgcolor,bgimg,scorecolor,actcolor,css,logo,logoside,refcolor,ref_menucolor,\ |
||
27 | ref_button_color,ref_button_bgcolor,ref_button_help_color,ref_button_help_bgcolor,theme,theme_icon,\ |
||
28 | exolog |
||
16020 | guerimand | 29 | ulist=firstname,lastname,email,password,agreecgu,agreesupcgu |
20 | reyssat | 30 | D_=wimshome/log/classes |
31 | E_=$wims_home/log/classes |
||
32 | |||
33 | csetlist= |
||
34 | usetlist= |
||
35 | !for t in $ulist |
||
12555 | bpr | 36 | sadd_$t=!replace internal ! by in $(sadd_$t) |
37 | !default sadd_$t=$(user_$t) |
||
38 | usetlist=!append line !set user_$t=$(sadd_$t) to $usetlist |
||
39 | sadd2_$t=$(sadd_$t) |
||
40 | !reset sadd_$t |
||
20 | reyssat | 41 | !next t |
42 | |||
43 | !if ($class_lang!=$empty and $class_lang iswordof cn) or \ |
||
44 | ($cadd_lang!=$empty and $cadd_lang iswordof cn) |
||
45 | cadd_supervisor=$sadd2_lastname$sadd2_firstname |
||
46 | !else |
||
47 | cadd_supervisor=$sadd2_firstname $sadd2_lastname |
||
48 | !endif |
||
49 | |||
50 | !if $cadd_type=2 |
||
12555 | bpr | 51 | cadd_typename=group |
20 | reyssat | 52 | !endif |
53 | !if $cadd_type=4 |
||
12555 | bpr | 54 | cadd_typename=portal |
20 | reyssat | 55 | !endif |
56 | |||
57 | !for t in $clist |
||
12555 | bpr | 58 | cadd_$t=!replace internal ! by in $(cadd_$t) |
59 | !if $t=level |
||
60 | !bound cadd_$t within E1,E2,E3,E4,E5,E6,H1,H2,H3,H4,H5,H6,U1,U2,U3,U4,U5,G,R default $ |
||
61 | !endif |
||
62 | !default cadd_$t=$(class_$t) |
||
63 | !if $t=creation |
||
64 | !default cadd_creation=!char 1 to 8 of $wims_now |
||
65 | !endif |
||
66 | csetlist=!append line !set class_$t=$(cadd_$t) to $csetlist |
||
67 | !reset cadd_$t |
||
20 | reyssat | 68 | !next t |
69 | !sh cd $wims_home/log/classes\ |
||
70 | rm -Rf $newclass\ |
||
71 | mkdir $newclass\ |
||
72 | cd $newclass\ |
||
16418 | guerimand | 73 | mkdir .users sheets exams doc score noscore vote cdt src def livret seq tool freeworks freeworksdata;\ |
15948 | guerimand | 74 | touch .userlist Extitles;\ |
964 | bpr | 75 | echo "!set exolist =\ |
76 | !set titlelist=\ |
||
1191 | bpr | 77 | !set exototal =" > Exindex\ |
12939 | guerimand | 78 | echo 6 >version |
20 | reyssat | 79 | |
80 | !setdef $csetlist\ |
||
81 | !set class_creator=$httpd_REMOTE_ADDR\ |
||
82 | !set class_defined=yes in $D_/$newclass/.def |
||
83 | |||
84 | !setdef $usetlist\ |
||
85 | !set user_exists=yes in $D_/$newclass/supervisor |