--- loncom/localize/lonlocal.pm 2005/11/15 19:07:58 1.37 +++ loncom/localize/lonlocal.pm 2006/04/07 22:03:55 1.38 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Localization routines # -# $Id: lonlocal.pm,v 1.37 2005/11/15 19:07:58 albertel Exp $ +# $Id: lonlocal.pm,v 1.38 2006/04/07 22:03:55 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -161,7 +161,6 @@ but for most purposes, we do not have to package Apache::lonlocal; use strict; -use Apache::Constants qw(:common); use Apache::localize; use locale; use POSIX qw(locale_h); @@ -342,24 +341,6 @@ sub transstatic { $$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; __END__