191 |
'mailer-application','/usr/lib/sendmail', |
'mailer-application','/usr/lib/sendmail', |
192 |
'server-log','mps.log', |
'server-log','mps.log', |
193 |
'output-colums','yes', |
'output-colums','yes', |
194 |
|
'show-nr-colums',3, |
195 |
# 'show-past-date-list','yes', |
# 'show-past-date-list','yes', |
196 |
'database-for-SearchFieldDescriptions','ps', |
'database-for-SearchFieldDescriptions','ps', |
197 |
); |
); |
198 |
|
|
199 |
# DbP: Define which fields you have in normal and advanced search |
# read configuration fields |
200 |
# first define all available fields and then how many fields of that |
require "config.pl"; |
|
# are visible. |
|
|
@main::NormalSearchFieldNames = ( |
|
|
'700+', |
|
|
'200+', |
|
|
'610', |
|
|
'210', |
|
|
'10', |
|
|
|
|
|
); |
|
|
$main::NormalSearchDropdowns = 3 ; |
|
|
|
|
|
@main::AdvancedSearchFieldNames = ( |
|
|
'700+', |
|
|
'200+', |
|
|
'610', |
|
|
'210', |
|
|
'225', |
|
|
'300+', |
|
|
'330', |
|
|
'464', |
|
|
'675', |
|
|
'686', |
|
|
'990', |
|
|
'991', |
|
|
'10', |
|
|
'001', |
|
|
); |
|
|
$main::AdvancedSearchDropdowns = 4 ; |
|
|
|
|
201 |
|
|
202 |
# List of required configuration settings |
# List of required configuration settings |
203 |
@main::RequiredSettings = ( |
@main::RequiredSettings = ( |
3103 |
|
|
3104 |
|
|
3105 |
$Flag = 0; |
$Flag = 0; |
3106 |
print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>\n"); |
print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n"); |
3107 |
|
|
3108 |
my @html_database; |
my @html_database; |
3109 |
|
|
3122 |
if ($main::ConfigurationData{'output-colums'}) { |
if ($main::ConfigurationData{'output-colums'}) { |
3123 |
# create database names in columns |
# create database names in columns |
3124 |
|
|
3125 |
my $max = $#html_database+1 ; |
my $cols = $main::ConfigurationData{'show-nr-colums'}; |
3126 |
|
my $next = int($#html_database/$cols) ; |
3127 |
|
|
3128 |
my $j=0; |
for(my $i=0; $i <= $next ; $i++) { |
3129 |
for(my $i=0; $i < $max ; $i=$i+2) { |
print("<tr>"); |
3130 |
print("<tr>",$html_database[$j],$html_database[$j+int($max/2)],"</tr>"); |
for(my $j=0; $j <= $cols; $j++) { |
3131 |
$j++; |
print($html_database[$i+$next*$j+$j]); |
3132 |
|
} |
3133 |
|
print("</tr>"); |
3134 |
} |
} |
3135 |
|
|
3136 |
} else { |
} else { |
7458 |
foreach my $FieldInformation ( split(/\n/, $Text) ) { |
foreach my $FieldInformation ( split(/\n/, $Text) ) { |
7459 |
my ($FieldName, $FieldDescription, undef) = split(/\t/, $FieldInformation, 3); |
my ($FieldName, $FieldDescription, undef) = split(/\t/, $FieldInformation, 3); |
7460 |
$main::SearchFieldDescriptions{$FieldName} = $FieldDescription; |
$main::SearchFieldDescriptions{$FieldName} = $FieldDescription; |
7461 |
|
print "-- $FieldName --<br>\n"; |
7462 |
} |
} |
7463 |
} |
} |
7464 |
} |
} |