the field names are only used with hashes..
the only problem here is:
open (DB, "<$db_category_name") or &cgierr("error in search. unable to open database: $db_category_name. Reason: $!");
flock (DB, 1) if ($db_use_flock);
LINE: while (<DB> ) {
/^#/ and next LINE; # Skip comment Lines.
/^\s*$/ and next LINE; # Skip blank lines.
chomp; # Remove trailing new line.
@values = &split_decode($_);
$grand_total++;
# Check to see if the category matches.
$match = 0; $andmatch = 1;
if ($regexp) {
FIELD: foreach $field (@searchcat_fields) {
$_ = $values[$field];
$or_match ?
($match = $match | | &{$regexp}) :
($match = &{$regexp});
last FIELD if ($match);
}
}
# Check to see if the category matches any database fields. Only exact matches
# here.
if ($or_match | | $match | | !$regexp) {
FIELD: foreach $field (@field_search) {
if ($or_match) {
$match = $match | | ($in{$db_cols[$field]} eq $values[$field]);
$match and last FIELD;
}
else {
$match = ($in{$db_cols[$field]} eq $values[$field]);
$match or last FIELD;
}
}
}
$andmatch = $andmatch && $match;
# If we have a hit, add it in!
if (($or_match && $match) or $andmatch) {
push (@{$category_results{$values[$db_category]}}, @values);
$numhits++; # We have a match!
}
and then there are alot more.. you can't put it inside the other openin DB thing either..
to do it.. it's pretty easy.. the code you show here is on the right track.. but will lead to a dozen or more errors..
if i were you i would put something like this above where it opens the links.db..
# Go through the database.
open (DB, "<$db_category_name") or &cgierr("error in search. unable to open database: $db_category_name. Reason: $!");
flock (DB, 1) if ($db_use_flock);
LINE: while (<DB> ) {
/^#/ and next LINE; # Skip comment Lines.
/^\s*$/ and next LINE; # Skip blank lines.
chomp; # Remove trailing new line.
@values = &split_decode($_);
$grand_total++;
# Check to see if the category matches.
$match = 0; $andmatch = 1;
if ($regexp) {
FIELD: foreach $field (@searchcat_fields) {
$_ = $values[$field];
$or_match ?
($match = $match | | &{$regexp}) :
($match = &{$regexp});
last FIELD if ($match);
}
}
# Check to see if the category matches any database fields. Only exact matches
# here.
if ($or_match | | $match | | !$regexp) {
FIELD: foreach $field (@field_search) {
if ($or_match) {
$match = $match | | ($in{$db_cols[$field]} eq $values[$field]);
$match and last FIELD;
}
else {
$match = ($in{$db_cols[$field]} eq $values[$field]);
$match or last FIELD;
}
}
}
$andmatch = $andmatch && $match;
# If we have a hit, add it in!
if (($or_match && $match) or $andmatch) {
push (@category_results, $values[1]);
$numhits++; # We have a match!
}
}
close DB;
i'm not saying that will work.. but it's more of what it should look like..
jerry
the only problem here is:
Code:
# Go through the database. open (DB, "<$db_category_name") or &cgierr("error in search. unable to open database: $db_category_name. Reason: $!");
flock (DB, 1) if ($db_use_flock);
LINE: while (<DB> ) {
/^#/ and next LINE; # Skip comment Lines.
/^\s*$/ and next LINE; # Skip blank lines.
chomp; # Remove trailing new line.
@values = &split_decode($_);
$grand_total++;
# Check to see if the category matches.
$match = 0; $andmatch = 1;
if ($regexp) {
FIELD: foreach $field (@searchcat_fields) {
$_ = $values[$field];
$or_match ?
($match = $match | | &{$regexp}) :
($match = &{$regexp});
last FIELD if ($match);
}
}
# Check to see if the category matches any database fields. Only exact matches
# here.
if ($or_match | | $match | | !$regexp) {
FIELD: foreach $field (@field_search) {
if ($or_match) {
$match = $match | | ($in{$db_cols[$field]} eq $values[$field]);
$match and last FIELD;
}
else {
$match = ($in{$db_cols[$field]} eq $values[$field]);
$match or last FIELD;
}
}
}
$andmatch = $andmatch && $match;
# If we have a hit, add it in!
if (($or_match && $match) or $andmatch) {
push (@{$category_results{$values[$db_category]}}, @values);
$numhits++; # We have a match!
}
and then there are alot more.. you can't put it inside the other openin DB thing either..
to do it.. it's pretty easy.. the code you show here is on the right track.. but will lead to a dozen or more errors..
if i were you i would put something like this above where it opens the links.db..
Code:
@searchcat_fields = (); # Go through the database.
open (DB, "<$db_category_name") or &cgierr("error in search. unable to open database: $db_category_name. Reason: $!");
flock (DB, 1) if ($db_use_flock);
LINE: while (<DB> ) {
/^#/ and next LINE; # Skip comment Lines.
/^\s*$/ and next LINE; # Skip blank lines.
chomp; # Remove trailing new line.
@values = &split_decode($_);
$grand_total++;
# Check to see if the category matches.
$match = 0; $andmatch = 1;
if ($regexp) {
FIELD: foreach $field (@searchcat_fields) {
$_ = $values[$field];
$or_match ?
($match = $match | | &{$regexp}) :
($match = &{$regexp});
last FIELD if ($match);
}
}
# Check to see if the category matches any database fields. Only exact matches
# here.
if ($or_match | | $match | | !$regexp) {
FIELD: foreach $field (@field_search) {
if ($or_match) {
$match = $match | | ($in{$db_cols[$field]} eq $values[$field]);
$match and last FIELD;
}
else {
$match = ($in{$db_cols[$field]} eq $values[$field]);
$match or last FIELD;
}
}
}
$andmatch = $andmatch && $match;
# If we have a hit, add it in!
if (($or_match && $match) or $andmatch) {
push (@category_results, $values[1]);
$numhits++; # We have a match!
}
}
close DB;
i'm not saying that will work.. but it's more of what it should look like..
jerry
