loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.161, 2002/11/22 18:36:07	version 1.164, 2003/02/03 04:02:17
Line 79 use Apache::lonnet();	Line 79 use Apache::lonnet();
use Apache::File();	use Apache::File();
use CGI qw(:standard);	use CGI qw(:standard);
use Text::Query;	use Text::Query;
use DBI;
use GDBM_File;	use GDBM_File;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonmysql();	use Apache::lonmysql();
Line 2250 sub display_results {	Line 2249 sub display_results {
##	##
foreach my $row (@Results) {	foreach my $row (@Results) {
if ($connection->aborted()) {	if ($connection->aborted()) {
untie %groupsearch_db if (tied(%groupsearch_db));	&cleanup();
&Apache::lonmysql::disconnect_from_db();
return;	return;
}	}
my %Fields = %{&parse_row(@$row)};	my %Fields = %{&parse_row(@$row)};
Line 2963 sub start_fresh_session {	Line 2961 sub start_fresh_session {

1;	1;

	sub cleanup {
	if (tied(%groupsearch_db)) {
	&Apache::lonnet::logthis('Cleanup searchcat: groupsearch_db');
	unless (untie(%groupsearch_db)) {
	&Apache::lonnet::logthis('Failed cleanup searchcat: groupsearch_db');
	}
	}
	&Apache::lonmysql::disconnect_from_db();
	}

__END__	__END__

=pod	=pod