version 1.113, 2008/09/11 14:47:22
|
version 1.116, 2009/01/20 16:38:44
|
Line 577 sub parse_field_selection {
|
Line 577 sub parse_field_selection {
|
} |
} |
|
|
sub field_selection_input { |
sub field_selection_input { |
my $Str = '<select name="fieldselections" multiple size="5">'."\n"; |
my $Str = '<select name="fieldselections" multiple="multiple" size="5">'."\n"; |
$Str .= '<option value="all">all</option>'."\n"; |
$Str .= '<option value="all">all</option>'."\n"; |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
next if ($field->{'selectable'} ne 'yes'); |
next if ($field->{'selectable'} ne 'yes'); |
Line 612 sub CreateInterface {
|
Line 612 sub CreateInterface {
|
my $Str = ''; |
my $Str = ''; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Overall Problem Statistics', |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Overall Problem Statistics', |
'Statistics_Overall_Key'); |
'Statistics_Overall_Key'); |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<p>'; |
$Str .= '<tr>'; |
$Str .= &Apache::loncommon::start_data_table(); |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= &Apache::loncommon::start_data_table_header_row(); |
$Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>'; |
$Str .= '<th>'.&mt('Sections').'</th>'; |
$Str .= '<td align="center"><b>'.&mt('Access Status').'</b></td>'; |
$Str .= '<th>'.&mt('Groups').'</th>'; |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>'; |
$Str .= '<th>'.&mt('Access Status').'</th>'; |
$Str .= '<td align="center"><b>'.&mt('Statistics').'</b></td>'; |
$Str .= '<th>'.&mt('Sequences and Folders').'</th>'; |
$Str .= '<td rowspan="2">'. |
$Str .= '<th>'.&mt('Statistics').'</th>'; |
&Apache::lonstathelpers::limit_by_time_form().'</td>'; |
$Str .= '<th>'.&mt('Plot Graph').'</th>'; |
$Str .= '</tr>'."\n"; |
$Str .= '<th>'.&mt('Time Period').'</th>'; |
|
$Str .= &Apache::loncommon::end_data_table_header_row(); |
# |
# |
$Str .= '<tr><td align="center">'."\n"; |
$Str .= &Apache::loncommon::start_data_table_row(); |
|
$Str .= '<td align="center" valign="top">'."\n"; |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= '</td><td align="center">'; |
$Str .= '</td><td align="center" valign="top">'; |
$Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5); |
$Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5); |
$Str .= '</td><td align="center">'; |
$Str .= '</td><td align="center" valign="top">'; |
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); |
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); |
$Str .= '</td><td align="center">'; |
$Str .= '</td><td align="center" valign="top">'; |
# |
# |
$Str .= &Apache::lonstatistics::map_select('Maps','multiple,all',5); |
$Str .= &Apache::lonstatistics::map_select('Maps','multiple,all',5); |
$Str .= '</td><td>'.&field_selection_input(); |
$Str .= '</td><td align="center" valign="top">'; |
$Str .= '</td></tr>'."\n"; |
$Str .= &field_selection_input(); |
$Str .= '</table>'."\n"; |
$Str .= '</td><td align="center" valign="top">'; |
# |
$Str .= &plot_dropdown(); |
$Str .= '<p>'.&mt('Status: [_1]', |
$Str .= '</td>'."\n"; |
'<input type="text" '. |
$Str .= '</td><td align="center" valign="top">'; |
'name="stats_status" size="60" value="" />' |
$Str .= &Apache::lonstathelpers::limit_by_time_form(); |
). |
$Str .= '</td>'."\n"; |
'</nobr></p>'; |
$Str .= &Apache::loncommon::end_data_table_row(); |
|
$Str .= &Apache::loncommon::end_data_table(); |
|
# |
|
$Str .= '<p><span class="LC_nobreak">' |
|
.&mt('Status: [_1]', |
|
'<input type="text" name="stats_status"' |
|
.' size="60" value="" readonly="readonly" />') |
|
.'</span></p>'; |
# |
# |
|
$Str .= '</p>'; |
$Str .= '<input type="submit" name="GenerateStatistics" value="'. |
$Str .= '<input type="submit" name="GenerateStatistics" value="'. |
&mt('Generate Statistics').'" />'; |
&mt('Generate Statistics').'" />'; |
$Str .= ' 'x5; |
$Str .= (' 'x10); |
$Str .= 'Plot '.&plot_dropdown().(' 'x10); |
|
# |
# |
return $Str; |
return $Str; |
} |
} |
Line 728 sub BuildProblemStatisticsPage {
|
Line 737 sub BuildProblemStatisticsPage {
|
($navmap,@sequences) = |
($navmap,@sequences) = |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
if (! ref($navmap)) { |
if (! ref($navmap)) { |
$r->print('<h1>'.&mt('A course-wide error occurred.').'</h1>'. |
$r->print('<div class="LC_error">'.&mt('A course-wide error occurred.').'</div>'. |
'<h3>'.$navmap.'</h3>'); |
'<h3>'.$navmap.'</h3>'); |
&clean_up(); |
&clean_up(); |
return; |
return; |