Subversion Repositories wimsdev

Rev

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