Subversion Repositories wimsdev

!!menumodubox0.proc :
!! Adds all class links for supervisor in wims_rm_0 for navigation menus,
!! when class_type=0 ou 1 ou 3
!! Sets all links to be displayed in menumodubox

!set wims_rm_0 = $wims_rm_0\
itemsep,0,$wims_name_classtools
!read themes/_procs/classtools.proc

!if $wims_supertype!=4 or $class_typename!=class
 !set wims_rm_0 = $wims_rm_0\
itemsep,0,$CR_1
 !read themes/_procs/classdevtools.proc
!endif

!set wims_rm_0 = $wims_rm_0\
itemsep,0,$CR_Docs
!read themes/_procs/documentation.proc
!!testclass /0 in $wims_class
!if $wims_typename notwordof program and /0// notin $wims_class//
 !set wims_rm_0 = $wims_rm_0\
   itemsep,0,$wims_name_manage
!endif
!read themes/_procs/supervisorusermanage.proc
!if ($wims_supertype<4 and $wims_typename=class) or \
 ($wims_supertype=4 and $wims_typename iswordof course program)
  !set wims_rm_0 = $wims_rm_0\
itemsep,0,$wims_name_Evaluation
  !read themes/_procs/supervisorscore.proc
  !read themes/_procs/supervisorstat.proc
!endif
!if $wims_typename notwordof program and /0// notin $wims_class//
  !set wims_rm_0 = $wims_rm_0\
itemsep,0,$wims_name_classactivity
  !read themes/_procs/supervisorclassactivity.proc
!endif
!set wims_rm_0 = $wims_rm_0\
itemsep,0,$wims_name_configuration

!read themes/_procs/supervisorconfig.proc 0

!read themes/_procs/extlink.proc cnt
!if $class_ent_n0 >0
  !set wims_rm_0 = !append line itemsep,0,$wims_name_otherclasses to $wims_rm_0
  !set tmp_exists=yes
  !read themes/_procs/extlink.proc proc
!endif

!if $class_type=0
  !if $tmp_exists!=yes
     !set wims_rm_0 = !append line itemsep,0,$wims_name_otherclasses to $wims_rm_0
  !endif
  !read themes/_procs/supervisorotherclass.proc
!endif

!reset tmp_exists
!set wims_homeref_n0 = !linecnt $wims_rm_0