Subversion Repositories wimsdev

Rev

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

Rev 12981 Rev 14336
Line 12... Line 12...
12 
cls_=$wims_read_parm
 12 
cls_=$wims_read_parm
13 
cls__=$classdir/$cls_
 13 
cls__=$classdir/$cls_
14 
!if $wims_class/ notin $wims_superclass/$wims_read_parm
 14 
!if $wims_class/ notin $wims_superclass/$wims_read_parm
15 
  progtest=!defof sharing_exam in $classdir/ls_/neighbors
 15 
  progtest=!defof sharing_exam in $classdir/ls_/neighbors
16 
  !if $wims_class/ notin $progtest/
 16 
  !if $wims_class/ notin $progtest/
17 
   !exit
 17 
    !exit
18 
  !endif
 18 
  !endif
19 
!endif
 19 
!endif
20 
test=!defof class_defined in $cls__/.def
 20 
test=!defof class_defined in $cls__/.def
21 
!if $test!=yes
 21 
!if $test!=yes
22 
  error=del_not_exist
 22 
  error=del_not_exist
Line 24... Line 24...
24 
!endif
 24 
!endif
25 
 
 25 
 
26 
sharelist=!defof sharing_all in $cls__/neighbors
 26 
sharelist=!defof sharing_all in $cls__/neighbors
27 
!for dp_C in $sharelist
 27 
!for dp_C in $sharelist
28 
  !read adm/class/stopshare $dp_C,$wims_superclass/$cls_\
 28 
  !read adm/class/stopshare $dp_C,$wims_superclass/$cls_\
29 
	all
 29 
  all
30 
  error=
 30 
  error=
31 
!next dp_C
 31 
!next dp_C
32 
 
 32 
 
33 
cls=!translate / to , in $cls_
 33 
cls=!translate / to , in $cls_
34 
cls=!item 1 to -2 of $cls
 34 
cls=!item 1 to -2 of $cls