Subversion Repositories wimsdev

Rev

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