version 1.152, 2010/05/03 16:41:51
|
version 1.154, 2011/01/17 00:19:38
|
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 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()) { |
Line 865 ENDSTYLE
|
Line 867 ENDSTYLE
|
&Apache::loncoursedata::delete_caches($env{'requres.course.id'}); |
&Apache::loncoursedata::delete_caches($env{'requres.course.id'}); |
} |
} |
# |
# |
|
my $GoToPage = $env{'form.reportSelected'}; |
|
# |
# Begin form output |
# Begin form output |
$r->print('<form name="Statistics" '); |
$r->print('<form name="Statistics" '); |
|
if ($GoToPage eq 'student_submission_reports') { |
|
$r->print('onsubmit="return checkanon();" '); |
|
} |
$r->print('method="post" action="/adm/statistics">'); |
$r->print('method="post" action="/adm/statistics">'); |
$r->rflush(); |
$r->rflush(); |
# |
|
my $GoToPage = $env{'form.reportSelected'}; |
|
# |
|
$r->print('<input type="hidden" name="reportSelected" value="'. |
$r->print('<input type="hidden" name="reportSelected" value="'. |
$GoToPage.'" />'); |
$GoToPage.'" />'); |
if($GoToPage eq 'activitylog') { |
if($GoToPage eq 'activitylog') { |
Line 924 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(); |
# |
# |