[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.1028.2.2 and 1.1029

version 1.1028.2.2, 2011/12/27 19:47:02 version 1.1029, 2011/12/04 16:27:05
Line 154  sub ssi_with_retries { Line 154  sub ssi_with_retries {
 # ----------------------------------------------- Filetypes/Languages/Copyright  # ----------------------------------------------- Filetypes/Languages/Copyright
 my %language;  my %language;
 my %supported_language;  my %supported_language;
 my %latex_language; # For choosing hyphenation in <transl..>  
 my %latex_language_bykey; # for choosing hyphenation from metadata  
 my %cprtag;  my %cprtag;
 my %scprtag;  my %scprtag;
 my %fe; my %fd; my %fm;  my %fe; my %fd; my %fm;
Line 188  BEGIN { Line 186  BEGIN {
             while (my $line = <$fh>) {              while (my $line = <$fh>) {
                 next if ($line=~/^\#/);                  next if ($line=~/^\#/);
                 chomp($line);                  chomp($line);
                 my ($key,$two,$country,$three,$enc,$val,$sup,$latex)=(split(/\t/,$line));                  my ($key,$two,$country,$three,$enc,$val,$sup)=(split(/\t/,$line));
                 $language{$key}=$val.' - '.$enc;                  $language{$key}=$val.' - '.$enc;
                 if ($sup) {                  if ($sup) {
                     $supported_language{$key}=$sup;                      $supported_language{$key}=$sup;
                 }                  }
  if ($latex) {  
     $latex_language_bykey{$key} = $latex;  
     $latex_language{$two} = $latex;  
  }  
             }              }
             close($fh);              close($fh);
         }          }
Line 3236  sub languagedescription { Line 3230  sub languagedescription {
     ($supported_language{$code}?' ('.&mt('interface available').')':'');      ($supported_language{$code}?' ('.&mt('interface available').')':'');
 }  }
   
 =pod  
   
 =item * &plainlanguagedescription  
   
 Returns both the plain language description (e.g. 'Creoles and Pidgins, English-based (Other)')  
 and the language character encoding (e.g. ISO) separated by a ' - ' string.  
   
 =cut  
   
 sub plainlanguagedescription {  sub plainlanguagedescription {
     my $code=shift;      my $code=shift;
     return $language{$code};      return $language{$code};
 }  }
   
 =pod  
   
 =item * &supportedlanguagecode  
   
 Returns the supported language code (e.g. sptutf maps to pt) given a language  
 code.  
   
 =cut  
   
 sub supportedlanguagecode {  sub supportedlanguagecode {
     my $code=shift;      my $code=shift;
     return $supported_language{$code};      return $supported_language{$code};
Line 3266  sub supportedlanguagecode { Line 3242  sub supportedlanguagecode {
   
 =pod  =pod
   
 =item * &latexlanguage()  
   
 Given a language key code returns the correspondnig language to use  
 to select the correct hyphenation on LaTeX printouts.  This is undef if there  
 is no supported hyphenation for the language code.  
   
 =cut  
   
 sub latexlanguage {  
     my $code = shift;  
     return $latex_language{$code};  
 }  
   
 =pod  
   
 =item * &latexhyphenation()  
   
 Same as above but what's supplied is the language as it might be stored  
 in the metadata.  
   
 =cut  
   
 sub latexhyphenation {  
     my $key = shift;  
     return $latex_language_bykey{$key};  
 }  
   
 =pod  
   
 =item * &copyrightids()   =item * &copyrightids() 
   
 returns list of all copyrights  returns list of all copyrights
Line 5577  span.LC_current_location { Line 5524  span.LC_current_location {
   background: $pgbg;    background: $pgbg;
 }  }
   
   span.LC_current_nav_location {
     font-weight:bold;
     background: $sidebg;
   }
   
 span.LC_parm_menu_item {  span.LC_parm_menu_item {
   font-size: larger;    font-size: larger;
 }  }
Removed from v.1.1028.2.2  
changed lines
  Added in v.1.1029

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>