--- loncom/interface/lonstatistics.pm	2005/03/18 00:19:35	1.121
+++ loncom/interface/lonstatistics.pm	2005/03/21 19:47:53	1.122
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstatistics.pm,v 1.121 2005/03/18 00:19:35 matthew Exp $
+# $Id: lonstatistics.pm,v 1.122 2005/03/21 19:47:53 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -359,24 +359,57 @@ sub get_selected_sections {
 
 =item &section_and_enrollment_description
 
+Returns a string describing the currenly selected section(s) and 
+enrollment status.  
+
+Inputs: mode = 'plaintext' or 'localized'  (defaults to 'localized')
+    'plaintext' is used for example in Excel spreadsheets.
+Returns: scalar description string.
+
 =cut
 
 #######################################################
 #######################################################
 sub section_and_enrollment_description {
+    my ($mode) = @_;
+    if (! defined($mode)) { $mode = 'localized'; }
     my @sections = &Apache::lonstatistics::get_selected_sections();
-    my $description = &mt('Unable to determine section and enrollment');
+    my $description;
+    if ($mode eq 'localized') {
+        $description = &mt('Unable to determine section and enrollment');
+    } elsif ($mode eq 'plaintext') {
+        $description = 'Unable to determine section and enrollment';
+    } else {
+        $description = 'Bad parameter passed to lonstatistics::section_and_enrollment_description';
+        &Apache::lonnet::logthis($description);
+    }
     if (scalar(@sections) == 1 && $sections[0] ne 'all') {
-        $description = &mt('Section [_1]. [_2] enrollment status.',
-                           $sections[0],$ENV{'form.Status'});
+        if ($mode eq 'localized') {
+            $description = &mt('Section [_1]. [_2] enrollment status.',
+                               $sections[0],$ENV{'form.Status'});
+        } elsif ($mode eq 'plaintext') {
+            $description = 'Section '.$sections[0].'. '.
+                $ENV{'form.Status'}.' enrollment status.';
+        }
     } elsif (scalar(@sections) && $sections[0] eq 'all') {
-        $description = &mt('All sections. [_1] enrollment status.',
-                           $ENV{'form.Status'});
+        if ($mode eq 'localized') {
+            $description = &mt('All sections. [_1] enrollment status.',
+                               $ENV{'form.Status'});
+        } elsif ($mode eq 'plaintext') {
+            $description = 'All sections. '.
+                $ENV{'form.Status'}.' enrollment status.';
+        }
     } elsif (scalar(@sections)) {
         my $lastsection = pop(@sections);
-        $description = &mt('Sections [_1] and [_2]. [_3] enrollment status.',
-                           join(', ',@sections),$lastsection,
-                           $ENV{'form.Status'});
+        if ($mode eq 'localized') {
+            $description = &mt('Sections [_1] and [_2]. [_3] enrollment status.',
+                               join(', ',@sections),$lastsection,
+                               $ENV{'form.Status'});
+        } elsif ($mode eq 'plaintext') {
+            $description = 
+                'Sections '.join(', ',@sections).' and '.$lastsection.'. '.
+                $ENV{'form.Status'}.' enrollment status.';
+        }
     }
     return $description;
 }