version 1.173, 2013/07/22 18:06:58
|
version 1.176, 2019/03/20 03:39:48
|
Line 430 my @OutputOptions =
|
Line 430 my @OutputOptions =
|
|
|
sub OutputDescriptions { |
sub OutputDescriptions { |
my $Str = ''; |
my $Str = ''; |
$Str .= "<h2>Output Formats</h2>\n"; |
$Str .= '<h2>'.&mt('Output Formats')."</h2>\n"; |
$Str .= "<dl>\n"; |
$Str .= "<dl>\n"; |
foreach my $outputmode (@OutputOptions) { |
foreach my $outputmode (@OutputOptions) { |
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
Line 605 sub count_parts {
|
Line 605 sub count_parts {
|
sub get_resources { |
sub get_resources { |
my ($navmap,$sequence) = @_; |
my ($navmap,$sequence) = @_; |
my @resources = $navmap->retrieveResources($sequence, |
my @resources = $navmap->retrieveResources($sequence, |
sub { shift->is_problem(); }, |
sub { shift->is_gradable(); }, |
0,0,0); |
0,0,0); |
return @resources; |
return @resources; |
} |
} |
Line 1103 sub excel_initialize {
|
Line 1103 sub excel_initialize {
|
&Apache::lonstatistics::selected_sequences_with_assessments(); |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
if (! ref($navmap)) { |
if (! ref($navmap)) { |
# Unable to get data, so bail out |
# Unable to get data, so bail out |
$r->print("<h3>". |
$r->print('<p class="LC_error">'. |
&mt('Unable to retrieve course information.'). |
&mt('Unable to retrieve course information.'). |
'</h3>'); |
'</p>'); |
} |
} |
# |
# |
my $total_columns = scalar(&get_student_fields_to_show()); |
my $total_columns = scalar(&get_student_fields_to_show()); |
Line 1646 sub csv_initialize{
|
Line 1646 sub csv_initialize{
|
&Apache::lonstatistics::selected_sequences_with_assessments(); |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
if (! ref($navmap)) { |
if (! ref($navmap)) { |
# Unable to get data, so bail out |
# Unable to get data, so bail out |
$r->print("<h3>". |
$r->print('p class="LC_error">'. |
&mt('Unable to retrieve course information.'). |
&mt('Unable to retrieve course information.'). |
'</h3>'); |
'</p>'); |
} |
} |
# |
# |
# Deal with unimplemented requests |
# Deal with unimplemented requests |
Line 2144 sub student_performance_on_sequence {
|
Line 2144 sub student_performance_on_sequence {
|
} |
} |
if ($randompick) { |
if ($randompick) { |
my @uniquetotals = keys(%ptsfreq); |
my @uniquetotals = keys(%ptsfreq); |
if ((@uniquetotals = 1) && ($ptsfreq{$uniquetotals[0]} > 0)) { |
if ((@uniquetotals == 1) && ($ptsfreq{$uniquetotals[0]} > 0)) { |
$max = $max * $randompick/$ptsfreq{$uniquetotals[0]}; |
$max = $max * $randompick/$ptsfreq{$uniquetotals[0]}; |
} |
} |
} |
} |