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 |