--- loncom/interface/lonstatistics.pm 2004/09/02 21:05:24 1.109
+++ loncom/interface/lonstatistics.pm 2005/01/05 20:34:20 1.112
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstatistics.pm,v 1.109 2004/09/02 21:05:24 matthew Exp $
+# $Id: lonstatistics.pm,v 1.112 2005/01/05 20:34:20 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -786,72 +786,6 @@ sub SectionSelect {
return $Str;
}
-#######################################################
-#######################################################
-
-=pod
-
-=item &CreateAndParseOutputSelector()
-
-Construct a selection list of options for output and parse output selections.
-
-=cut
-
-#######################################################
-#######################################################
-sub OutputDescriptions {
- my (@OutputOptions) = @_;
- my $Str = '';
- $Str .= "
Output Modes
\n";
- $Str .= "\n";
- foreach my $outputmode (@OutputOptions) {
- $Str .=" - ".$outputmode->{'name'}."
\n";
- $Str .=" - ".$outputmode->{'description'}."
\n";
- }
- $Str .= "
\n";
- return $Str;
-}
-
-sub CreateAndParseOutputSelector {
- my ($elementname,$default,@OutputOptions) = @_;
- my $output_mode;
- my $show;
- my $Str = '';
- #
- # Format for output options is 'mode, restrictions';
- my $selected = $default;
- if (exists($ENV{'form.'.$elementname})) {
- if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) {
- $selected = $ENV{'form.'.$elementname}->[0];
- } else {
- $selected = $ENV{'form.'.$elementname};
- }
- }
- #
- # Set package variables describing output mode
- $output_mode = 'html';
- $show = 'all';
- foreach my $option (@OutputOptions) {
- next if ($option->{'value'} ne $selected);
- $output_mode = $option->{'mode'};
- $show = $option->{'show'};
- }
- #
- # Build the form element
- $Str = qq/";
- return ($Str,$output_mode,$show);
-}
-
###############################################
###############################################
@@ -1081,7 +1015,7 @@ sub CreateMainMenu {
{ internal_name => 'student_submission_reports',
name => &mt('Student Submission Reports'),
short_description =>
- &mt('Prepare Excel spreadsheets of student submissions.'),
+ &mt('Prepare reports of student submissions.'),
},
{ internal_name => 'survey_reports',
name => &mt('Survey Reports'),
@@ -1159,6 +1093,8 @@ sub handler {
ENDSTYLE
$r->print(''.