Subversion Repositories wimsdev

Rev

Rev 12616 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12616 Rev 15486
Line 38... Line 38...
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