Subversion Repositories wimsdev

Rev

Rev 11194 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11194 Rev 13158
Line 1... Line 1...
1 
!set list_=
 1 
!set list_=
2 
!for k=1 to 2
 2 
!for k=1 to 2
3 
 !set n=!linecnt $(typelist$k)
 3 
  !set n=!linecnt $(typelist$k)
4 
 !for j = 1 to $n
 4 
  !for j = 1 to $n
5 
   !set l=!line $j of $(typelist$k)
 5 
    !set l=!line $j of $(typelist$k)
6 
   !set name=$(l[1])
 6 
    !set name=$(l[1])
7 
   !if | isin $name
 7 
    !if | isin $name
8 
     !set name2=!replace internal | by $\
 8 
      !set name2=!replace internal | by $\
9 
$ in $name
 9 
$ in $name
10 
     !distribute lines $name2 into bidon,name
 10 
      !distribute lines $name2 into bidon,name
11 
   !endif
 11 
    !endif
12 
   !set name=!words2items $name
 12 
    !set name=!words2items $name
13 
   !if $name=radiocheckbox
 13 
    !if $name=radiocheckbox
14 
     !set name=radio,checkbox
 14 
      !set name=radio,checkbox
15 
   !endif
 15 
    !endif
16 
   !set list_=!append item $name to $list_
 16 
    !set list_=!append item $name to $list_
17 
  !next
 17 
  !next
18 
!next
 18 
!next
19 
!set list_=!sort item $list_
 19 
!set list_=!sort item $list_
20 
$table_header
 20 
$table_header
21 
$table_hdtr<th>$wims_name_name</th><th>Option</th></tr>
 21 
$table_hdtr<th>$wims_name_name</th><th>Option</th></tr>
22 
  !for f in $list_
 22 
!for f in $list_
23 
    !set opt=!lookup option in anstype/$f
 23 
  !set opt=!lookup option in anstype/$f
24 
  !endif
 - 
 
25 
  !if $opt!=$empty
 24 
  !if $opt!=$empty
26 
$table_tr<td>
 25 
    $table_tr<td>
27 
!href cmd=help&special_parm=reply,$f#_$f $f
 26 
    !href cmd=help&special_parm=reply,$f#_$f $f
28 
</td><td style="text-align:left">$opt</td></tr>
 27 
    </td><td style="text-align:left">$opt</td></tr>
29 
  !endif
 28 
  !endif
30 
!next
 29 
!next
31 
</table>
 30 
</table>