[LON-CAPA-cvs] cvs: loncom /localize/localize en.pm

[albertel]

albertel		Sat Dec 23 01:16:31 2006 EDT

  Modified files:              
    /loncom/localize/localize	en.pm 
  Log:
  - adding another example
  
  
Index: loncom/localize/localize/en.pm
diff -u loncom/localize/localize/en.pm:1.3 loncom/localize/localize/en.pm:1.4
--- loncom/localize/localize/en.pm:1.3	Sat Dec 23 00:49:04 2006
+++ loncom/localize/localize/en.pm	Sat Dec 23 01:16:30 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Hebrew Localization Lexicon
 #
-# $Id: en.pm,v 1.3 2006/12/23 05:49:04 albertel Exp $
+# $Id: en.pm,v 1.4 2006/12/23 06:16:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,23 +32,33 @@
 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',
-'language_code'=> 'en',
+ 'char_encoding'=> 'UTF-8',
+ 'language_code'=> 'en',
 
-'_empty_mail_folder'
-	  => 
-	  sub {
-	      my (undef,$status,$description) = @_;
-	      if ($status eq '') {
-		  return 'Empty Folder';
-	      } elsif ($status eq 'replied') {
-		  return 'You have not replied to any messages in this folder.';
-	      } else { 
-		  return 'There are no '.lc($description).' messages in this folder.';
-	      }
-	  },
+ '_empty_mail_folder'
+ => sub {
+     my (undef,$status,$description) = @_;
+     if ($status eq '') {
+	 return 'Empty Folder';
+     } elsif ($status eq 'replied') {
+	 return 'You have not replied to any messages in this folder.';
+     } else { 
+	 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
 );