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