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 | - |