loncom/localize/localize/en.pm - diff

Return to en.pm CVS log

Up to [LON-CAPA] / loncom / localize / localize

-version 1.3, 2006/12/23 05:49:04
+version 1.4, 2006/12/23 06:16:30
  Line 32  use strict;
  package Apache::localize::en;
  use base qw(Apache::localize);
- %Apache::localize::en::Lexicon=('_AUTO' => 1,
+ %Apache::localize::en::Lexicon=
+ (
+  '_AUTO' => 1,
- 'char_encoding'=> 'UTF-8',
+  'char_encoding'=> 'UTF-8',
- 'language_code'=> 'en',
+  'language_code'=> 'en',
- '_empty_mail_folder'
+  '_empty_mail_folder'
- 	  =>
+  => sub {
- 	  sub {
+      my (undef,$status,$description) = @_;
- 	      my (undef,$status,$description) = @_;
+      if ($status eq '') {
- 	      if ($status eq '') {
+ 	 return 'Empty Folder';
- 		  return 'Empty Folder';
+      } elsif ($status eq 'replied') {
- 	      } elsif ($status eq 'replied') {
+ 	 return 'You have not replied to any messages in this folder.';
- 		  return 'You have not replied to any messages in this folder.';
+      } else {
- 	      } else {
+ 	 return 'There are no '.lc($description).' messages in this folder.';
- 		  return 'There are no '.lc($description).' messages in this folder.';
+      }
- 	      }
+  },
- 	  },
+  '_location_in_mail_folder'
+  => sub {
+      my (undef,$status,$description,$first,$finish,$total) = @_;
+      if ($msgstatus eq '') { $description = 'All'; }
+      return '<b>'.$description.' messages</b>: showing messages '.$first.
+ 	 ' through '.$finish.' of '.$total.'.';
+  },
  #SYNCMARKER
  );