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 |