Rev 10894 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !nocache |
2 | |||
3 | !if $status=waiting |
||
4 | !exit |
||
5 | !endif |
||
6 | |||
7 | df_data=!record 0 of Dataindex |
||
8 | df_names=!column 1 of $df_data |
||
9 | df_titles=!column 2 of $df_data |
||
16346 | obado | 10 | df_auths_firstname=!column 3 of $df_data |
11 | df_auths_lastname=!column 4 of $df_data |
||
10894 | obado | 12 | df_record_cnt=!column -1 of $df_data |
20 | reyssat | 13 | |
10894 | obado | 14 | df_record_cnt_total=0 |
15 | df_cnt=!itemcnt $df_names |
||
16346 | obado | 16 | df_authors=$empty |
10894 | obado | 17 | !for i=1 to $df_cnt |
18 | !! df_prompt = !append item $(df_titles[$i]) ($df_record_cnt) to $df_prompt |
||
16346 | obado | 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 |
||
24 | tmp=$(df_titles[$i]) $tmp_author [$(df_record_cnt[$i])] |
||
10894 | obado | 25 | df_prompt = !append item $tmp to $df_prompt |
26 | df_record_cnt_total=!eval $df_record_cnt_total+$(df_record_cnt[$i]) |
||
27 | !next i |
||
28 | |||
20 | reyssat | 29 | df_ask=!listintersect $(confparm$wims_read_parm) and $df_names |
30 | !default df_ask=$df_names |
||
31 | df_ask=!randitem $df_ask |
||
32 | oefenv_datafile=src/data/$df_ask.data |
||
33 | df_namecnt=!positionof item $df_ask in $df_names |
||
34 | df_title=!item $df_namecnt of $df_titles |