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.163, 2003/01/14 18:47:50
Line 2250 sub display_results {	Line 2250 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 2962 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