[LON-CAPA-cvs] cvs: loncom /interface lonhelp.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 22 Sep 2003 18:35:46 -0000


albertel		Mon Sep 22 14:35:46 2003 EDT

  Modified files:              
    /loncom/interface	lonhelp.pm 
  Log:
  - With the possibility of dozens of languages, lets put the translated versions in a directory
  
  
Index: loncom/interface/lonhelp.pm
diff -u loncom/interface/lonhelp.pm:1.10 loncom/interface/lonhelp.pm:1.11
--- loncom/interface/lonhelp.pm:1.10	Mon Sep 22 00:14:04 2003
+++ loncom/interface/lonhelp.pm	Mon Sep 22 14:35:46 2003
@@ -36,6 +36,7 @@
 use Apache::lonacc();
 use Apache::lontexconvert();
 use Apache::lonnavmaps; # for advancedUser
+use Apache::lonlocal;
 use tth();
 use GDBM_File();
 
@@ -162,9 +163,10 @@
      my @files = split(/,/, $filenames);
      
      for my $filename (@files) {
-	 if (-e $docroot.'/adm/help/tex/'.$filename.'_'.
-	     &Apache::lonlocal::current_language().'.tex') {
-	     $filename.='_'.&Apache::lonlocal::current_language();
+	 if (-e $docroot.'/adm/help/tex/'.
+	     &Apache::lonlocal::current_language().'/'.
+	     $filename.'.tex') {
+	     $filename=&Apache::lonlocal::current_language().'/'.$filename;
 	 }
 	 (my $file = Apache::File->new($docroot
 			   . '/adm/help/tex/'.$filename.'.tex'))