loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.155, 2012/03/20 16:03:54	version 1.156.2.1, 2012/05/10 18:47:29
Line 839 ENDSTYLE	Line 839 ENDSTYLE
bug=>'Statistics and Charts'});	bug=>'Statistics and Charts'});
if (! exists($env{'form.reportSelected'}) \|\|	if (! exists($env{'form.reportSelected'}) \|\|
$env{'form.reportSelected'} eq '') {	$env{'form.reportSelected'} eq '') {
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page').
&Apache::lonquickgrades::startGradeScreen($r,'statistics');	&CreateMainMenu());
$r->print(&CreateMainMenu());
} else {	} else {
#	#
if (! &Apache::lonmysql::verify_sql_connection()) {	if (! &Apache::lonmysql::verify_sql_connection()) {
my $serveradmin = $r->dir_config('lonAdmEMail');	my $serveradmin = $r->dir_config('lonAdmEMail');
$r->print('<h2 class="LC_error">'.	$r->print('<p class="LC_error">'.
&mt('Unable to connect to database!').	&mt('Unable to connect to database!').
'</h2>');	'</p>');
$r->print('<p>'	$r->print('<p>'
.&mt('Please notify the server administrator [_1]',	.&mt('Please notify the server administrator [_1]',
,'<b>'.$serveradmin.'</b>')	,'<b>'.$serveradmin.'</b>')
Line 928 ENDSTYLE	Line 927 ENDSTYLE
#	#
$r->print("</form>\n");	$r->print("</form>\n");
}	}
&Apache::lonquickgrades::endGradeScreen($r);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
$r->rflush();	$r->rflush();
#	#