loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.37, 2005/11/15 19:07:58	version 1.38, 2006/04/07 22:03:55
Line 161 but for most purposes, we do not have to	Line 161 but for most purposes, we do not have to
package Apache::lonlocal;	package Apache::lonlocal;

use strict;	use strict;
use Apache::Constants qw(:common);
use Apache::localize;	use Apache::localize;
use locale;	use locale;
use POSIX qw(locale_h);	use POSIX qw(locale_h);
Line 342 sub transstatic {	Line 341 sub transstatic {
$$strptr=~s/MT\{([^\}]*)\}/&mt($1)/gse;	$$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;
}

1;	1;

__END__	__END__