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 
 
 -