/[webpac-proto]/search/config.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /search/config.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (hide annotations)
Tue Jun 25 15:59:52 2002 UTC (19 years, 4 months ago) by dpavlin
Branch: MAIN
Changes since 1.6: +16 -0 lines
fixed user preferences, moved JavaScript magic in my file

1 dpavlin 1.1 #!/usr/bin/perl
2    
3     use strict;
4    
5     ### this is for search
6    
7     # define fileds in basic search
8     @main::NormalSearchFieldNames = (
9     '700+',
10     '200+',
11     '610',
12     '210+',
13     'ISBN',
14     );
15     $main::NormalSearchDropdowns = 3 ;
16    
17     # define fileds in Advanced search
18     @main::AdvancedSearchFieldNames = (
19     '700+',
20     '200+',
21     '610',
22     '210+',
23     '225',
24     '300+',
25     '330',
26     '464',
27     '675',
28     '686',
29     '990',
30     '991',
31     'ISBN',
32     'MFN',
33     '215+',
34 dpavlin 1.5 '101',
35 dpavlin 1.1 );
36     $main::AdvancedSearchDropdowns = 4 ;
37    
38     ### this is for output
39    
40     # Field Names
41     %default::FieldNames = (
42     '700+', 'Autor(i)',
43     '200+', 'Naslov',
44     '205', 'Izdanje',
45     '210+', 'Izdavanje',
46     '215+', 'Materijalni opis',
47 dpavlin 1.5 '101', 'Jezik',
48 dpavlin 1.1 '225', 'Nakladnièka cjelina',
49     '300+', 'Napomena',
50     '330', 'Sadr¾aj',
51     '423', 'Prikriveni radovi',
52     '464', 'Analitièki radovi',
53     '610', 'Kljuène rijeèi',
54     '675+', 'Klasifik. oznaka',
55     '990', 'Signatura',
56     '991', 'Inventarni broj',
57     'ISBN', 'ISBN',
58 dpavlin 1.4 'knjiz','Knji¾nica',
59 dpavlin 1.1 'sv', 'Podaci o svescima',
60     );
61    
62    
63     # Field Display Order
64     @default::FieldDisplayOrder = (
65     'ISBN',
66     '700+',
67     '200+',
68     '205',
69     '210+',
70     '215+',
71 dpavlin 1.5 '101',
72 dpavlin 1.1 '225',
73     '300+',
74     '330',
75     '423',
76     '464',
77     '610',
78     '675+',
79     '990',
80     '991',
81     'sv',
82 dpavlin 1.4 'knjiz',
83 dpavlin 1.1
84     );
85    
86     # separators
87     %default::Separator = (
88 dpavlin 1.3 '700+', '; ',
89 dpavlin 1.1 '990', ' ',
90     '991', ', ',
91     '300+', '.- ',
92     '225', ', ',
93     '610', ' * ',
94 dpavlin 1.5 '101', '; '
95 dpavlin 1.1
96     );
97    
98 dpavlin 1.2 # Search.cgi Configuration Constrants
99    
100     # List of default configuration settings
101     %main::DefaultSettings = (
102     'lowest-year', '1990',
103     'max-score', '1000',
104     'allow-summary-displays','no',
105     'allow-similiar-search','no',
106     'allow-regular-searches','no',
107     'deliver-empty-results-from-regular-search','no',
108     # 'allow-relevance-feedback-searches','no',
109     'mailer-application','/usr/lib/sendmail',
110     'server-log','mps.log',
111     'output-colums','yes',
112     'show-nr-colums',3,
113     'show-past-date-list','no',
114     'database-for-SearchFieldDescriptions','ps',
115     );
116    
117 dpavlin 1.6 # Hash of icon/images names that we use
118     %main::ImageNames = (
119     'banner', 'banner.gif',
120     'collapse', 'collapse.gif',
121     'expand', 'expand.gif',
122     );
123    
124 dpavlin 1.7 # Javascript magic
125     $main::JavaScript_SetChecked = '<SCRIPT LANGUAGE="JavaScript">
126     <!-- hide
127     function SetChecked(val) {
128     dml=document.Search;
129     len = dml.elements.length;
130     var i=0;
131     for( i=0 ; i<len ; i++) {
132     if (dml.elements[i].name==\'Database\') {
133     dml.elements[i].checked=val;
134     }
135     }
136     }
137     // -->
138     </SCRIPT>
139     ';
140 dpavlin 1.2
141 dpavlin 1.1 1;

  ViewVC Help
Powered by ViewVC 1.1.26