version 1.161, 2002/11/22 18:36:07
|
version 1.162, 2003/01/06 13:54:25
|
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 { |
|
untie %groupsearch_db if (tied(%groupsearch_db)); |
|
&Apache::lonmysql::disconnect_from_db(); |
|
} |
|
|
__END__ |
__END__ |
|
|
=pod |
=pod |