db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.17, 2001/05/17 03:48:31	version 1.20, 2001/05/17 23:31:08
Line 7 use strict;	Line 7 use strict;
use Time::Local;	use Time::Local;
use POSIX qw(locale_h);	use POSIX qw(locale_h);
my $debug=1; #added by R7	my $debug=1; #added by R7
open STDERR, ">/home/roma7/errors" if $debug;	open STDERR, ">/tmp/errors" if $debug;
my ($PWD) = `pwd`;	my ($PWD) = `pwd`;
chomp $PWD;	chomp $PWD;
my ($SRCPATH) = "$PWD/../dimrub/src";	my ($SRCPATH) = "$PWD/../dimrub/src";
Line 110 sub Search {	Line 110 sub Search {
my ($dbh, $sstr, $metod) = @_;	my ($dbh, $sstr, $metod) = @_;
my (@arr, @Questions, @fields);	my (@arr, @Questions, @fields);
my (@sar, $i, $sth,$where);	my (@sar, $i, $sth,$where);
	my $btime=time;

# push @fields, 'Question';	# push @fields, 'Question';

Line 169 sub Search {	Line 170 sub Search {
while (@arr = $sth->fetchrow) {	while (@arr = $sth->fetchrow) {
push @Questions, $arr[0];	push @Questions, $arr[0];
}	}
	print br, "Search time: ",time-$btime," sec",br if $debug;
return @Questions;	return @Questions;
}	}