version 1.50, 2003/05/12 22:07:17
|
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 202 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 362 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 786 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; |