Subversion Repositories wimsdev

Rev

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

Rev 7680 Rev 10894
Line 5... Line 5...
5
!endif
5
!endif
6
 
6
 
7
df_data=!record 0 of Dataindex
7
df_data=!record 0 of Dataindex
8
df_names=!column 1 of $df_data
8
df_names=!column 1 of $df_data
9
df_titles=!column 2 of $df_data
9
df_titles=!column 2 of $df_data
-
 
10
df_record_cnt=!column -1 of $df_data
-
 
11
 
-
 
12
df_record_cnt_total=0
-
 
13
df_cnt=!itemcnt $df_names
-
 
14
!for i=1 to $df_cnt
-
 
15
  !! df_prompt = !append item $(df_titles[$i]) ($df_record_cnt) to $df_prompt
-
 
16
  tmp=$(df_titles[$i]) [$(df_record_cnt[$i])]
-
 
17
  df_prompt = !append item $tmp to $df_prompt
-
 
18
  df_record_cnt_total=!eval $df_record_cnt_total+$(df_record_cnt[$i])
-
 
19
!next i
10
 
20
 
11
df_ask=!listintersect $(confparm$wims_read_parm) and $df_names
21
df_ask=!listintersect $(confparm$wims_read_parm) and $df_names
12
!default df_ask=$df_names
22
!default df_ask=$df_names
13
df_ask=!randitem $df_ask
23
df_ask=!randitem $df_ask
14
oefenv_datafile=src/data/$df_ask.data
24
oefenv_datafile=src/data/$df_ask.data