loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

-version 1.26, 2003/11/07 23:22:22
+version 1.27, 2003/12/10 00:32:56
  Line 161  but for most purposes, we do not have to
  package Apache::lonlocal;
  use strict;
+ use Apache::Constants qw(:common);
  use Apache::localize;
  use Apache::File;
  use locale;
- Line 317  sub mtn (@) {
+ Line 318  sub mtn (@) {
      }
  }
+ # ---------------------------------------------------- Replace MT{...} in files
+ sub transstatic {
+     my $strptr=shift;
+     $$strptr=~s/MT\{([^\}]*)\}/&mt($1)/gse;
+ }
+ # ----------------------------------------------- Handler Routine /adm/localize
+ sub handler {
+     my $r=shift;
+     &Apache::lonlocal::get_language_handle($r);
+     &Apache::loncommon::content_type($r,'text/html');
+     $r->send_http_header;
+     return OK if $r->header_only;
+     my $uri=$r->uri;
+     $uri=~s/^\/adm\/localize//;
+     my $fn=$Apache::lonnet::perlvar{'lonDocRoot'}.$uri;
+     my $file=&Apache::lonnet::getfile($fn);
+     &transstatic(\$file);
+     $r->print($file);
+     return OK;
+ }
 ;
  __END__