Subversion Repositories wimsdev

parent=level
thiscode=$prog
!if $cancel!=$empty or $prog=$empty
 :back
 job=first
 !changeto jobs/$job.proc
!endif

proghome=$classdir1/$prog
!readdef $proghome/.def
!if $class_defined!=yes
 !goto back
!endif

level=!translate internal / to , in $prog
level=!item 1 to -2 of $level
level=!translate internal , to / in $level
level=!nospace $level

!if $confirm=$empty
 :normal
 hastest=!defof class_defined in $proghome/0/.def
 courses=!record 0 of $proghome/courses
 courses=!nonempty lines $courses
 coursecnt=!linecnt $courses
 icourses=!record 0 of $proghome/icourses
 icourses=!nonempty lines $icourses
 icoursecnt=!linecnt $icourses
 !distribute words $class_progstyle into progstyle1, progstyle2
 pass=$class_password
 passs=!defof user_password in $proghome/supervisor
 recsharable=
 !if $class_recshare=$empty
  others=!record 0 of $classdir1/programs
  others=!select $others where ..$level/ notin ..column 1
  n=!linecnt $others
  !for i=1 to $n
   l=!line $i of $others
   !distribute items $l into add,none,name,none
   ready=!defof class_recshare in $classdir1/$add/.def
   !if $ready=$empty or $ready=main
    recsharable=!append line $add,$name to $recsharable
   !endif
  !next i
 !endif
 !exit
!endif

title=!trim $title
title=!replace internal , by , in $title
!if $title=$empty
 error=empty_data
 !exit
!endif

modclass_list=description,supervisor,Supervisor,progstyle,password,secure,email
cadd_description=$title
cadd_Supervisor=$sup
cadd_progstyle=$progstyle1 $progstyle2
modclass_slist=password,email
sadd_password=$passs
cadd_password=$pass
cadd_secure=$sechost

!read adm/gateway/modclass $prog

!if $error!=$empty
 !exit
!endif

!read adm/gateway/mkindex
!reset confirm,title,sup,passs,pass
!readdef $proghome/.def
!goto normal