Rev 10627 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 10627 | Rev 10683 | ||
|---|---|---|---|
| Line -... | Line 1... | ||
| - | 1 | ||
| 1 | !!extlink.proc : |
2 | !!extlink.proc : |
| 2 | !! Adds External links in wims_rm_0 for navigation menus |
3 | !! Adds External links in wims_rm_0 for navigation menus |
| 3 | !goto $wims_read_parm |
4 | !goto $wims_read_parm |
| 4 | 5 | ||
| 5 | :cnt |
6 | :cnt |
| 6 | !set class_ent1=!rows2lines $class_ent |
7 | !set class_ent1=!rows2lines $class_ent |
| 7 | !set class_ent_n0=!linecnt $class_ent1 |
8 | !set class_ent_n0=!linecnt $class_ent1 |
| - | 9 | ||
| 8 | !exit |
10 | !exit |
| 9 | :proc |
11 | :proc |
| 10 | !if $class_ent_n0>0 |
12 | !if $class_ent_n0>0 |
| 11 | !for i_=1 to $class_ent_n0 |
13 | !for i_=1 to $class_ent_n0 |
| 12 | !set 1_=!line $i_ of $class_ent1 |
14 | !set 1_=!line $i_ of $class_ent1 |