Subversion Repositories wimsdev

Rev

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