Subversion Repositories wimsdev

Rev

Rev 10287 | Rev 10683 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10287 Rev 10627
Line 1... Line 1...
1 
!!extlink.proc :
 1 
!!extlink.proc :
2 
!! Adds External links in wims_rm_0 for navigation menus
 2 
!! Adds External links in wims_rm_0 for navigation menus
- 
 
 3 
!goto $wims_read_parm
- 
 
 4 
 
- 
 
 5 
:cnt
3 
!set class_ent1=!rows2lines $class_ent
 6 
!set class_ent1=!rows2lines $class_ent
4 
!set class_ent_n0=!linecnt $class_ent1
 7 
!set class_ent_n0=!linecnt $class_ent1
- 
 
 8 
!exit
- 
 
 9 
:proc
5 
!if $class_ent_n0>0
 10 
!if $class_ent_n0>0
6 
 !for i_=1 to $class_ent_n0
 11 
 !for i_=1 to $class_ent_n0
7 
  !set 1_=!line $i_ of $class_ent1
 12 
  !set 1_=!line $i_ of $class_ent1
8 
  !set wims_rm_0 = !append line $(1_[1]),2,$(1_[2]),external\
 13 
  !set wims_rm_0 = !append line $(1_[1]),2,$(1_[2]),external\
9 
  to $wims_rm_0
 14 
  to $wims_rm_0