version 1.12, 2009/05/16 23:21:07
|
version 1.13, 2013/12/04 11:20:07
|
Line 42 sub BuildPercentageGraph {
|
Line 42 sub BuildPercentageGraph {
|
|
|
my %cache; |
my %cache; |
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
$r->print('Unable to tie database.6'); |
$r->print('<p class="LC_error">'.&mt('Unable to tie [_1]','database.6').'</p>'); |
return; |
return; |
} |
} |
|
|
Line 57 sub BuildPercentageGraph {
|
Line 57 sub BuildPercentageGraph {
|
} |
} |
|
|
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
$r->print('Unable to tie database.6'); |
$r->print('<p class="LC_error">'.&mt('Unable to tie [_1]','database.6').'</p>'); |
return; |
return; |
} |
} |
|
|
Line 76 sub CreateInterface {
|
Line 76 sub CreateInterface {
|
|
|
my $Ptr = ''; |
my $Ptr = ''; |
$Ptr .= '<table border="0" cellspacing="5"><tbody>'; |
$Ptr .= '<table border="0" cellspacing="5"><tbody>'; |
$Ptr .= '<tr><td align="right"><b>Select Map</b></td>'."\n"; |
$Ptr .= '<tr><td align="right"><b>'.&mt('Select Map').'</b></td>'."\n"; |
$Ptr .= '<td align="left">'; |
$Ptr .= '<td align="left">'; |
$Ptr .= &Apache::lonhtmlcommon::MapOptions($cache, 'Statistics', |
$Ptr .= &Apache::lonhtmlcommon::MapOptions($cache, 'Statistics', |
'Statistics'); |
'Statistics'); |
Line 107 sub CreateInterface {
|
Line 107 sub CreateInterface {
|
|
|
$Ptr .= '</tr>'."\n"; |
$Ptr .= '</tr>'."\n"; |
|
|
$Ptr .= '<tr><td align="right"><b>Select Sections</b>'; |
$Ptr .= '<tr><td align="right"><b>'.&mt('Select Sections').'</b>'; |
$Ptr .= '</td>'."\n"; |
$Ptr .= '</td>'."\n"; |
$Ptr .= '<td align="left">'."\n"; |
$Ptr .= '<td align="left">'."\n"; |
my @sections = split(':',$cache->{'sectionList'}); |
my @sections = split(':',$cache->{'sectionList'}); |
Line 143 sub InitializeSelectedStudents {
|
Line 143 sub InitializeSelectedStudents {
|
my %cache; |
my %cache; |
|
|
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
$r->print('Unable to tie database1.1.'); |
$r->print('<p class="LC_error">'.&mt('Unable to tie [_1]','database1.1.').'</p>'); |
return ('ERROR'); |
return ('ERROR'); |
} |
} |
|
|
Line 290 sub GraphData {
|
Line 290 sub GraphData {
|
$Ptr .= '</form>'."\n"; |
$Ptr .= '</form>'."\n"; |
$Ptr .= '<IMG src="/cgi-bin/graph.png?'.(join('&', @GData)); |
$Ptr .= '<IMG src="/cgi-bin/graph.png?'.(join('&', @GData)); |
$Ptr .= '" border="1" />'; |
$Ptr .= '" border="1" />'; |
$Ptr .= '<form>'."\n"; |
$Ptr .= '<form action="">'."\n"; |
|
|
return ($Ptr, \%percentages); |
return ($Ptr, \%percentages); |
} |
} |
Line 301 sub NumericSort {
|
Line 301 sub NumericSort {
|
|
|
sub TableData { |
sub TableData { |
my($cache,$percentage)=@_; |
my($cache,$percentage)=@_; |
my $Ptr; |
my $Ptr = |
|
&Apache::loncommon::start_data_table() |
|
.&Apache::loncommon::start_data_table_header_row() |
|
.'<th>'&mt('% Correct').'</th>' |
|
.'<th>'&mt('Frequency').'</th>' |
|
.'<th>'&mt('Students').'</th>' |
|
.&Apache::loncommon::end_data_table_header_row(); |
|
|
$Ptr .= '<table border="0"><tr><td bgcolor="#D7D7D7">'."\n"; |
|
$Ptr .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n"; |
|
|
|
$Ptr .= '<tr>'."\n"; |
|
$Ptr .= '<td>% Correct</td>'. |
|
'<td>Frequency</td>'. |
|
'<td>Students</td>'; |
|
$Ptr .= '</tr>'."\n"; |
|
|
|
my $alternate=0; |
|
foreach (sort NumericSort keys(%$percentage)) { |
foreach (sort NumericSort keys(%$percentage)) { |
|
|
my @temp = split(':::', $percentage->{$_}); |
my @temp = split(':::', $percentage->{$_}); |
my $count = scalar(@temp); |
my $count = scalar(@temp); |
|
|
if($alternate) { |
$Ptr .= |
$Ptr .= '<tr bgcolor="#ffffe6">'; |
&Apache::loncommon::start_data_table_row() |
} else { |
.'<td>'.$_.'</td>' |
$Ptr .= '<tr bgcolor="#ffffc6">'; |
.'<td>'.$count.'</td><td>'; |
|
|
|
foreach my $name (sort(split(':::', $percentage->{$_}))) { |
|
$Ptr .= |
|
'<a href="/adm/statistics?reportSelected=' |
|
.&escape('Student Assessment') |
|
.'&StudentAssessmentStudent=' |
|
.&escape($cache->{$name.':fullname'}).'">' |
|
.$cache->{$name.':fullname'} |
|
.'</a>, '; |
} |
} |
$alternate = ($alternate + 1) % 2; |
$Ptr .= '</td>'.&Apache::loncommon::end_data_table_row(); |
|
|
$Ptr .= '<td>'.$_.'</td>'; |
|
$Ptr .= '<td>'.$count.'</td><td>'; |
|
|
|
foreach my $name (sort(split(':::', $percentage->{$_}))) { |
|
$Ptr .= '<a href="/adm/statistics?reportSelected='; |
|
$Ptr .= &escape('Student Assessment'); |
|
$Ptr .= '&StudentAssessmentStudent='; |
|
$Ptr .= &escape($cache->{$name.':fullname'}).'">'; |
|
$Ptr .= $cache->{$name.':fullname'}; |
|
$Ptr .= '</a>, '; |
|
} |
|
|
|
$Ptr .= '</td></tr>'."\n"; |
|
} |
} |
|
$Ptr .= &Apache::loncommon::end_data_table(); |
$Ptr .= '</tr>'."\n"; |
|
$Ptr .= '</table></td></tr></table>'."\n"; |
|
|
|
return $Ptr; |
return $Ptr; |
} |
} |