Subversion Repositories wimsdev

Rev

Rev 10627 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed


!!extlink.proc :
!! Adds External links in wims_rm_0 for navigation menus
!goto $wims_read_parm

:cnt
!set class_ent1=!rows2lines $class_ent
!set class_ent_n0=!linecnt $class_ent1

!exit
:proc
!if $class_ent_n0>0
 !for i_=1 to $class_ent_n0
  !set 1_=!line $i_ of $class_ent1
  !set wims_rm_0 = !append line $(1_[1]),2,$(1_[2]),external\
  to $wims_rm_0
 !next i_
!endif