db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.74, 2002/10/06 08:58:12	version 1.76, 2002/10/22 04:23:13
Line 533 sub Search {	Line 533 sub Search {
for $i (0 .. $#sar) {	for $i (0 .. $#sar) {
$sar[$i] = $dbh->quote("%${sar[$i]}%");	$sar[$i] = $dbh->quote("%${sar[$i]}%");
}	}
	$_.=' ' foreach (@fields); # Это чтобы последнее слово поля
	# не сливалось с первым словом
	# следующего поля, R7
my($f) = "CONCAT(" . join(',', @fields) . ")";	my($f) = "CONCAT(" . join(',', @fields) . ")";
if (param('all') eq 'yes') {	if (param('all') eq 'yes') {
$sstr = join " AND $f LIKE ", @sar;	$sstr = join " AND $f LIKE ", @sar;