loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.331.4.4, 2013/01/07 22:20:58	version 1.331.4.6, 2013/08/13 13:27:38
Line 1901 sub ensure_db_and_table {	Line 1901 sub ensure_db_and_table {
## Sanity check the table id.	## Sanity check the table id.
##	##
if (! defined($table) \|\| $table eq '' \|\| $table =~ /\D/ ) {	if (! defined($table) \|\| $table eq '' \|\| $table =~ /\D/ ) {
$r->print(&Apache::loncommon::start_page(&mt('Error'))	$r->print(&Apache::loncommon::start_page('Error')
. '<p>table: \|'.$table.'\|</p>' # SB
.'<p class="LC_error">'	.'<p class="LC_error">'
.&mt('Unable to retrieve search results. '	.&mt('Unable to retrieve search results. '
.'Unable to determine the table results were saved in.')	.'Unable to determine the table results were saved in.')
	.'</p>'
	. '<p>'.&mt('Internal info:').'</p>'
	.'<pre>'.$table.'</pre>'
.&Apache::loncommon::end_page()	.&Apache::loncommon::end_page()
);	);
return undef;	return undef;
Line 3741 sub cleanup {	Line 3743 sub cleanup {
&Apache::lonnet::logthis('Failed cleanup searchcat: groupsearch_db');	&Apache::lonnet::logthis('Failed cleanup searchcat: groupsearch_db');
}	}
}	}
&untiehash();
&Apache::lonmysql::disconnect_from_db();	&Apache::lonmysql::disconnect_from_db();
return OK;	return OK;
}	}