Subversion Repositories wimsdev

Rev

Rev 33 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 33 Rev 1532
Line 52... Line 52...
52 
# Limit of shown items
 52 
# Limit of shown items
53 
gotlim=1000
 53 
gotlim=1000
54 
gotlim2=50
 54 
gotlim2=50
55 
list_batch=20
 55 
list_batch=20
56 
 
 56 
 
- 
 
 57 
!read adm/search_engine/mklist_form.proc
57 
rel_A=D,S
 58 
!!rel_A=D,S
58 
rel_T=X,D,R
 59 
!!rel_T=X,D,R
59 
rel_D=X,T,S,R
 60 
!!rel_D=X,T,S,R
60 
rel_X=T,D,S,R
 61 
!!rel_X=T,D,S,R
61 
rel_R=X,T,D,S
 62 
!!rel_R=X,T,D,S
62 
rel_P=T,X,D
 63 
!!rel_P=T,X,D
63 
rel_O=X,S,T,D,R
 64 
!!rel_O=X,S,T,D,R
64 
rel_S=X,R,T,D
 65 
!!rel_S=X,R,T,D
65 
 
 66 
 
66 
slist=A D T X R P O S
 67 
!!slist=A D T X R P O S
67 
module_P=wimshome/public_html/modules/tool/popup
 68 
!!module_P=wimshome/public_html/modules/tool/popup
68 
wims_trustfile=$module_P.$lang/search.phtml $module_P.$lang/search.proc
 69 
!!wims_trustfile=$module_P.$lang/search.phtml $module_P.$lang/search.proc
69 
test=!record 0 of $module_P.$lang/.test
 70 
!!test=!record 0 of $module_P.$lang/.test
70 
!if yes notin $test
 71 
!!!if yes notin $test
71 
 slist=!translate P to $ $ in $slist
 72 
!! slist=!translate P to $ $ in $slist
72 
!endif
 73 
!!!endif
73 
cnt=!record 0 of wimshome/public_html/bases/sheet/index/count.$lang
 74 
!!cnt=!record 0 of wimshome/public_html/bases/sheet/index/count.$lang
74 
!if $cnt<=0
 75 
!!!if $cnt<=0
75 
 slist=!translate S to $ $ in $slist
 76 
!! slist=!translate S to $ $ in $slist
76 
!endif
 77 
!!!endif
77 
slist=!words2items $slist
 78 
!!slist=!words2items $slist
78 
plist=
 79 
!!plist=
79 
!for i in $slist
 80 
!!!for i in $slist
80 
 plist=!append item $(C_$i) to $plist
 81 
!! plist=!append item $(C_$i) to $plist
81 
!next i
 82 
!!!next i
82 
 
 83 
 
83 
!if $wims_user=supervisor
 84 
!if $wims_user=supervisor
84 
 !default search_level=$class_level
 85 
 !default search_level=$class_level
85 
!endif
 86 
!endif
86 
 
 87