version 1.49, 2003/04/01 17:00:24
|
version 1.52, 2003/06/10 19:19:57
|
Line 62 my @Fields = (
|
Line 62 my @Fields = (
|
align => 'right', |
align => 'right', |
color => '#FFFFE6' }, |
color => '#FFFFE6' }, |
{ name => 'container', |
{ name => 'container', |
title => 'Container', |
title => 'Sequence or Folder', |
align => 'left', |
align => 'left', |
color => '#FFFFE6', |
color => '#FFFFE6', |
sortable => 'yes' }, |
sortable => 'yes' }, |
Line 177 sub CreateInterface {
|
Line 177 sub CreateInterface {
|
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td align="center"><b>Sections</b></td>'; |
$Str .= '<td align="center"><b>Sections</b></td>'; |
|
$Str .= '<td align="center"><b>Enrollment Status</b></td>'; |
$Str .= '<td align="center"><b>Sequences and Folders</b></td>'; |
$Str .= '<td align="center"><b>Sequences and Folders</b></td>'; |
$Str .= '<td align="center"><b>Output</b></td>'; |
$Str .= '<td align="center"><b>Output</b></td>'; |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
Line 184 sub CreateInterface {
|
Line 185 sub CreateInterface {
|
$Str .= '<tr><td align="center">'."\n"; |
$Str .= '<tr><td align="center">'."\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">'; |
|
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); |
|
$Str .= '</td><td align="center">'; |
# |
# |
my $only_seq_with_assessments = sub { |
my $only_seq_with_assessments = sub { |
my $s=shift; |
my $s=shift; |
Line 199 sub CreateInterface {
|
Line 202 sub CreateInterface {
|
$Str .= &CreateAndParseOutputSelector(); |
$Str .= &CreateAndParseOutputSelector(); |
$Str .= '</td></tr>'."\n"; |
$Str .= '</td></tr>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '</table>'."\n"; |
|
$Str .= '<input type="submit" value="Generate Statistics" />'; |
return $Str; |
return $Str; |
} |
} |
|
|
Line 359 sub BuildProblemStatisticsPage {
|
Line 363 sub BuildProblemStatisticsPage {
|
'" />'); |
'" />'); |
$r->print('<input type="hidden" name="plot" value="" />'); |
$r->print('<input type="hidden" name="plot" value="" />'); |
if (! exists($ENV{'form.statsfirstcall'})) { |
if (! exists($ENV{'form.statsfirstcall'})) { |
$r->print(<<ENDMSG); |
|
<p> |
|
<font size="+1"> |
|
Please make your selections in the boxes above and hit |
|
the button marked "Update Display". |
|
</font> |
|
</p> |
|
ENDMSG |
|
return; |
return; |
} |
} |
# |
# |
Line 783 sub plot_statistics {
|
Line 779 sub plot_statistics {
|
} |
} |
} |
} |
return if (! defined($sortfield) || $sortfield eq ''); |
return if (! defined($sortfield) || $sortfield eq ''); |
&Apache::lonnet::logthis('data field = '.$datafield); |
|
# |
# |
my $Max = 0; |
my $Max = 0; |
my $problem_num = 0; |
my $problem_num = 0; |