Rev 4217 | Rev 12617 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
parent=level
thiscode=$class
!if $cancel!=$empty or $class=$empty
job=first
!changeto jobs/$job.proc
!endif
classhome=$classdir1/$class
!readdef $classhome/.def
!if $class_defined!=yes
!!FIXME back does not exist
!goto back
!endif
!if $confirm=$empty
:normal
courses=!record 0 of $classhome/courses
courses=!nonempty lines $courses
coursecnt=!linecnt $courses
pass=$class_password
passs=!defof user_password in $classhome/supervisor
!exit
!endif
title=!trim $title
title=!replace internal , by , in $title
!if $title=$empty
error=empty_data
!exit
!endif
modclass_list=description,supervisor,Supervisor,password,secure,email
cadd_description=$title
cadd_Supervisor=$sup
modclass_slist=password,email
sadd_password=$passs
cadd_password=$pass
cadd_secure=$sechost
!read adm/gateway/modclass $class
!if $error!=$empty
!exit
!endif
!read adm/gateway/mkindex
!reset confirm,title,sup,passs,pass
!readdef $classhome/.def
!goto normal