Subversion Repositories wimsdev

# check if subclass $wims_read_parm can be add in a structure
# wims_read_parm:number of the class to add

!if $wims_read_parm=$empty
  error=subclasslimit
  !exit
!endif

!if / notin $wims_read_parm
  !exit
!endif
max_subclasses=!defof MAX_SUBCLASSES in wimshome/public_html/bases/sys/define.conf
code_=!replace internal / by , in $wims_read_parm
type_=!itemcnt $code_
!if $type_=2
  !! subclasses in a groupement or level in a portal
  list=!sh cd $wims_home/log/classes/$(code_[1]);\
           ls -d [0-9]*;
!else
  !!  subclasses in a portal
  tmp_=!item 1 to -2 of $code_
  tmp_=!replace internal , by / in $tmp_
  tmp_=!nospace $tmp_
  c_=!char 1 of $(code_[-1])
  list=!sh cd $wims_home/log/classes/$tmp_;\
              ls -d $c_[0-9]*;
!endif
nb_=!wordcnt $list
!if $nb_>=$max_subclasses
  error=subclasslimit
!endif