loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

-version 1.47, 2008/07/02 21:31:32
+version 1.48, 2008/09/13 02:37:29
  Line 170  use DateTime::TimeZone;
  require Exporter;
  our @ISA = qw (Exporter);
- our @EXPORT = qw(mt mtn ns);
+ our @EXPORT = qw(mt mtn ns mt_user);
  # ========================================================= The language handle
  Line 201  sub mt (@) {
      }
  }
+ sub mt_user {
+     my ($user_lh,@what) = @_;
+     if ($user_lh) {
+         if ($what[0] eq '') {
+             if (wantarray) {
+                 return @what;
+             } else {
+                 return $what[0];
+             }
+         } else {
+             return $user_lh->maketext(@what);
+         }
+     } else {
+         if (wantarray) {
+             return @what;
+         } else {
+             return $what[0];
+         }
+     }
+ }
  # ============================================================== What language?
  sub current_language {