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.75, 2002/10/06 23:12:22
Line 1	Line 1
#!/usr/bin/perl -w	#!/usr/bin/perl -w

use DBI;	use DBI;
use CGI ':all';	use CGI ':all';
use strict;	use strict;
use Time::Local;	use Time::Local;
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;