Subversion Repositories wimsdev

Rev

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

Rev 4217 Rev 12616
Line 4... Line 4...
4
!if $cancel!=$empty or $prog=$empty
4
!if $cancel!=$empty or $prog=$empty
5
 :back
5
  :back
6
 job=first
6
  job=first
7
 !changeto jobs/$job.proc
7
  !changeto jobs/$job.proc
8
!endif
8
!endif
9
 
9
 
10
proghome=$classdir1/$prog
10
proghome=$classdir1/$prog
11
!readdef $proghome/.def
11
!readdef $proghome/.def
12
!if $class_defined!=yes
12
!if $class_defined!=yes
13
 !goto back
13
  !goto back
14
!endif
14
!endif
15
 
15
 
16
level=!translate internal / to , in $prog
16
level=!translate internal / to , in $prog
17
level=!item 1 to -2 of $level
17
level=!item 1 to -2 of $level
18
level=!translate internal , to / in $level
18
level=!translate internal , to / in $level
19
level=!nospace $level
19
level=!nospace $level
20
 
20
 
21
!if $confirm=$empty
21
!if $confirm=$empty
22
 :normal
22
  :normal
23
 hastest=!defof class_defined in $proghome/0/.def
23
  hastest=!defof class_defined in $proghome/0/.def
24
 courses=!record 0 of $proghome/courses
24
  courses=!record 0 of $proghome/courses
25
 courses=!nonempty lines $courses
25
  courses=!nonempty lines $courses
26
 coursecnt=!linecnt $courses
26
  coursecnt=!linecnt $courses
27
 icourses=!record 0 of $proghome/icourses
27
  icourses=!record 0 of $proghome/icourses
28
 icourses=!nonempty lines $icourses
28
  icourses=!nonempty lines $icourses
29
 icoursecnt=!linecnt $icourses
29
  icoursecnt=!linecnt $icourses
30
 !distribute words $class_progstyle into progstyle1, progstyle2
30
  !distribute words $class_progstyle into progstyle1, progstyle2
31
 pass=$class_password
31
  pass=$class_password
32
 passs=!defof user_password in $proghome/supervisor
32
  passs=!defof user_password in $proghome/supervisor
33
 recsharable=
33
  recsharable=
34
 !if $class_recshare=$empty
34
  !if $class_recshare=$empty
35
  others=!record 0 of $classdir1/programs
35
    others=!record 0 of $classdir1/programs
36
  others=!select $others where ..$level/ notin ..column 1
36
    others=!select $others where ..$level/ notin ..column 1
37
  n=!linecnt $others
37
    n=!linecnt $others
38
  !for i=1 to $n
38
    !for i=1 to $n
39
   l=!line $i of $others
39
      l=!line $i of $others
40
   !distribute items $l into add,none,name,none
40
      !distribute items $l into add,none,name,none
41
   ready=!defof class_recshare in $classdir1/$add/.def
41
      ready=!defof class_recshare in $classdir1/$add/.def
42
   !if $ready=$empty or $ready=main
42
      !if $ready=$empty or $ready=main
43
    recsharable=!append line $add,$name to $recsharable
43
       recsharable=!append line $add,$name to $recsharable
44
   !endif
44
      !endif
45
  !next i
45
    !next i
46
 !endif
46
    !endif
47
 !exit
47
  !exit
48
!endif
48
!endif
49
 
49
 
50
title=!trim $title
50
title=!trim $title
51
title=!replace internal , by , in $title
51
title=!replace internal , by , in $title
52
!if $title=$empty
52
!if $title=$empty
53
 error=empty_data
53
 error=empty_data
54
 !exit
54
 !exit
55
!endif
55
!endif
56
 
56
 
57
modclass_list=description,supervisor,Supervisor,progstyle,password,secure,email
57
modclass_list=description,supervisor,Supervisor,progstyle,password,secure,email
58
cadd_description=$title
58
cadd_description=$title
59
cadd_Supervisor=$sup
59
cadd_Supervisor=$sup
Line 64... Line 64...
64
cadd_secure=$sechost
64
cadd_secure=$sechost
65
 
65
 
66
!read adm/gateway/modclass $prog
66
!read adm/gateway/modclass $prog
67
 
67
 
68
!if $error!=$empty
68
!if $error!=$empty
69
 !exit
69
  !exit
70
!endif
70
!endif
71
 
71
 
72
!read adm/gateway/mkindex
72
!read adm/gateway/mkindex
73
!reset confirm,title,sup,passs,pass
73
!reset confirm,title,sup,passs,pass
74
!readdef $proghome/.def
74
!readdef $proghome/.def
75
!goto normal
75
!goto normal
76
 
-