version 1.153, 2010/08/04 01:56:02
|
version 1.156, 2012/05/03 11:21:27
|
Line 64 use Apache::lonpercentage;
|
Line 64 use Apache::lonpercentage;
|
use Apache::lonstudentsubmissions(); |
use Apache::lonstudentsubmissions(); |
use Apache::lonsurveyreports(); |
use Apache::lonsurveyreports(); |
use Apache::longradinganalysis(); |
use Apache::longradinganalysis(); |
|
use Apache::lonquickgrades(); |
use LONCAPA; |
use LONCAPA; |
|
|
# |
# |
Line 412 sub StudentDataSelect {
|
Line 413 sub StudentDataSelect {
|
last; |
last; |
} |
} |
} |
} |
$Str .= ">all</option>\n"; |
$Str .= '>'.&mt('all')."</option>\n"; |
# |
# |
# Loop through the student data fields |
# Loop through the student data fields |
foreach my $item (@StudentDataOrder) { |
foreach my $item (@StudentDataOrder) { |
Line 423 sub StudentDataSelect {
|
Line 424 sub StudentDataSelect {
|
last; |
last; |
} |
} |
} |
} |
$Str .= '>'.$item."</option>\n"; |
$Str .= '>'.&mt($item)."</option>\n"; |
} |
} |
$Str .= "</select>\n"; |
$Str .= "</select>\n"; |
return $Str; |
return $Str; |
Line 838 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')); |
&CreateMainMenu()); |
&Apache::lonquickgrades::startGradeScreen($r,'statistics'); |
|
$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 926 ENDSTYLE
|
Line 928 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(); |
# |
# |