Subversion Repositories wimsdev

!!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