Subversion Repositories wimsdev

Rev

Rev 10683 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
10683 bpr 1
 
7671 bpr 2
!!extlink.proc :
7584 obado 3
!! Adds External links in wims_rm_0 for navigation menus
10627 bpr 4
!goto $wims_read_parm
5
 
6
:cnt
7584 obado 7
!set class_ent1=!rows2lines $class_ent
8
!set class_ent_n0=!linecnt $class_ent1
10683 bpr 9
 
10627 bpr 10
!exit
11
:proc
7584 obado 12
!if $class_ent_n0>0
12652 bpr 13
  !for i_=1 to $class_ent_n0
14
    !set 1_=!line $i_ of $class_ent1
15
    !set wims_rm_0 = !append line $(1_[1]),2,$(1_[2]),external\
16
    to $wims_rm_0
17
  !next i_
7584 obado 18
!endif