Subversion Repositories wimsdev

Rev

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