Rev 10894 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10894 | Rev 16346 | ||
---|---|---|---|
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_auths_firstname=!column 3 of $df_data |
|
- | 11 | df_auths_lastname=!column 4 of $df_data |
|
10 | df_record_cnt=!column -1 of $df_data |
12 | df_record_cnt=!column -1 of $df_data |
11 | 13 | ||
12 | df_record_cnt_total=0 |
14 | df_record_cnt_total=0 |
13 | df_cnt=!itemcnt $df_names |
15 | df_cnt=!itemcnt $df_names |
- | 16 | df_authors=$empty |
|
14 | !for i=1 to $df_cnt |
17 | !for i=1 to $df_cnt |
15 | !! df_prompt = !append item $(df_titles[$i]) ($df_record_cnt) to $df_prompt |
18 | !! df_prompt = !append item $(df_titles[$i]) ($df_record_cnt) to $df_prompt |
- | 19 | tmp_author = $(df_auths_firstname[$i]) $(df_auths_lastname[$i]) |
|
- | 20 | df_authors = !append item $tmp_author to $df_authors |
|
- | 21 | !if $tmp_author != $empty |
|
- | 22 | tmp_author = ($tmp_author) |
|
- | 23 | !endif |
|
16 | tmp=$(df_titles[$i]) [$(df_record_cnt[$i])] |
24 | tmp=$(df_titles[$i]) $tmp_author [$(df_record_cnt[$i])] |
17 | df_prompt = !append item $tmp to $df_prompt |
25 | df_prompt = !append item $tmp to $df_prompt |
18 | df_record_cnt_total=!eval $df_record_cnt_total+$(df_record_cnt[$i]) |
26 | df_record_cnt_total=!eval $df_record_cnt_total+$(df_record_cnt[$i]) |
19 | !next i |
27 | !next i |
20 | 28 | ||
21 | df_ask=!listintersect $(confparm$wims_read_parm) and $df_names |
29 | df_ask=!listintersect $(confparm$wims_read_parm) and $df_names |