Subversion Repositories wimsdev

Rev

Rev 5342 | Rev 8235 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5342 Rev 5344
Line 89... Line 89...
89 
date=!translate : to . in $wims_now
 89 
date=!translate : to . in $wims_now
90 
!appendfile wimshome/log/classes/$qclass/.log $date $httpd_REMOTE_ADDR      User $quser added
90 
!appendfile wimshome/log/classes/$qclass/.log $date $httpd_REMOTE_ADDR      User $quser added
91 
 
 91 
 
92 
!if $class_superclass != $empty
 92 
!if $class_superclass != $empty
93 
  !read adm/class/mkuserlist $subclass
 93 
  !read adm/class/mkuserlist $subclass
94 
!! need also to create teacherlist
- 
 
95 
   !read adm/gateway/mkteacherlist $class_superclass
 - 
 
96 
!endif
 94 
!endif
- 
 
 95 
class_type=!defof class_type in $classdeffile
97 
!if $class_type=4 or $class_type=2
 96 
!if $class_type=4 or $class_type=2
98 
!! need also to read mkteacherlist as you might want to add users wish user_supervisable=yes
 97 
!! need also to read mkteacherlist as you might want to add users wish user_supervisable=yes
99 
  !read adm/gateway/mkteacherlist $qclass
 98 
  !read adm/gateway/mkteacherlist $qclass
100 
!endif
 99 
!endif
101 
 
 100