version 1.50, 2003/05/12 22:07:17
|
version 1.53, 2003/06/13 20:27:17
|
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 714 sub statistics_html_table_data {
|
Line 707 sub statistics_html_table_data {
|
} |
} |
$row .= '>'; |
$row .= '>'; |
if (exists($field->{'special'}) && $field->{'special'} eq 'link') { |
if (exists($field->{'special'}) && $field->{'special'} eq 'link') { |
$row .= '<a href="'.$data->{$field->{'name'}.'.link'}. |
$row .= '<a href="'.$data->{$field->{'name'}.'.link'}.'">'; |
' target="_blank">'; |
|
} |
} |
if (exists($field->{'format'})) { |
if (exists($field->{'format'})) { |
$row .= sprintf($field->{'format'},$data->{$field->{'name'}}); |
$row .= sprintf($field->{'format'},$data->{$field->{'name'}}); |
Line 786 sub plot_statistics {
|
Line 778 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; |
Line 890 sub get_statistics {
|
Line 881 sub get_statistics {
|
$data->{'problem_num'} = $problem_num; |
$data->{'problem_num'} = $problem_num; |
$data->{'container'} = $sequence->{'title'}; |
$data->{'container'} = $sequence->{'title'}; |
$data->{'title'} = $resource->{'title'}; |
$data->{'title'} = $resource->{'title'}; |
$data->{'title.link'} = $resource->{'src'}; |
$data->{'title.link'} = $resource->{'src'}.'?symb='. |
|
&Apache::lonnet::escape($resource->{'symb'}); |
# |
# |
return $data; |
return $data; |
} |
} |